Comment exporter toutes les macros d’un classeur vers un autre ?

Si vous devez exporter plusieurs codes VBA de macros d’un classeur vers un autre, vous pouvez normalement les copier un par un. Toutefois, cette méthode est chronophage. Dans cet article, je vais expliquer comment exporter rapidement toutes les macros d’un classeur vers un autre et enregistrer les fichiers de macro dans un dossier spécifique.

Exporter toutes les macros d’un classeur vers un autre à l’aide d’un code VBA

---

Exporter toutes les macros d’un classeur vers un autre à l’aide d’un code VBA

Pour exporter tous les codes VBA de macros d’un fichier Excel vers un autre, procédez comme suit :

1. Commencez par ouvrir simultanément les deux classeurs : celui qui contient les macros et celui vers lequel vous souhaitez les exporter. Voir la capture d’écran :

Office Tab – Ouvrez, lisez, modifiez et gérez plusieurs documents Office dans une seule fenêtre à onglets Office Tab vous offre une navigation, une édition et une gestion par onglets dans les applications Microsoft Office. Ouvrez plusieurs documents ou fichiers dans une seule fenêtre à onglets, tout comme avec les navigateurs IE 8/9/10, Firefox et Google Chrome.Cliquez pour télécharger et profiter dès maintenant d’un essai gratuit !

2. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez sur Insérer > Module, puis collez la macro suivante dans la fenêtre Module.

Code VBA : Exporter toutes les macros d’un classeur vers un autre :

Sub ExportAndImportModule()
Dim xStrSWSName, xSreDWSName As String
Dim xSWS, xDWS As Workbook
xStrSWSName = "old-workbook"
xSreDWSName = "new-workbook"
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
 With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
End With
On Error GoTo Err1
Set xSWS = Workbooks(xStrSWSName & ".xlsm")
Set xDWS = Workbooks(xSreDWSName & ".xlsm")
Set xvbap = xSWS.VBProject
Set xVBC = xvbap.VBComponents
For Each Module In xSWS.VBProject.VBComponents
If Module.Type = vbext_ct_StdModule Then
Module.Export (xFilePath & "\" & Module.Name & ".bas")
xDWS.VBProject.VBComponents.Import (xFilePath & "\" & Module.Name & ".bas")
End If
Next Module
Exit Sub
Err1:
    MsgBox "come to nothing!"
End Sub

Remarque: Dans le code ci-dessus, «old-workbook» correspond au nom du classeur dont vous souhaitez exporter les macros, et «new-workbook» désigne le classeur vers lequel vous souhaitez importer les macros. Vous devez remplacer ces noms par les vôtres. Les deux classeurs doivent être au même format.xlsmType de fichier.

4. Après avoir collé le code ci-dessus, appuyez sur la touche F5 pour exécuter ce code. Une fenêtre Parcourir s’affiche alors ; sélectionnez un dossier où enregistrer les fichiers de macro exportés. Voir la capture d’écran :

5. Cliquez ensuite sur le bouton OK : toutes les macros seront exportées du classeur spécifié vers un autre fichier Excel, et les fichiers de macro seront enregistrés dans le dossier indiqué. Voir la capture d’écran :

Remarque : Ce code permet d’exporter uniquement les macros issues d’un module standard.