pierre@thiaville.fr
XLDnaute Nouveau
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
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