Copier un tableau dans un autre

Résolu
Cyrano__ Messages postés 20 Statut Membre -  
Cyrano__ Messages postés 20 Statut Membre -
Bonjour,

Dans le cadr d'une macro excel, je veux recopier les données figurant sur le fichier excel "clas1.xls" dals la seconde feuille du fichier "clas2.xls" sachant que les tableux sont de taille (2000,18)...voila le code que j'ai écrit :

Sub ImportDonnees()

Workbooks.Open ("Q:\doc1\doc2\Clas1.xls")

Set Depart = Workbooks("Classeur1.xls")
Set Destination = Workbooks("Clas2.xls")

Set F_dep = Depart.Sheets(1)
Set F_des = Destination.Sheets(2)

i = 1
j = 1

While j < 18
While i < 2000
F_dep.Select
Selection.Cells(i, j).Copy

F_des.Select
Selection.Cells(i, j).Past

j = j + 1
Wend
i = i + 1
Wend

End Sub

Merci

Cyrano
Configuration: Windows 2000 Internet Explorer 6.0

2 réponses

  1.
    yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    Quelle est ta question ?
    0
  2. Cyrano__ Messages postés 20 Statut Membre
     
    oué tu as raison, j'ai oublié de la poser...c'était comment faire pour recopier un tableau excel dans un autre :)
    Ceci dit ce week end j'ai réussi à percer le mystère..merci yg_bo ;)

    Cyrano
    0