On Error Resume Next

Dim accessApp
Set accessApp = CreateObject("Access.Application")

accessApp.OpenCurrentDatabase "C:\Users\alexi\Documents\projects\timetrack-pro\db\TimeTrackPro.accdb"
accessApp.Visible = True

' Ouvrir le formulaire Accueil
accessApp.DoCmd.OpenForm "frm_Accueil", 0  ' 0 = acNormal

WScript.Sleep 1000

' Declencher le clic sur le bouton
accessApp.Forms("frm_Accueil").btnClients.SetFocus
accessApp.Forms("frm_Accueil").btnClients_Click

WScript.Sleep 3000

' Attendre pour voir les messages
WScript.Echo "Test termine. Appuyez sur OK pour fermer."

accessApp.Quit
Set accessApp = Nothing