1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub testExtMacro()
Dim accApp As Access.Application
Dim strDataBase As String
Dim strMacro As String
' Remplacer X:\CheminComplet par le chemin complet jusqu'à la base
strDataBase = "X:\CheminComplet\Developpeur.mdb"
strMacro = "125 - PV_TEST"
Set accApp = CreateObject("Access.Application")
' Juste le temps de la mise au point.
' Si ça fonctionne on peut enlever la ligne qui suit
accApp.Visible = True
accApp.OpenCurrentDatabase "E:\Mes Documents\Access\COMPTOIR_PWD.mdb", False
accApp.DoCmd.RunMacro strMacro
accApp.Quit
Set accApp = Nothing
End Sub |
Partager