Exporter un objet d'une base externe


Cette fonction permet d'exporter un objet se trouvant dans une base de données externe dans une autre base de données.

L'argument "strDbSrc" correspond au chemin complet de la base externe contenant l'objet que l'on souhaite exporter.

L'argument "strDbDest" correspond au chemin complet de la base externe où l'on veut que l'objet soit exporté.

L'argument "intType" correspond au type d'objet que l'on souhaite exporter, voir les commentaires de la fonction pour déterminer la valeur à mettre. (à partir d'Access 2000, il est possible de définir le type de donnée de cet argument comme AcObjectType en mettant intType As AcObjectType)

L'argument "strObject" correspond au nom de l'objet que l'on souhaite exporter, il s'agit d'une donnée de type String.

Public Function ExportObjectExterne(strDbSrc$, strDbDest$, intType%, strObject$)
'** intType : 0 pour table, 1 pour requête, 2 pour formulaire
'** 3 pour état, 4 pour macro et 5 pour module

Dim acApp As Object

Set acApp = CreateObject("Access.Application")
With acApp
    .OpenCurrentDatabase strDbSrc
    .DoCmd.TransferDatabase acExport, , strDbDest, _
        intType, strObject, strObject
    .CloseCurrentDatabase
End With

acApp.Quit: Set acApp = Nothing

End Function

Cette fonction pourra être appelée dans VBA de la façon suivante :

ExportObjectExterne "c:\...BaseExterneSource", "c:\...\BaseExterneDestination.mdb", 2, "NomFormulaireAExporter"

 

Retour haut de page

Auteur : Jessy SEMPERE