Joy a rencontré un problème lors de la fusion de plusieurs classeurs. La majorité des classeurs – environ 200 d’entre eux, tous dans un seul dossier – contiennent chacun une seule feuille de calcul, mais certains en contiennent plus. Les feuilles de calcul formant chacun de ces classeurs doivent être ajoutées à un seul classeur.

Le moyen le plus simple de réaliser des fusions de cette ampleur, en particulier si vous devez le faire souvent, est d’utiliser une macro. La macro suivante affiche une boîte de dialogue vous demandant de sélectionner les fichiers à fusionner. (Vous pouvez sélectionner plusieurs classeurs en maintenant la touche Ctrl enfoncée lorsque vous cliquez sur chacun d’eux.) Il parcourt la liste que vous sélectionnez, ouvrant chacun d’eux et déplaçant toutes ses feuilles de calcul à la fin du classeur avec le code.

Sub CombineWorkbooks()

Dim FilesToOpen     Dim x As Integer

On Error GoTo ErrHandler     Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename _       (FileFilter:="Microsoft Excel Files (.xls?), .xls?", _       MultiSelect:=True, Title:="Files to Merge")



If TypeName(FilesToOpen) = "Boolean" Then         MsgBox "No Files were selected"

GoTo ExitHandler     End If

x = 1     While x <= UBound(FilesToOpen)

Workbooks.Open FileName:=FilesToOpen(x)

Sheets().Move After:=ThisWorkbook.Sheets _           (ThisWorkbook.Sheets.Count)

x = x + 1     Wend

ExitHandler:

Application.ScreenUpdating = True     Exit Sub

ErrHandler:

MsgBox Err.Description     Resume ExitHandler End Sub

Lors du processus d’ajout des feuilles de calcul à la fin du classeur, Excel ajoutera automatiquement un (2), (3), etc. lorsque des noms de feuille de calcul en double sont détectés. Toutes les formules du livre faisant référence à d’autres feuilles seront également mises à jour pour refléter les nouveaux noms.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (12652) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

lien: / excel-Merging_Many_Workbooks [Fusion de plusieurs classeurs].