Outre l’importation de fichiers texte dans des modules, il existe également une fonction d’exportation de modules dans Excel, avec laquelle vous pouvez enregistrer votre programmation dans des fichiers texte.

Sub EnregistrerModuleVersFichierTexte()
Dim VBComp As Object
Const ExporterFichier = "c:\Monfichier.txt"
On Error Resume Next
Set VBComp = _
ThisWorkbook.VBProject.VBComponents("Module1")
With VBComp
.Export ExporterFichier
End With
End Sub

Utilisez la méthode Export pour enregistrer un composant en tant que fichier texte. Si vous souhaitez transférer un module complet dans un nouveau classeur, exportez-le d’abord dans un fichier texte, insérez un nouveau classeur et exécutez la fonction d’importation. Le tout pourrait alors ressembler à ceci :

Sub CopierModuleNouveauDossier()
Dim s_Fichier As String
With ActiveWorkbook
s_Fichier = .Path & "\Module.txt"
.VBProject.VBComponents("Module1").Export s_Fichier
End With
Workbooks.Add
ActiveWorkbook.VBProject.VBComponents.Import s_Fichier
End Sub