Automatiser l'importation de module

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 688 fois - Téléchargée 59 fois

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

Ajouter un commentaire

Commentaire

jug0605
Messages postés
2
Date d'inscription
mercredi 7 décembre 2005
Statut
Membre
Dernière intervention
2 février 2010
-
gracais por el aporte

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.