On Error Resume Next

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

' Ouvrir la base (sans fermer la session existante)
accessApp.OpenCurrentDatabase "C:\Users\alexi\Documents\projects\timetrack-pro\db\TimeTrackPro.accdb", True

' Executer directement le code VBA via DoCmd.RunCode
accessApp.DoCmd.RunCode "mod_FixFormBindings.FixAllFormBindings"

If Err.Number <> 0 Then
    WScript.Echo "Error: " & Err.Number & " - " & Err.Description
Else
    WScript.Echo "Success!"
End If

' Fermer
accessApp.CloseCurrentDatabase
accessApp.Quit

Set accessApp = Nothing