j'a i une application qui me créer plusieurs fichier Excel (chaque fichier a un nom et il contient une feulle )
j'aimerais pouvoir regrouper ces classeurs en un seul, et a chaque fois le nom de la feuille excel soit le nom de classeur.
la j'ai utilise ce code pour regrouper mais uniquement sur une seule feuille
Sub CompilationClasseurs()
Dim Repertoire As String, Fichier As String
Dim Wb As Workbook
Dim Ws As Worksheet
Dim x As Integer
Repertoire = "C:\dossier"
Application.ScreenUpdating = False
Fichier = Dir(Repertoire & "\*.xls")
Do While Fichier <> ""
Set Wb = Workbooks.Open(Repertoire & "\" & Fichier)
Set Ws = Wb.Sheets(1)
Ws.Range("A1:i2000").Copy
x = ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Row + 1
ThisWorkbook.Sheets(1).Cells(x, 1).PasteSpecial
Application.CutCopyMode = False
Wb.Close False
Fichier = Dir
Loop
Application.ScreenUpdating = True
MsgBox "Opération terminée."
End Sub
j'aimerais pouvoir regrouper ces classeurs en un seul, et a chaque fois le nom de la feuille excel soit le nom de classeur.
la j'ai utilise ce code pour regrouper mais uniquement sur une seule feuille
Sub CompilationClasseurs()
Dim Repertoire As String, Fichier As String
Dim Wb As Workbook
Dim Ws As Worksheet
Dim x As Integer
Repertoire = "C:\dossier"
Application.ScreenUpdating = False
Fichier = Dir(Repertoire & "\*.xls")
Do While Fichier <> ""
Set Wb = Workbooks.Open(Repertoire & "\" & Fichier)
Set Ws = Wb.Sheets(1)
Ws.Range("A1:i2000").Copy
x = ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Row + 1
ThisWorkbook.Sheets(1).Cells(x, 1).PasteSpecial
Application.CutCopyMode = False
Wb.Close False
Fichier = Dir
Loop
Application.ScreenUpdating = True
MsgBox "Opération terminée."
End Sub