Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access lancer macro excel depuis access pb

lancer macro excel depuis access pb

2 réponses
Avatar
jipi
Bonjour,
J'ai un petit souci pour lancer une macro excel depuis access. Ma macro ne
se lance pas, j'ai un message d'erreur qui m'indique ne pas trouver la macro
alors que celle ci fonctionne parfaitement depuis excel seul.
J'ai mis en référence les librairies excel,access,office.

Merci de votre aide par avance

jipi

Dans access :
Function test_accexc()
Dim mob As Object
Set mob = CreateObject("Excel.application")
mob.Visible = True
mob.Workbooks.Open ("monfichier.xls")
mob.Run ("monfichier.xls!test_exacc")
End Function

Dans excel :
Sub test_exacc()
MsgBox "macro Excel"
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonsoir.

j'ai testé et ça marche, j'ai seulement rajouté le set nothing à la fin.
j'ai changé les noms de fichiers évidemment.
dans le formulaire:
Private Sub Commande0_Click()
Dim mob As Object
Set mob = CreateObject("Excel.application")
mob.Visible = True
mob.Workbooks.Open ("classeur1.xls")
mob.Run ("classeur1.xls!macro1")
Set mob = Nothing
End Sub

Dans excel:
Sub Macro1()
MsgBox "bonjour"
End Sub

excel me dit bien Bonjour.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"jipi" a écrit dans le message de news:

Bonjour,
J'ai un petit souci pour lancer une macro excel depuis access. Ma macro ne
se lance pas, j'ai un message d'erreur qui m'indique ne pas trouver la
macro
alors que celle ci fonctionne parfaitement depuis excel seul.
J'ai mis en référence les librairies excel,access,office.

Merci de votre aide par avance

jipi

Dans access :
Function test_accexc()
Dim mob As Object
Set mob = CreateObject("Excel.application")
mob.Visible = True
mob.Workbooks.Open ("monfichier.xls")
mob.Run ("monfichier.xls!test_exacc")
End Function

Dans excel :
Sub test_exacc()
MsgBox "macro Excel"
End Sub



Avatar
jipi
Bonjour Raymond,

Merci de ta collaboration.
En fait je crois que mon pb venait du fait que j'avais un nom de macro assez
long avec des underscores, en modifiant le nom de ma macro ça marche

A+
jipi

"Raymond [mvp]" wrote:

Bonsoir.

j'ai testé et ça marche, j'ai seulement rajouté le set nothing à la fin.
j'ai changé les noms de fichiers évidemment.
dans le formulaire:
Private Sub Commande0_Click()
Dim mob As Object
Set mob = CreateObject("Excel.application")
mob.Visible = True
mob.Workbooks.Open ("classeur1.xls")
mob.Run ("classeur1.xls!macro1")
Set mob = Nothing
End Sub

Dans excel:
Sub Macro1()
MsgBox "bonjour"
End Sub

excel me dit bien Bonjour.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"jipi" a écrit dans le message de news:

Bonjour,
J'ai un petit souci pour lancer une macro excel depuis access. Ma macro ne
se lance pas, j'ai un message d'erreur qui m'indique ne pas trouver la
macro
alors que celle ci fonctionne parfaitement depuis excel seul.
J'ai mis en référence les librairies excel,access,office.

Merci de votre aide par avance

jipi

Dans access :
Function test_accexc()
Dim mob As Object
Set mob = CreateObject("Excel.application")
mob.Visible = True
mob.Workbooks.Open ("monfichier.xls")
mob.Run ("monfichier.xls!test_exacc")
End Function

Dans excel :
Sub test_exacc()
MsgBox "macro Excel"
End Sub