Dim accessApp Set accessApp = GetObject(, "Access.Application") ' Executer le code directement via VBE Dim vbProj Set vbProj = accessApp.VBE.VBProjects(1) ' Trouver le module Dim vbComp Set vbComp = vbProj.VBComponents("mod_FixFormBindings") ' Executer la procedure accessApp.DoCmd.RunMacro "mod_FixFormBindings.FixAllFormBindings" WScript.Echo "Done!"