fusion de toutes les feuilles de plusieurs fichiers + nom

[pierre@thiaville.fr]

Bonjour,

je cherche une macro me permettant de fusionner dans une seul fichier :
plusieurs fichiers excel + récupérer toutes les feuilles de ces fichiers + récupérer le nom du fichier source dans l'onglet copié

j'ai cette macro qui est plutot bien mais elle fusionne que le premier onglet de chaque fichier...

Sub GetSheets()
Path = "C:\Documents..."
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub

 

[Yurperqod]

Bonjour le forum

En modifiant ta macro comme cela, ça marche sur mon ordinateur.

Sub test_GetSheets()
Dim Path As String
Dim FName As String
Dim classeur As Workbook
Dim Sheet As Worksheet

Path = "C:\Documents..."
FName = Dir(Path & "*.xlsx")
Do While FName <> ""
Set classeur = Workbooks.Open(FileName:=Path & FName, ReadOnly:=True)
For Each Sheet In classeur.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next Sheet
classeur.Close False
Set classeur = Nothing
FName = Dir()
Loop
End Sub