VBA : copier une feuille dans plusieurs classeurs différent

[Amethyste69]

Bonjour

Je voudrais insérer des feuilles du classeur B dans un classeur A. J'ouvre le classeur B et j'insère les feuilles dans le classeur A. J'ai donc la macro suivante

Workbooks.Open Filename:= _
"D:\User\Doc\B.xls"
Sheets(Array("Suivi - Relevés", "Suivi - Calculs", "Suivi - Graphes")).Select
Sheets("Suivi - Graphes").Activate
Sheets(Array("Suivi - Relevés", "Suivi - Calculs", "Suivi - Graphes")).Move _
Before:=Workbooks("A.xls").Sheets(2)

Ici rien de bien compliqué sauf que je dois le faire pour plusieurs classeurs A mais de noms différents (donc A change tout le temps). Comment modifier la macro pour qu'il tienne compte de différents noms, ou qu'elle revienne au classeur d'origine sans le nommer.

Merci d'avance

 

[YANN-56]

Re : VBA : copier une feuille dans plusieurs classeurs différent

Bonjour Amethyste, et à ceux qui passeront par ici,

Fouille dans le Classeur joint et adapte à tes besoins.

Notamment une boucle sur tous les Classeurs concernés.

Amicalement.

Yann

 

[Amethyste69]

Re : VBA : copier une feuille dans plusieurs classeurs différent

Bonjour Amethyste, et à ceux qui passeront par ici,

Fouille dans le Classeur joint et adapte à tes besoins.

Notamment une boucle sur tous les Classeurs concernés.

Amicalement.

Yann

Merci Yann. Cependant, je n'ai pas trouvé l'astuce pour copier 3 feuilles en même temps. De plus, ta macro ne copie systématiquement que le dernier de mon classeur source. Désolé, je suis débutant sous VBA.

Cordialement

Amethyste