- 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
-
-
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