Fusionner des feuilles de calcul ayant le même nom à partir de plusieurs classeurs en une seule

La fusion de données provenant de plusieurs classeurs Excel dans une seule feuille est une exigence courante dans l'analyse de données, en particulier lorsqu'il s'agit de rapports consolidés ou d'agrégation de données provenant de diverses sources. Cela peut être particulièrement difficile lorsque vous devez combiner des feuilles de calcul portant le même nom dans différents classeurs. Ce tutoriel vous guidera à travers deux méthodes efficaces pour rationaliser ce processus : l'utilisation de code VBA pour ceux qui préfèrent une approche programmable, et l'utilisation de Kutools for Excel pour les utilisateurs recherchant une solution plus conviviale et automatisée.

• Fusionner des feuilles de calcul avec le même nom en une seule avec du code VBA
• Fusionnez facilement des feuilles de calcul avec le même nom en une seule avec Kutools pour Excel

Fusionner des feuilles de calcul avec le même nom en une seule avec du code VBA

Cette section fournit un code VBA pour fusionner des feuilles de calcul ayant le même nom à partir de plusieurs classeurs en une seule. Veuillez suivre les étapes ci-dessous :

1. Appuyez sur "Alt" + "F11" pour ouvrir l'éditeur VBA.
2. Dans l'éditeur VBA, cliquez sur "Insérer" > "Module", puis entrez le code VBA suivant dans le module.
   Code VBA : Fusionner des classeurs ayant le même nom en un seul

   Sub CombineSameNameSheetsFromMultipleWorkbooks()
   'Updated by Extendoffice 2025/3/27
       Dim wsTarget As Worksheet
       Dim wbTarget As Workbook
       Dim wbSource As Workbook
       Dim wsSource As Worksheet
       Dim strSheetName As String
       Dim fd As FileDialog
       Dim FileChosen As Integer
       Dim FileName As String
       Dim lastRow As Long
   
       ' Set the name of the sheets to combine
       strSheetName = "SheetName" ' Change "SheetName" to the name of your sheet
   
       Set wbTarget = Workbooks.Add
       Set wsTarget = wbTarget.Sheets(1)
       wsTarget.Name = "Combined Data"
   
       Set fd = Application.FileDialog(msoFileDialogFilePicker)
       fd.AllowMultiSelect = True
   
       FileChosen = fd.Show
       If FileChosen = -1 Then
           For Each varFile In fd.SelectedItems
               Set wbSource = Workbooks.Open(varFile)
               
               On Error Resume Next
               Set wsSource = wbSource.Sheets(strSheetName)
               On Error GoTo 0
               
               If Not wsSource Is Nothing Then
                   lastRow = wsTarget.Cells(wsTarget.Rows.Count, 1).End(xlUp).Row
                   
                   wsSource.UsedRange.Copy Destination:=wsTarget.Cells(lastRow + 1, 1)
                   
                   Set wsSource = Nothing
               End If
               wbSource.Close False
           Next varFile
       End If
       MsgBox "Data has been combined successfully!", vbInformation
   End Sub

   Remarque : Avant d'exécuter le code, vous devez changer "SheetName" dans la variable "strSheetName" par le nom réel des feuilles que vous souhaitez fusionner.

   

3. Appuyez sur "F5" pour exécuter le code. Une fenêtre "Sélectionnez les fichiers Excel" apparaîtra, veuillez choisir les classeurs contenant les feuilles de calcul avec le même nom que vous souhaitez fusionner, puis cliquez sur le bouton "Ouvrir".

   

4. Une fois la fusion terminée, une boîte de dialogue "Microsoft Excel" apparaîtra pour confirmer que les feuilles de calcul ont été combinées avec succès. Cliquez sur "OK" pour la fermer.

   

Maintenant, le contenu de toutes les feuilles de calcul ayant le même nom des classeurs sélectionnés a été fusionné dans une seule feuille de calcul dans un nouveau classeur.

Fusionnez facilement des feuilles de calcul avec le même nom en une seule avec Kutools pour Excel

Bien que VBA offre des capacités d'automatisation puissantes dans Excel, il peut être complexe et intimidant pour les utilisateurs sans compétences en programmation. De plus, VBA nécessite des pratiques de sécurité prudentes et peut présenter des problèmes de compatibilité. En revanche, "Kutools for Excel" offre une alternative plus conviviale et sécurisée pour simplifier le processus de fusion des feuilles de calcul à partir de plusieurs classeurs, éliminant ainsi le besoin de codage complexe et rendant cette tâche accessible à tous les utilisateurs d'Excel.

Après avoir installé Kutools pour Excel, sélectionnez "Kutools Plus" > "Consolider" pour ouvrir l'assistant "Fusionner les feuilles de calcul". Ensuite, configurez comme suit.

1. Dans l'assistant "Fusionner les feuilles de calcul – Étape 1 sur 3", sélectionnez l'option "Fusionner toutes les feuilles de calcul de même nom en une seule feuille de calcul" et cliquez sur "Suivant".

   

2. Dans l'assistant "Étape 2 sur 3", cliquez sur le bouton "Ajouter" pour sélectionner les classeurs contenant les feuilles de calcul avec le même nom que vous souhaitez fusionner.
   Remarque : Si les classeurs sont enregistrés dans un dossier, vous pouvez cliquer sur la flèche déroulante à côté du bouton "Ajouter" pour développer le sous-menu, puis sélectionnez "Dossier" pour ajouter rapidement tous les fichiers Excel de ce dossier.

   

3. Après avoir ajouté les classeurs, vous avez deux options selon vos besoins :
   • Si vous souhaitez fusionner toutes les feuilles de calcul des classeurs sélectionnés en un seul classeur, cliquez simplement sur le bouton "Suivant". Toutes les feuilles de calcul seront fusionnées, et le contenu des feuilles de calcul de même nom sera regroupé dans une seule feuille de calcul.
   • Si vous souhaitez fusionner uniquement les feuilles de calcul ayant le même nom, commencez par sélectionner une feuille de calcul dans la section "Liste des feuilles de calcul", puis cliquez sur le bouton "Même feuille". Cela sélectionnera automatiquement toutes les feuilles de calcul ayant le même nom dans les classeurs ajoutés. Après cela, cliquez sur "Suivant" pour continuer.

   

4. À la dernière étape de l'assistant, conservez l'option par défaut sélectionnée ou personnalisez les paramètres selon vos besoins, puis cliquez sur "Terminer".

   

5. Choisissez un dossier de destination pour le classeur combiné, entrez un nom de fichier comme souhaité, puis cliquez sur le bouton "Enregistrer" pour terminer l'opération.

   

La fusion de feuilles de calcul ayant le même nom à partir de plusieurs classeurs peut être réalisée efficacement avec les bons outils. Que vous préfériez les méthodes intégrées ou les modules complémentaires avancés, ces deux approches offrent des solutions fiables adaptées à différents niveaux de compétence. Maîtriser ces techniques augmentera considérablement votre productivité et rationalisera la consolidation des données dans Excel.

Si vous souhaitez en savoir plus sur cette fonctionnalité, consultez cette page : Tutoriel pour fusionner toutes les feuilles de calcul de même nom en une seule feuille de calcul.

Articles connexes :

Comment combiner plusieurs classeurs en un seul classeur dans Excel ?

Comment fusionner des feuilles de calcul / classeurs en une seule feuille de calcul ?

Comment résumer les données de feuilles de calcul / classeurs en une seule feuille de calcul ?