Bonjour,
J'essaie de copier toutes les feuilles d'un ensemble de fichiers Excel se trouvant dans un même répertoire, dans un fichier Excel de compilation contenant le code suivant.
Malheureument il ne fonctionne pas comme prévu.
Quelqu'un pourrait-il m'aider ?
Merci !
Dimitri
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Sub Copier() Chemin = "C:\...\" 'Répertoire où se trouvent les Excel à compiler Fichiersource = Dir(Chemin & "*.xlsx") ' Premier fichier à compiler Fichiercible = ThisWorkbook.Name ' Fichier de compilation Do While Fichiersource <> "" Workbooks(Fichiersource).Activate For Each Feuille In Workbooks(Fichiersource).Worksheets Feuille.Copy After:=Workbooks(Fichiercible).Sheets(1) Next Feuille Fichiersource = Dir ' Fichier suivant Loop End Sub
Partager