boucle

[lagarde_je]

Bonjour a tous,

J'ai un problème de boucle je n'y arrive pas. J'ai un classeur dis source et je voudrais faire un copier coller dans plusieurs classeurs et sur ce problème j'ai trouvé la macro qui est :
Sub a()
Range("A1:H53").Copy
Workbooks.Open Filename:="C:\Users\jarreton céline\Desktop\jjlll.xls"
Worksheets("Facture").Unprotect
Worksheets("Facture").Activate
Range("A1:H53").PasteSpecial (xlPasteValues)
Range("A1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
ca fonction pas mal du tous sauf que je voudrais que cette macro copier automatiquement dans plusieurs classeurs en meme tps. Cette macro fonction pour un et j'ai voulu inserer une ligne en dessous workbooks.open filename et copier la ligne et changer le nom du fichier et ca n'a pas fonctionner donc je pense qu'il faut faire une boucle.

Donc si qqn peux m'aider je remercie d'avance.
Jéjé

PS : je joints les fichier sources jjll.xls ou il y a la macro et je voudrais que cela copie dans les deux autres fichiers qui sont jjlll;jjllll merci par avance

 

[Efgé]

Re : boucle

Bonjour lagarde_je,
Il existe des fils sur le sujet dans le forum, dont celui-ci.
Bon courage et bonne année.
Cordialement

 

[Paritec]

Re : boucle

Bonjour lagarde_je le forum,
ou elle est la macro qui marche pas ??
il fallait la laisser dans un des classeurs pour que l'on puisse la corriger
a+
Papou 🙂

 

[lagarde_je]

Re : boucle

Ok merci mais la macro est dans le classeur jjll.xls et il me faudrait le code de la boucle pour copier automatiquement dans les deux classeurs jjlll,jjllll merci par avance.
Jéjé