lebarbo
XLDnaute Occasionnel
Bonjour forum, bonjour à tous,
Je souhaiterais faire une boucle pour éviter de reproduire plusieurs fois le même code avec des noms (et non des numéros) de classeurs différents.
En somme j'ai trois classeurs à consolider dans un. Les trois classeurs sont Roger.xls, David.xls et Gérard.xls qui ont chacun une feuille s'appelant Sheet1 que je veux copier dans un classeur Synthèse.xls. Mais je n'arrive pas à faire ma boucle.
Voici ce que j'ai fait mais bien sur le Nom & i ne fonctionne pas malheureusement ; )
Si vous avez des idées, merci d'avance.
Sub essai()
Nom1 = "Roger"
Nom2 = "David"
Nom3 = "Gérard"
For i = 1 To 3
Application.DisplayAlerts = False
On Error Resume Next
Workbooks("Synthèse.xls").Sheets(Nom & i).Delete
Workbooks.Open Filename:="K:\Fichiers\" & Nom & i & ".xls"
Workbooks(Nom & i & ".xls").Sheets("Sheet1").Copy Before:=Workbooks("Synthèse.xls").Sheets(i)
Workbooks("Synthèse.xls").Sheets(i).Name = Nom & i
Workbooks(Nom & i & ".xls").Close False
Next i
End Sub
Je souhaiterais faire une boucle pour éviter de reproduire plusieurs fois le même code avec des noms (et non des numéros) de classeurs différents.
En somme j'ai trois classeurs à consolider dans un. Les trois classeurs sont Roger.xls, David.xls et Gérard.xls qui ont chacun une feuille s'appelant Sheet1 que je veux copier dans un classeur Synthèse.xls. Mais je n'arrive pas à faire ma boucle.
Voici ce que j'ai fait mais bien sur le Nom & i ne fonctionne pas malheureusement ; )
Si vous avez des idées, merci d'avance.
Sub essai()
Nom1 = "Roger"
Nom2 = "David"
Nom3 = "Gérard"
For i = 1 To 3
Application.DisplayAlerts = False
On Error Resume Next
Workbooks("Synthèse.xls").Sheets(Nom & i).Delete
Workbooks.Open Filename:="K:\Fichiers\" & Nom & i & ".xls"
Workbooks(Nom & i & ".xls").Sheets("Sheet1").Copy Before:=Workbooks("Synthèse.xls").Sheets(i)
Workbooks("Synthèse.xls").Sheets(i).Name = Nom & i
Workbooks(Nom & i & ".xls").Close False
Next i
End Sub