Private Sub Workbook_Open()
Dim strDatabasePath As String
Dim appAccess As Access.Application
strDatabasePath = "C:\My Documents\LeNomduFichierAccess.mdb"
Set appAccess = New Access.Application
With appAccess
Application.DisplayAlerts = False
.OpenCurrentDatabase strDatabasePath
.DoCmd.RunMacro "LenomdelamacroAccess"
.Quit
End With
Set appAccess = Nothing
End Sub