EXECUTION DUN MACRO DANS UNE AUTRE BDD

Bonsoir,

j essaie, a partir d une BDD, d executer une macro situee dans une autre BDD;
la macro s execute correctement, mais ma function bloque au niveau de l instruction RunMacro?!?
J essaie les deux methodes suivante, mais j arrive au meme resultat
======================================================================
Function OpenNB_AMENGT_MAJ()
Static ac As Access.Application: Set ac = New Access.Application
ac.Visible = False
ac.OpenCurrentDatabase ("R:\Jean-Nicolas\TDB\TDB_TRESO_NB_AMENGT.accdb")
ac.DoCmd.RunMacro "MAJ"
End Function
======================================================================
Function OpenSCIL2GX_MAJ()
Dim acS
Dim acCmd
Set acS = CreateObject("access.Application")
acS.OpenCurrentDatabase "R:\Jean-Nicolas\TDB\TDB_TRESO_NB_AMENGT.accdb"
Set acCmd = acS.DoCmd
acCmd.RunMacro "MAJ"
End Function
======================================================================
Quelqu un aurai t il une idee ?
Par avance merci.

Bonjour,

j ai finalement trouve une solution en faisant ceci :
=======================================================================
Function OpenSCIL2GX_MAJ()
On Error Resume Next
Dim acS
Dim acCmd
Set acS = CreateObject("access.Application")
acS.OpenCurrentDatabase "R:\Jean-Nicolas\TDB\TDB_TRESO_NB_AMENGT.accdb"
Set acCmd = acS.DoCmd
acCmd.RunMacro "MAJ"
End Function
======================================================================
la function execute bien la macro MAj dans la base cible et ne bloque plus sur le message d erreur...
si cela peut aider qqu un d autre, je partage avec plaisir ma modest victoire du moment...
@+