Utiliser une macro complémentaire via un Command Button

Bonjour à tous,

Alors voilà, j'ai crée une macro complémentaire. Jusque là tout va bien.
Je l'ais chargé, je ne sais pas trop quel mot utilisé mais elle est dans la liste de mes macros complémentaires disponibles et cochées.

A présent je voudrais que lorque je click sur mon CommandButton, il m'execute ma macro. Sauf que j'obtiens le message d'erreur suivant: Erreur de compilation: procédure attendue , et non une varaible

Voici le code de la macro complémentaire
Nom de fichier: MacroComplementaire_V0.xla

Code:

---

1 2 3 4

Sub MacroComplementaire() MsgBox "Toto" End Sub

---

Et le code de mon CommandButton:

Code:

---

1 2 3 4 5 6

Private Sub MacroComplementaire_Click()   MacroComplementaire   End Sub

---

Merci.

Et avec :

Code:

---

1 2 3 4 5

Private Sub MacroComplementaire_Click()   Call MacroComplementaire   End Sub

---

Avec Call, j'ai la même erreur.
Avec Application.Run, ben pas d'erreur mais ça avance pas à grand chose car il fait rien.

Est-ce que j'ai loupé quelque chose sur le principe de fonctionnement?

Il faudrait que ton code soit directement dans le click du bouton, cela éviterai un appel inutile.

Code:

---

1 2 3

Private Sub MacroComplementaire_Click() MsgBox "Toto" End Sub

---

avec bien entendu MacroComplementaire comme nom du bouton et pas comme nom de sub.;)

Si c'était si simple, ça serait déjà fait ainsi. Et ceci n'est en aucun cas un appel inutile. C'est du code récurrent qui se trouve dans la macro complementaire. Le msgbox "toto" n'étant là que pour faire le test, car si lui fonctionne le reste viendra.

Donc, aucune idée du pourquoi, du comment de la chose?

Est-ce normalement faisable? Si oui, vous avez déjà rencontré un tutoriel là-dessus, car j'ai pas trouvé.

Le problème ne viendrait pas du fait que tu as un bouton et un sub qui porte le même nom (macrocompelentaire) ? Je ne crois pas que VBA l'autorise, cela génère des conflits.

Bon ben, j'y avais pas fait attention à ça. C'est du code que ej dois modifier, et moi j'ai l'habitude de mettre CB devant quand c'est un nom de bouton. Passons.

A présent, j'ai une autre erreur, qui certes est pas top, mais déjà un peu mieux.

Code:

---

1 2 3 4 5 6

Private Sub CB_MacroComplementaire_Click() MsgBox "toto1" Call MacroComplementaire MsgBox "toto2" End Sub

---

Erreur: Sub ou Function non définie

Comme dans le .xla , elle est contenue dans un module, j'ai mis le nom du module . la macro.
Ca a rien changé.

bonsoir

tu peux utiliser

Code:

---

1 2 3

Private Sub CommandButton1_Click() Application.Run "'NomFichier.xla'!Module1.MacroComplementaire" End Sub

---

bonne soirée
michel

Merci SilkyRoad, ça marche impeccable.

Et merci à zandru pour son aide.

J'ai quand même une question, pourquoi faut'il spécifier le nom de la macro complémentaire? Excel VBA n'est pas capable de linker?

Bonjour

Citation:

---

J'ai quand même une question, pourquoi faut'il spécifier le nom de la macro complémentaire? Excel VBA n'est pas capable de linker?

---

Cela permet de différencier deux procédures qui pourraient être nommées à l'indentique, dans deux classeurs différents.


bonne journée
michel

J'ajouterais qu'un classeur de macros complémentaires (.xla) reste avant tout un classeur. ;)