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
 
 
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