Sub CopieTbl()
Dim ApAcc As Object
Dim VPathBdDDes As String ' Base de données de destination
Dim NouvNomTbl As String ' Nouveau nom table copiée, a laisser vide si même nom
Dim NomTblSource As String ' Nom de la table source
Dim VPathBdDSce ' Chemin complet de la BdD SOURCE
' Créer une instance d'ACCESS
Set ApAcc = CreateObject("Access.Application")
' Définir le chemin d'accès de la BdD SOURCE et ouvrir celle-ci
VPathBdDSce = "D:\CheminBase\BdDSource.mdb"
ApAcc.OpenCurrentDatabase VPathBdDSce
' Définir le chemin d'accès de la BdD Destination
VPathBdDDes = "C:\CheminBase\BdDDestination.mdb"
' Définir le nom de la table SOURCE à copier
NomTblSource = "TblSource"
' Définir si on le souhaite le nouveau nom de la table copiée
NouvNomTbl = ""
' Lancer la commande de copie
ApAcc.DoCmd.CopyObject DestinationDatabase:=VPathBdDDes, NewName:=NouvNomTbl, Sourceobjecttype:=acTable, SourceObjectName:=NomTblSource
' Fermer la BdD SOURCE
ApAcc.CloseCurrentDatabase
' Quitter l'instance d'Access
ApAcc.Quit
' Vider la variable mémoire
Set ApAcc = Nothing
End Sub
