AUTOMATISER L'IMPORTATION DE MODULE

Sub Import_Module(ByVal Nom_Module As String, Nom_Fichier As String) 
' Nom_Interne : nom que vous donnez au module que vous allez importer 
' Nom_Fichier : chemin d'accès au fichier que vous allez importer 

Dim Mon_Module As Module 
On Error GoTo Erreur 

    'Création du nouveau module 
    DoCmd.RunCommand acCmdNewObjectModule 
    'Récupération du module en tant qu'objet 
    Set Mon_Module = Application.Modules(Application.CurrentObjectName) 
    'Importation du code 
    Mon_Module.AddFromFile Nom_Fichier 
    'Sauvegarde du module 
    DoCmd.Save acModule, Mon_Module 
    'Fermeture du module 
    DoCmd.Close acModule, Mon_Module, acSaveYes 
    'Renommage du module 
    DoCmd.Rename Nom_Module, acModule, Mon_Module 

Sortie: 
    Set Mon_Module = Nothing 
    Exit Sub 

Erreur: 
    MsgBox Err.Description, vbCritical, "Erreur n°" & Err.Number 
    Resume Sortie 
End Sub 

Private Sub test() 
Import_Module "toto", "c:\sos windows\code.txt" 
End Sub