Nom évolutif d'un tableau

[stpab]

Bonjours à tous,

Dans une macro, je cherche à copier certaines feuilles de différents classeur pour les coller dans un seul et même nouveau classeur que je souhaite nommer à la fin.


Windows("Test_Bz.xlsx").Activate
Sheets("Feuil1").Select
Sheets("Feuil1").Copy ('la il me copie la feuille dans un nouveau classeur qu'il apel classeurX automatiquement')
Windows("Test_Bz.xlsx").Activate
Sheets("toto").Select
Windows("classeurx.xlsx").Activate
Sheets("toto").Copy ('essayez de le copier dans feuil2 de ce même classeurx')
Windows("Test_B.xlsx").Activate
Sheets("Feuil1").Select
Windows("classeurx.xlsx").Activate
Sheets("Feuil1").Copy ('essayez de le copier dans feuil3 de ce même classeurx')
Windows("Test_B.xlsx").Activate
Sheets("toto").Select
Windows("classeurx.xlsx").Activate
Sheets("toto").Copy ('essayez de le copier dans feuil4 de ce même classeurx')

cela ne marche pas mais je le mets pour que vous donner une meilleur idée de ce que je veut faire, je ne sais pas vraiment comment m'y prendre

Cordialement,

 

[Pierrot93]

Re : Nom évolutif d'un tableau

Bonjour,

si cela peut t'aider, pour copier une feuille d'un classeur vers un autre, les 2 classeurs sont ouverts dans la même instance d'Excel :

Workbooks("classeur1.xls").Worksheets("Feuil1").Copy after:=Workbooks("classeur2.xls").Worksheets("Feuil1")

bon après midi
@+