pierre@thiaville.fr
XLDnaute Nouveau
Bonjour à tous,
j'ai actuellement une macro qui me permet de fusionner plusieurs xls en un seul fichier en prenant en compte les feuilles de chaque classeur. j'aimerai que la macro reprenne le nom du classeur + nom de la feuille lors de la fusion.
comment modifier cette macro?
merci d'avance
Sub GetSheets()
Path = "C:\...\"
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
j'ai actuellement une macro qui me permet de fusionner plusieurs xls en un seul fichier en prenant en compte les feuilles de chaque classeur. j'aimerai que la macro reprenne le nom du classeur + nom de la feuille lors de la fusion.
comment modifier cette macro?
merci d'avance
Sub GetSheets()
Path = "C:\...\"
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