Comment fusionner plusieurs classeurs en un seul classeur maître dans Excel ?
Vous êtes-vous déjà retrouvé bloqué à devoir combiner plusieurs classeurs Excel en un seul classeur maître ? Le plus fastidieux, c’est que ces classeurs contiennent souvent plusieurs feuilles de calcul. Et comment fusionner uniquement certaines d’entre elles, issues de différents fichiers, en un seul classeur ? Ce tutoriel vous propose plusieurs méthodes pratiques pour résoudre ce problème, étape par étape.
- Méthode A :Combiner plusieurs classeurs en un seul à l’aide de la fonction Déplacer ou Copier
- Méthode B :Combiner plusieurs classeurs ou certaines feuilles de calcul de ces classeurs dans un classeur maître à l’aide de VBA
- Méthode C :Combiner facilement plusieurs classeurs ou certaines feuilles de calcul de ces classeurs en un seul classeur
Combiner plusieurs classeurs en un seul à l’aide de la fonction Déplacer ou Copier
S’il ne s’agit que de quelques classeurs à combiner, utilisez la commande **Déplacer ou Copier** pour transférer manuellement les feuilles du classeur d’origine vers le classeur maître.
1. Ouvrez les classeurs que vous souhaitez fusionner dans un classeur maître.
2. Sélectionnez les feuilles de calcul du classeur d’origine que vous souhaitez transférer ou dupliquer vers le classeur maître.
Remarques :
[[PH_26]). Vous pouvez sélectionner plusieurs feuilles de calcul non adjacentes en maintenant la touche Ctrl enfoncée et en cliquant une par une sur les onglets des feuilles.
[[PH_27]). Pour sélectionner plusieurs feuilles de calcul adjacentes, cliquez sur le premier onglet de feuille, maintenez la touche Maj enfoncée, puis cliquez sur le dernier onglet de feuille pour tout sélectionner.
[[PH_28]). Vous pouvez cliquer avec le bouton droit sur n’importe quel onglet de feuille, puis sélectionner Sélectionner toutes les feuilles dans le menu contextuel pour sélectionner simultanément toutes les feuilles du classeur.
3. Après avoir sélectionné les feuilles nécessaires, cliquez avec le bouton droit sur l’onglet de la feuille, puis choisissez Déplacer ou Copier dans le menu contextuel. Voir la capture d’écran :
4. La boîte de dialogue Déplacer ou Copier s’ouvre alors. Dans la liste déroulante Vers le classeur, sélectionnez le classeur maître vers lequel vous souhaitez déplacer ou copier les feuilles de calcul. Dans la zone Avant la feuille, choisissez l’emplacement souhaité en bas, cochez la case Créer une copie, puis cliquez sur le bouton OK.
Vous verrez alors les feuilles des deux classeurs fusionnées en un seul. Répétez les étapes ci-dessus pour transférer les feuilles des autres classeurs vers le classeur maître.
Combiner plusieurs classeurs ou certaines feuilles de calcul de ces classeurs dans un classeur maître à l’aide de VBA
Si vous devez fusionner de nombreux classeurs en un seul, utilisez les codes VBA suivants pour gagner du temps. Voici la marche à suivre.
1. Placez tous les classeurs que vous souhaitez combiner dans un même dossier.
2. Ouvrez un fichier Excel (ce classeur servira de classeur maître).
3. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications. Dans cette fenêtre, cliquez sur Microsoft Visual Basic pour Applications, puis sur Insertion > Module, et collez le code VBA ci-dessous dans la fenêtre Module.
Code VBA 1 : Fusionner plusieurs Classeur Excel en un seul
Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
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 SubRemarques :
1. Le code VBA ci-dessus conserve les noms des feuilles des classeurs d’origine après la fusion.
2. Si vous souhaitez identifier facilement l’origine de chaque feuille de calcul dans le classeur maître après la fusion, appliquez le code VBA suivant.
3. Si vous souhaitez combiner uniquement certaines feuilles de calcul provenant de différents classeurs dans un classeur maître, le code VBA ci-dessous peut vous aider.
Dans les codes VBA, «C:\Users\DT168\Desktop\KTE\» correspond au chemin du fichier. Dans le code VBA 3, «Feuil1,Feuil3» indique les feuilles de calcul spécifiques que vous souhaitez fusionner dans un classeur maître. Vous pouvez les adapter facilement à vos besoins.
Code VBA 2 : Fusionner les classeurs en un seul classeur (chaque feuille de calcul portera comme préfixe le nom du fichier d’origine) :
Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Code VBA 3 : Fusionner des feuilles de calcul spécifiques de classeurs dans un classeur maître :
Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next
xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"
xArr = Split(xStrName, ",")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub4. Appuyez sur la touche F5 pour exécuter le code. Toutes les feuilles de calcul ou les feuilles spécifiées des classeurs situés dans le dossier indiqué seront alors combinées en un seul classeur maître.
Combiner facilement plusieurs classeurs ou certaines feuilles de calcul de ces classeurs en un seul classeur
Heureusement, l’utilitaire Combiner de Kutools pour Excel simplifie grandement la fusion de plusieurs classeurs en un seul. Découvrez comment utiliser cette fonctionnalité pour combiner facilement plusieurs classeurs !
Avant d’appliquer Kutools pour Excel, veuillez d’abord le télécharger et l’installer.
1. Créez un nouveau classeur et cliquez sur KUTOOLS PLUS > Combiner. Une boîte de dialogue s’affiche alors pour vous rappeler que tous les classeurs à combiner doivent être enregistrés et que cette fonctionnalité ne peut pas être appliquée à des classeurs protégés. Cliquez sur le bouton OK.
2. Dans l’assistant Consolider les feuilles de calcul, sélectionnez l’option Copier des feuilles de calcul de plusieurs classeurs vers un seul classeur, puis cliquez sur le bouton Suivant. Voir la capture d’écran :
3. Dans la boîte de dialogue Consolider les feuilles de calcul - Étape 2 sur 3, cliquez sur Ajouter > Fichier ou Dossier pour ajouter les fichiers Excel que vous souhaitez fusionner. Une fois les fichiers Excel ajoutés, cliquez sur le bouton Terminer et choisissez un dossier pour enregistrer le classeur maître. Voir la capture d’écran :
Tous les classeurs sont désormais regroupés en un seul.
Comparée aux deux méthodes précédentes,Kutools pour Excelprésente les avantages suivants :
- 1) Tous les classeurs et feuilles de calcul sont répertoriés dans la boîte de dialogue ;
- 2) Pour exclure certaines feuilles de calcul de la fusion, il suffit de décocher la case correspondante ;
- 3) Les Feuille de calcul vierge sont automatiquement exclus ;
- 4) Le nom du fichier d’origine sera ajouté en tant que préfixe au nom de la feuille après la fusion ;
- Pour découvrir davantage de fonctions liées à cette fonctionnalité, consultez cette page.
Si vous souhaitez profiter d’un essai gratuit de 30 jours de cet utilitaire,cliquez ici pour le télécharger, puis suivez les étapes indiquées ci-dessus.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels