XL 2010 fusionner plusieurs classeurs excel en un seul classeur

  • Initiateur de la discussion Initiateur de la discussion EVEVIA
  • Date de début Date de début

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 !

EVEVIA

XLDnaute Nouveau
bonjour
je dois fusionner plusieurs classeurs excel (comportant une ou plusieurs feuilles) pour ne créer qu'un seul classeur.
merci pour votre aide
 
Si vous n'avez pas trouvé chaussure à votre pied voyez les fichiers joints et la macro du bouton :
VB:
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
 

Pièces jointes

- 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

  • Question Question
Autres Code VBA
Réponses
11
Affichages
152
Réponses
5
Affichages
254
Réponses
10
Affichages
84
Réponses
4
Affichages
786
  • Question Question
Microsoft 365 Formule somme
Réponses
1
Affichages
62
Retour