''menu Outils/Références... : Library Access
''C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB
''Microsoft Access 11.0 Object Library
Const MA_SOURCE As String = "C:\bd1.mdb"
Const MA_DESTINATION As String = "C:\bd2.mdb"
Const MA_TABLE As String = "tblSource"
Sub CopieTblMdb2Mdb()
Dim myApp As Object 'Access.Application
Set myApp = CreateObject("Access.Application")
With myApp
'°°° Désactive le "Security warning" °°°
.AutomationSecurity = 1 'msoAutomationSecurityLow
'°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
.OpenCurrentDatabase filepath:=MA_SOURCE
'--- (SourceObjectType:=0) 0 = acTable ---
.DoCmd.CopyObject _
DestinationDatabase:=MA_DESTINATION, _
NewName:="copie_" & MA_TABLE, _
SourceObjectType:=0, _
SourceObjectName:=MA_TABLE
.CloseCurrentDatabase
End With
Set myApp = Nothing
End Sub