Automatiser l'importation de module

Commenter

Contenu du snippet

Voici une petite fonction bien utile, pour importer un module dans Access :

Source / Exemple : 


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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (webalg)