Discussion :

[theshark85]

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 :

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

1
2
3
4
 
Sub MacroComplementaire()
 MsgBox "Toto"
End Sub

Et le code de mon CommandButton:

Code :

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

1
2
3
4
5
6
 
Private Sub MacroComplementaire_Click()
 
    MacroComplementaire
 
End Sub

Merci.

[zandru]

Et avec :

Code :

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

1
2
3
4
5
Private Sub MacroComplementaire_Click()
 
    Call MacroComplementaire
 
End Sub

[theshark85]

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?

[zandru]

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

Code :

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

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.

[theshark85]

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é.

[zandru]

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.

[theshark85]

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 :

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

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

[theshark85]

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

[SilkyRoad]

bonsoir

tu peux utiliser

Code :

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

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

bonne soirée
michel

[theshark85]

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?

[SilkyRoad]

Bonjour

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

[decondelite]

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