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 = False

' Ouvrir le formulaire en mode normal
accessApp.DoCmd.OpenForm "frm_Accueil", 0  ' acNormal

WScript.Sleep 1000

' Essayer d'appeler directement la procedure
accessApp.Run "Form_frm_Accueil.btnClients_Click"

If Err.Number <> 0 Then
    WScript.Echo "Erreur lors de l'appel: " & Err.Number & " - " & Err.Description
    Err.Clear
End If

WScript.Sleep 2000

' Lire le log si créé
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("C:\Users\alexi\Documents\projects\timetrack-pro\button_log.txt") Then
    Dim logFile
    Set logFile = fso.OpenTextFile("C:\Users\alexi\Documents\projects\timetrack-pro\button_log.txt", 1)
    WScript.Echo "LOG CONTENT:"
    WScript.Echo logFile.ReadAll()
    logFile.Close
Else
    WScript.Echo "Aucun fichier log cree - le code n'a pas ete execute"
End If

accessApp.Quit
Set accessApp = Nothing