Discussion :

[Lameth]

Hello,

Je veux, d'un fichier Excel, lancer une macro dans un autre fichier Excelqui est lancee par click sur un bouton (un bouton de la boite a outils de controle, non de la bare d'outils formulaires).

Code :

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

Application.Run "Fichier.xls!Bouton_Click"

A ma grande surprise, ceci ne marche pas...

Une idee?

Lameth

[fring]

Bonjour,

L'idée est la suivante, lorsqu'on clique sur le bouton, on exécute la procédure MaMacro donc...

Code :

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

Application.Run "Fichier.xls!MaMacro"

[Lameth]

ma macro s'appellant "Bouton_Click", le code que tu me proposes est le meme que le mien et ne marche pas...

Le bouton n'est pas un bouton de la bare formulaire auquel on fait "associer macro" mais un bouton "boite a outils de controles"...

[Invité]

Bonjour,

Votre bouton étant créé sur une feuille, je suppose que la macro est également affectée à une feuille ?

Si c'est le cas vous avez essayé en indiquant également le nom de la feuille après le nom du fichier ?

[Lameth]

Non...
En effet c'est affecte a une feuille, suis-je bete,...
J'essaye de ce pas et ne doute guere du resultat, merci..

[fring]

Ca ne marche pas...si si ça fonctionne... mais je n'ai pas donné assez de précision dans ma première réponse.
Je n'en suis pas certain à 100% mais je ne pense pas qu'on puisse appeler une macro évènementielle à partir d'un autre fichier donc l'idée...

Le code que tu as mis dans l'évènement Click de ton bouton

Code :

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

1
2
3
4
5
Private Sub Bouton_Click()
'...
'code
'...
End Sub

tu le retire et tu l'insères dans un Module

Code :

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

1
2
3
4
5
Sub MaMacro()
'...
'code
'...
End Sub

et dans le code de ton bouton

Code :

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

1
2
3
Private Sub Bouton_Click()
MaMacro
End Sub

Ce qui te donnera l'occasion d'appeler MaMacro à partir d'autres fichiers.

[Lameth]

Oui mais comme me l'a dit plus haut jacques_jean, ma macro est dans une Sheet, doit faloir encadre le nom de la sheet par des quotes, je suis en train d'esssayer...

[Lameth]

La solution est:

Code :

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

Application.Run "Fichier.xls!Sheet.Macro"

Merci a tous, j'avais oublie cette satanee Sheet...

[fring]

Autant pour moi, je ne pensais pas que l'on pouvait appeler une macro de type "Private Sub" d'un autre classeur.
On en apprend tous les jours
Merci Jacques-Jean pour la solution