XL 2010 fusionner plusieurs classeurs excel en un seul classeur

[EVEVIA]

bonjour
je dois fusionner plusieurs classeurs excel (comportant une ou plusieurs feuilles) pour ne créer qu'un seul classeur.
merci pour votre aide

 

[StagiairePasPayé]

Bonjour,
Essaye sa :

Dupliquer une feuille excel par VBA

Bonjour à tous, J'ai beau chercher dans les forums, je ne trouve pas une macro qui correspond à ce que je cherche à faire : dupliquer un onglet "à l'identique" (mise en forme, formules, tableau dynamique, ...) dans un même fichier et que le nom du nouvel onglet soit le nom inscrit sur un bouton...

www.excel-downloads.com

 

[job75]

Bonjour EVEVIA, bienvenue sur XLD, salut Stagiaire...

Voyez les discussions similaires en bas de page.

A+

 

[job75]

Si vous n'avez pas trouvé chaussure à votre pied voyez les fichiers joints et la macro du bouton :

Private Sub CommandButton1_Click()
Dim a(), s As Object, fichier, i%
ReDim a(1 To 2) 'dimension à adapter
a(1) = ThisWorkbook.Path & "\Classeur1.xlsx" 'à adapter
a(2) = ThisWorkbook.Path & "\Classeur2.xlsx" 'à adapter
'etc...
'---supression des feuilles---
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each s In Sheets
    If s.Name <> Me.Name Then s.Delete
Next s
'---copie des feuilles des fichiers---
For Each fichier In a
    With Workbooks.Open(fichier)
        For i = 1 To .Sheets.Count
            .Sheets(i).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Left(.Name, 31 - Len(CStr(i)) - 2) & "(" & i & ")"
        Next i
        .Close
    End With
Next fichier
Me.Activate
End Sub