Discussion :

[virtualinsanity]

Bonjour a tous jsui nouvelle sur le forum et biensur g besoin d'aide. voila mon pb : je fais un travail sous excel et j'aimerai pouvoir executer une macro access sous excel VBA. voila mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub ExecuteMacroAccess()
Dim MyBase As New Access.Application
Set MyBase = New Access.Application
MyBase.OpenCurrentDatabase "G:\My Documents\graphs\Silos.mdb"
MyBase.Visible = False
MyBase.DoCmd.RunMacro "MacroTest", , ""
MyBase.Quit
Set MyBase = Nothing
End Sub

Sauf que je recoi un msg d'erreur : Application-defined or object-defined error (erreur 2391)
si quelqu'un peut m'aider plz j'en ai vraiment besoin
merci d'avance

[romrai]

Salut,

juste deux questions:

1/ est ce que t'a bien selectionné la librerie access dans outils-reférence?

2/ si oui, l'erreur se trouve sur quelle ligne de ton code?

[virtualinsanity]

Merci Romrai de me repondre.
wi j'ai bien ajoute la biblio et kan g le message la ligne ou se trouve l'erreur ne s'affiche pas le compilateur ne la precise pas et ds la boite de message g le choix entre OK ou HELP c tt! je sai ke c pa suffisant kom infos mai j'espere ke tu pourra m'aider merci

[Vesta]

Ca foire ou exactement?

Met un point d'arret en fesant F9 sur la premiere ligne et relance la procédure... Ensuite continue en appuyant sur F8 pour executer l'instruction suivante... Ainsi dessuite pour savoir a quel niveau est l'erreur

[virtualinsanity]

ca foire la:
MyBase.DoCmd.RunMacro "MacroTest", , ""
sur cette commande

[Vesta]

Essaie comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub ExecuteMacroAccess()
Dim MyBase As New Access.Application
Set MyBase = New Access.Application
MyBase.OpenCurrentDatabase "G:\My Documents\graphs\Silos.mdb"
MyBase.Visible = False
MyBase.DoCmd.RunMacro "MacroTest"
MyBase.Quit
Set MyBase = Nothing
End Sub