fusionner pas mal de fichiers Excel en un seul

ILOVEUBB · 23 Décembre 2014

Bonjour,

J'ai pas mal de fichiers Excel " *.xlsm " que je voudrais fusionner en un seul dans différentes feuilles en gardant le même non de feuille. Existe-t-il un code VBA permettant la fusion de plusieurs fichiers Excel ?

merci d'avance

ILOVEUBB · 23 Décembre 2014

Re : fusionner pas mal de fichiers Excel en un seul

SALUT
PROBLÈME RÉSOLU VOILA LE CODE VBA POUR CEUX QUI SONT INTÉRESSÉS

CODE VBA :

Sub GetSheets()
'CHEMIN DE VOS FICHIERS
Path = "C:\Users\NOM DE VOTRE ORDINATEUR \Desktop\Test\"
Filename = Dir(Path & "*.xlsm")
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

fusionner pas mal de fichiers Excel en un seul

ILOVEUBB

XLDnaute Occasionnel

ILOVEUBB

XLDnaute Occasionnel

Discussions similaires

fusionner pas mal de fichiers Excel en un seul

ILOVEUBB

XLDnaute Occasionnel

ILOVEUBB

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency