Copier une feuille dans un nouveau classeur

Copier une feuille dans un nouveau classeur - VB/VBA/VBS - Programmation

Marsh Posté le 16-12-2013 à 09:57:21    

Bonjour à tous,
 
Je cherche à copier les données de la feuille "Saisie" de 2 classeurs ("MC_Expédition" et "MC_Plastique" ) en .xlsm dans un nouveau classeur nommé Archive en .xls
 
J'ai essayé pleins de méthodes mais, sans aboutir...
Je fais donc appel à vous pour m'aider dans ma démarche!!
 
Merci pour votre aide!  

Reply

Marsh Posté le 16-12-2013 à 09:57:21   

Reply

Marsh Posté le 16-12-2013 à 11:34:21    

 
           Bonjour,
 
           sans voir de code, cf règles de ce forum …
 
           Plein d'exemples sur le net comme par exemple sur ce forum dans ce sujet
 
           Et l'Enregistreur de macros est un ami pour se donner une base de code !
 

Reply

Marsh Posté le 16-12-2013 à 11:48:27    

J'ai essayé d'utiliser l'enregistreur de macros mais, je n'arrive pas à faire ce que je veux.
 
Voici mon code écrit dans mon fichier "Archive":
 

Code :
  1. Sub Macro5()
  2. '
  3. ' Macro5 Macro
  4. '
  5. Sheets(Array("MC_Expédition", "MC_Plastique" )).Copy
  6. End Sub


 
Mais quand j'enregistre mes fichiers "MC_Expédition", "MC_Plastique", dans "Archive" je n'ai rien...
J'ai du faire une mauvaise manip mais je ne sais pas quoi!
De plus je débute en vba donc c'est encore plus difficile pour moi de trouver mon erreur.*
 
Si tu peux m'aider ce serai super...

Reply

Marsh Posté le 16-12-2013 à 11:57:55    

 
           Après avoir activé l'Enregistreur de macros, sélectionner les données d'une feuille puis Copier,
           Coller dans la feuille de destination puis répéter la manipulation pour les données de la seconde feuille …
 

Reply

Marsh Posté le 16-12-2013 à 12:10:46    

 
           La méthode  Copy  sans paramètre crée les feuilles dans un nouveau classeur !   (Lire son aide au moins …)
 
           Donc dans ce cas, question de logique, la procédure doit se trouver dans le classeur source …
 

Reply

Marsh Posté le 16-12-2013 à 14:20:20    

Je viens de tester mais, quand je rajoute des lignes dans mes fichiers "MC_Expédition" et "MC_Plastique", il ne s'affiche pas dans "Archive"!
 
Voici ce que le code de la macro que j'obtiens après les "copier", "coller" de mes données:
 

Code :
  1. Sub Macro3()
  2. '
  3. ' Macro3 Macro
  4. '
  5.     Application.CutCopyMode = False
  6.     Selection.Copy
  7.     Windows("Classeur2" ).Activate
  8.     ActiveSheet.Paste
  9.     ActiveWindow.ScrollRow = 2
  10.     ActiveWindow.ScrollRow = 3
  11.     ActiveWindow.ScrollRow = 4
  12.     ActiveWindow.ScrollRow = 10
  13.     ActiveWindow.ScrollRow = 11
  14.     ActiveWindow.ScrollRow = 12
  15.     ActiveWindow.ScrollRow = 14
  16.     ActiveWindow.ScrollRow = 16
  17.     ActiveWindow.ScrollRow = 17
  18.     ActiveWindow.ScrollRow = 19
  19.     ActiveWindow.ScrollRow = 20
  20.     ActiveWindow.ScrollRow = 21
  21.     ActiveWindow.ScrollRow = 22
  22.     ActiveWindow.ScrollRow = 23
  23.     ActiveWindow.ScrollRow = 24
  24.     ActiveWindow.ScrollRow = 25
  25.     ActiveWindow.ScrollRow = 28
  26.     ActiveWindow.ScrollRow = 29
  27.     ActiveWindow.ScrollRow = 30
  28.     ActiveWindow.ScrollRow = 31
  29.     ActiveWindow.ScrollRow = 32
  30.     ActiveWindow.ScrollRow = 33
  31.     ActiveWindow.ScrollRow = 34
  32.     ActiveWindow.ScrollRow = 35
  33.     ActiveWindow.ScrollRow = 39
  34.     ActiveWindow.ScrollRow = 40
  35.     ActiveWindow.ScrollRow = 41
  36.     ActiveWindow.ScrollRow = 43
  37.     ActiveWindow.ScrollRow = 44
  38.     ActiveWindow.ScrollRow = 45
  39.     ActiveWindow.ScrollRow = 47
  40.     ActiveWindow.ScrollRow = 50
  41.     ActiveWindow.ScrollRow = 52
  42.     ActiveWindow.ScrollRow = 54
  43.     ActiveWindow.ScrollRow = 56
  44.     ActiveWindow.ScrollRow = 58
  45.     ActiveWindow.ScrollRow = 60
  46.     ActiveWindow.ScrollRow = 62
  47.     ActiveWindow.ScrollRow = 76
  48.     ActiveWindow.ScrollRow = 79
  49.     ActiveWindow.ScrollRow = 81
  50.     ActiveWindow.ScrollRow = 84
  51.     ActiveWindow.ScrollRow = 87
  52.     ActiveWindow.ScrollRow = 90
  53.     ActiveWindow.ScrollRow = 92
  54.     ActiveWindow.ScrollRow = 119
  55.     ActiveWindow.ScrollRow = 149
  56.     ActiveWindow.ScrollRow = 151
  57.     ActiveWindow.ScrollRow = 154
  58.     ActiveWindow.ScrollRow = 157
  59.     ActiveWindow.ScrollRow = 160
  60.     ActiveWindow.ScrollRow = 232
  61.     ActiveWindow.ScrollRow = 233
  62.     ActiveWindow.ScrollRow = 234
  63.     ActiveWindow.ScrollRow = 236
  64.     ActiveWindow.ScrollRow = 237
  65.     ActiveWindow.ScrollRow = 238
  66.     ActiveWindow.ScrollRow = 240
  67.     ActiveWindow.ScrollRow = 241
  68.     ActiveWindow.ScrollRow = 250
  69.     ActiveWindow.ScrollRow = 263
  70.     ActiveWindow.ScrollRow = 265
  71.     ActiveWindow.ScrollRow = 266
  72.     ActiveWindow.ScrollRow = 268
  73.     ActiveWindow.ScrollRow = 269
  74.     ActiveWindow.ScrollRow = 287
  75.     ActiveWindow.ScrollRow = 289
  76.     ActiveWindow.ScrollRow = 290
  77.     ActiveWindow.ScrollRow = 292
  78.     ActiveWindow.ScrollRow = 294
  79.     ActiveWindow.ScrollRow = 296
  80.     ActiveWindow.ScrollRow = 306
  81.     ActiveWindow.ScrollRow = 307
  82.     ActiveWindow.ScrollRow = 310
  83.     ActiveWindow.ScrollRow = 311
  84.     ActiveWindow.ScrollRow = 312
  85.     ActiveWindow.ScrollRow = 313
  86.     ActiveWindow.ScrollRow = 314
  87.     ActiveWindow.ScrollRow = 319
  88.     ActiveWindow.ScrollRow = 321
  89.     ActiveWindow.ScrollRow = 322
  90.     ActiveWindow.ScrollRow = 324
  91.     ActiveWindow.ScrollRow = 325
  92.     ActiveWindow.ScrollRow = 328
  93.     ActiveWindow.ScrollRow = 331
  94.     ActiveWindow.ScrollRow = 332
  95.     ActiveWindow.ScrollRow = 333
  96.     ActiveWindow.ScrollRow = 334
  97.     ActiveWindow.ScrollRow = 336
  98.     ActiveWindow.ScrollRow = 337
  99.     ActiveWindow.ScrollRow = 339
  100.     ActiveWindow.ScrollRow = 340
  101.     ActiveWindow.ScrollRow = 341
  102.     ActiveWindow.ScrollRow = 342
  103.     ActiveWindow.ScrollRow = 343
  104.     ActiveWindow.ScrollRow = 344
  105.     ActiveWindow.ScrollRow = 345
  106.     ActiveWindow.ScrollRow = 346
  107.     ActiveWindow.ScrollRow = 347
  108.     ActiveWindow.ScrollRow = 348
  109.     ActiveWindow.ScrollRow = 350
  110.     ActiveWindow.ScrollRow = 351
  111.     ActiveWindow.ScrollRow = 352
  112.     ActiveWindow.ScrollRow = 353
  113.     ActiveWindow.ScrollRow = 354
  114.     ActiveWindow.ScrollRow = 356
  115.     ActiveWindow.ScrollRow = 357
  116.     ActiveWindow.ScrollRow = 359
  117.     ActiveWindow.ScrollRow = 361
  118.     ActiveWindow.ScrollRow = 363
  119.     ActiveWindow.ScrollRow = 367
  120.     ActiveWindow.ScrollRow = 368
  121.     ActiveWindow.ScrollRow = 378
  122.     ActiveWindow.ScrollRow = 380
  123.     ActiveWindow.ScrollRow = 382
  124.     ActiveWindow.ScrollRow = 383
  125.     ActiveWindow.ScrollRow = 385
  126.     ActiveWindow.ScrollRow = 387
  127.     ActiveWindow.ScrollRow = 390
  128.     ActiveWindow.ScrollRow = 391
  129.     ActiveWindow.ScrollRow = 392
  130.     ActiveWindow.ScrollRow = 398
  131.     ActiveWindow.ScrollRow = 399
  132.     ActiveWindow.ScrollRow = 404
  133.     ActiveWindow.ScrollRow = 405
  134.     ActiveWindow.ScrollRow = 406
  135.     ActiveWindow.ScrollRow = 408
  136.     ActiveWindow.ScrollRow = 410
  137.     ActiveWindow.ScrollRow = 411
  138.     ActiveWindow.ScrollRow = 418
  139.     ActiveWindow.ScrollRow = 420
  140.     ActiveWindow.ScrollRow = 425
  141.     ActiveWindow.ScrollRow = 433
  142.     ActiveWindow.ScrollRow = 434
  143.     ActiveWindow.ScrollRow = 435
  144.     ActiveWindow.ScrollRow = 437
  145.     ActiveWindow.ScrollRow = 438
  146.     ActiveWindow.ScrollRow = 439
  147.     ActiveWindow.ScrollRow = 449
  148.     ActiveWindow.ScrollRow = 450
  149.     ActiveWindow.ScrollRow = 453
  150.     ActiveWindow.ScrollRow = 454
  151.     ActiveWindow.ScrollRow = 456
  152.     ActiveWindow.ScrollRow = 457
  153.     ActiveWindow.ScrollRow = 459
  154.     ActiveWindow.ScrollRow = 460
  155.     ActiveWindow.ScrollRow = 462
  156.     ActiveWindow.ScrollRow = 498
  157.     ActiveWindow.ScrollRow = 507
  158.     ActiveWindow.ScrollRow = 510
  159.     ActiveWindow.ScrollRow = 513
  160.     ActiveWindow.ScrollRow = 516
  161.     ActiveWindow.ScrollRow = 519
  162.     ActiveWindow.ScrollRow = 522
  163.     ActiveWindow.ScrollRow = 546
  164.     ActiveWindow.ScrollRow = 531
  165.     ActiveWindow.ScrollRow = 513
  166.     ActiveWindow.ScrollRow = 497
  167.     ActiveWindow.ScrollRow = 463
  168.     ActiveWindow.ScrollRow = 440
  169.     ActiveWindow.ScrollRow = 416
  170.     ActiveWindow.ScrollRow = 394
  171.     ActiveWindow.ScrollRow = 350
  172.     ActiveWindow.ScrollRow = 330
  173.     ActiveWindow.ScrollRow = 288
  174.     ActiveWindow.ScrollRow = 266
  175.     ActiveWindow.ScrollRow = 245
  176.     ActiveWindow.ScrollRow = 225
  177.     ActiveWindow.ScrollRow = 205
  178.     ActiveWindow.ScrollRow = 186
  179.     ActiveWindow.ScrollRow = 165
  180.     ActiveWindow.ScrollRow = 149
  181.     ActiveWindow.ScrollRow = 134
  182.     ActiveWindow.ScrollRow = 105
  183.     ActiveWindow.ScrollRow = 94
  184.     ActiveWindow.ScrollRow = 83
  185.     ActiveWindow.ScrollRow = 73
  186.     ActiveWindow.ScrollRow = 61
  187.     ActiveWindow.ScrollRow = 48
  188.     ActiveWindow.ScrollRow = 37
  189.     ActiveWindow.ScrollRow = 28
  190.     ActiveWindow.ScrollRow = 18
  191.     ActiveWindow.ScrollRow = 11
  192.     ActiveWindow.ScrollRow = 5
  193.     ActiveWindow.ScrollRow = 1
  194.     Windows("MC_Finition.xlsm" ).Activate
  195.     Range("A6:M308" ).Select
  196.     Application.CutCopyMode = False
  197.     Selection.Copy
  198.     Windows("Classeur2" ).Activate
  199.     ActiveWindow.ScrollRow = 2
  200.     ActiveWindow.ScrollRow = 3
  201.     ActiveWindow.ScrollRow = 4
  202.     ActiveWindow.ScrollRow = 5
  203.     ActiveWindow.ScrollRow = 10
  204.     ActiveWindow.ScrollRow = 11
  205.     ActiveWindow.ScrollRow = 14
  206.     ActiveWindow.ScrollRow = 16
  207.     ActiveWindow.ScrollRow = 19
  208.     ActiveWindow.ScrollRow = 38
  209.     ActiveWindow.ScrollRow = 40
  210.     ActiveWindow.ScrollRow = 43
  211.     ActiveWindow.ScrollRow = 44
  212.     ActiveWindow.ScrollRow = 47
  213.     ActiveWindow.ScrollRow = 50
  214.     ActiveWindow.ScrollRow = 66
  215.     ActiveWindow.ScrollRow = 69
  216.     ActiveWindow.ScrollRow = 72
  217.     ActiveWindow.ScrollRow = 74
  218.     ActiveWindow.ScrollRow = 76
  219.     ActiveWindow.ScrollRow = 78
  220.     ActiveWindow.ScrollRow = 79
  221.     ActiveWindow.ScrollRow = 80
  222.     ActiveWindow.ScrollRow = 99
  223.     ActiveWindow.ScrollRow = 100
  224.     ActiveWindow.ScrollRow = 101
  225.     ActiveWindow.ScrollRow = 102
  226.     ActiveWindow.ScrollRow = 103
  227.     ActiveWindow.ScrollRow = 105
  228.     ActiveWindow.ScrollRow = 106
  229.     ActiveWindow.ScrollRow = 128
  230.     ActiveWindow.ScrollRow = 130
  231.     ActiveWindow.ScrollRow = 132
  232.     ActiveWindow.ScrollRow = 133
  233.     ActiveWindow.ScrollRow = 135
  234.     ActiveWindow.ScrollRow = 136
  235.     ActiveWindow.ScrollRow = 139
  236.     ActiveWindow.ScrollRow = 155
  237.     ActiveWindow.ScrollRow = 160
  238.     ActiveWindow.ScrollRow = 162
  239.     ActiveWindow.ScrollRow = 163
  240.     ActiveWindow.ScrollRow = 164
  241.     ActiveWindow.ScrollRow = 180
  242.     ActiveWindow.ScrollRow = 182
  243.     ActiveWindow.ScrollRow = 183
  244.     ActiveWindow.ScrollRow = 194
  245.     ActiveWindow.ScrollRow = 202
  246.     ActiveWindow.ScrollRow = 204
  247.     ActiveWindow.ScrollRow = 205
  248.     ActiveWindow.ScrollRow = 207
  249.     ActiveWindow.ScrollRow = 208
  250.     ActiveWindow.ScrollRow = 213
  251.     ActiveWindow.ScrollRow = 214
  252.     ActiveWindow.ScrollRow = 215
  253.     ActiveWindow.ScrollRow = 216
  254.     ActiveWindow.ScrollRow = 219
  255.     ActiveWindow.ScrollRow = 221
  256.     ActiveWindow.ScrollRow = 224
  257.     ActiveWindow.ScrollRow = 240
  258.     ActiveWindow.ScrollRow = 241
  259.     ActiveWindow.ScrollRow = 248
  260.     ActiveWindow.ScrollRow = 249
  261.     ActiveWindow.ScrollRow = 263
  262.     ActiveWindow.ScrollRow = 264
  263.     ActiveWindow.ScrollRow = 267
  264.     ActiveWindow.ScrollRow = 270
  265.     ActiveWindow.ScrollRow = 279
  266.     ActiveWindow.ScrollRow = 285
  267.     ActiveWindow.ScrollRow = 291
  268.     ActiveWindow.ScrollRow = 296
  269.     ActiveWindow.ScrollRow = 351
  270.     ActiveWindow.ScrollRow = 352
  271.     ActiveWindow.ScrollRow = 354
  272.     ActiveWindow.ScrollRow = 356
  273.     ActiveWindow.ScrollRow = 358
  274.     ActiveWindow.ScrollRow = 361
  275.     ActiveWindow.ScrollRow = 362
  276.     ActiveWindow.ScrollRow = 364
  277.     ActiveWindow.ScrollRow = 365
  278.     ActiveWindow.ScrollRow = 366
  279.     ActiveWindow.ScrollRow = 368
  280.     ActiveWindow.ScrollRow = 369
  281.     ActiveWindow.ScrollRow = 370
  282.     ActiveWindow.ScrollRow = 372
  283.     ActiveWindow.ScrollRow = 373
  284.     ActiveWindow.ScrollRow = 402
  285.     ActiveWindow.ScrollRow = 416
  286.     ActiveWindow.ScrollRow = 417
  287.     ActiveWindow.ScrollRow = 419
  288.     ActiveWindow.ScrollRow = 420
  289.     ActiveWindow.ScrollRow = 423
  290.     ActiveWindow.ScrollRow = 424
  291.     ActiveWindow.ScrollRow = 431
  292.     ActiveWindow.ScrollRow = 432
  293.     ActiveWindow.ScrollRow = 434
  294.     ActiveWindow.ScrollRow = 438
  295.     ActiveWindow.ScrollRow = 439
  296.     ActiveWindow.ScrollRow = 442
  297.     ActiveWindow.ScrollRow = 445
  298.     ActiveWindow.ScrollRow = 448
  299.     ActiveWindow.ScrollRow = 455
  300.     ActiveWindow.ScrollRow = 457
  301.     ActiveWindow.ScrollRow = 460
  302.     ActiveWindow.ScrollRow = 462
  303.     ActiveWindow.ScrollRow = 474
  304.     ActiveWindow.ScrollRow = 475
  305.     ActiveWindow.ScrollRow = 476
  306.     ActiveWindow.ScrollRow = 491
  307.     ActiveWindow.ScrollRow = 492
  308.     ActiveWindow.ScrollRow = 493
  309.     ActiveWindow.ScrollRow = 495
  310.     ActiveWindow.ScrollRow = 497
  311.     ActiveWindow.ScrollRow = 502
  312.     ActiveWindow.ScrollRow = 503
  313.     ActiveWindow.ScrollRow = 504
  314.     ActiveWindow.ScrollRow = 505
  315.     ActiveWindow.SmallScroll Down:=66
  316.     Range("A584" ).Select
  317.     ActiveSheet.Paste
  318. End Sub


 
Est-ce bien ça que j edois avoir?

Reply

Marsh Posté le 16-12-2013 à 14:25:41    

 
           http://smileys.sur-la-toile.com/repository/Grands_Smileys/emoticone-msn-evanoui.gif
 
           Et pourtant je t'ai donné une solution claire ‼
 
           Suite ici …  :sarcastic:  
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed