Transférer la table d'une base Access vers une autre bases Access

Page mise à jour le : 24/12/2010

      Comment faire cela depuis Excel avec VBA ?

Pour cela nous allons utiliser l'instruction Set avec la fonction CreateObject
pour créer une variable objet qui représente un objet Access Application.

      Nous allons copier la table VentesClients de la base Access nommée Base_Source.mdb
vers la base Access nommée Base_Destination.mdb

      Pour réaliser cette manipulation voici le code VBA à utiliser.

 

Sub Export()

      Dim objApp As Object

      Set objApp = CreateObject( "Access.Application" )

      objApp.OpenCurrentDatabase ( "C:\Excel\Base_Destination.mdb" )

      objApp.Visible = False

      objApp.DoCmd.TransferDatabase acImport, "Microsoft Access" , "C:\Excel\Base_Source.mdb" , _

                  acTable, "VentesClients" , "VentesClients"

      Set objApp = Nothing

End Sub