fusion de toutes les feuilles de plusieurs fichiers + nom

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
Bonjour le forum

En modifiant ta macro comme cela, ça marche sur mon ordinateur.
VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour