EXECUTION DUN MACRO DANS UNE AUTRE BDD

Signaler
Messages postés
5
Date d'inscription
lundi 14 décembre 2009
Statut
Membre
Dernière intervention
11 mars 2010
-
Messages postés
5
Date d'inscription
lundi 14 décembre 2009
Statut
Membre
Dernière intervention
11 mars 2010
-
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.

1 réponse

Messages postés
5
Date d'inscription
lundi 14 décembre 2009
Statut
Membre
Dernière intervention
11 mars 2010

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...
@+