Mon menu n'exécute pas ma macro

[Cantalou]

Bonjour,

Je tente de créer un menu (ça c'est bon) qui me lance une macro.

Pouvez-vous me dire pourquoi ça ne marche pas avec ce code ?

Sub AjoutMenu()
Dim LeMenu As CommandBarPopup
    With Application.CommandBars(1)
        Set LeMenu = .Controls.Add _
            (Type:=msoControlPopup)
    End With
    LeMenu.Caption = "Mes Macros"
    With LeMenu.Controls.Add(msoControlButton)
        .Caption = "Message"
        .OnAction = "!<Message>"
    End With
End Sub


Sub Message()
MsgBox "Bonjour le monde!"
End Sub

Merci d'avance ! c'est un peu grace à vous s'il y a quand même quelque chose qui marche dans ces quelques lignes !

 

[skoobi]

Re : Mon menu n'exécute pas ma macro

Bonjour,

Regarde du coté de:
.OnAction = "!<Message>"
le texte entre guillemets doit correspondre au nom exact de la macro.
Exemple:
Sub Test()
....
.....
End Sub
alors:
.OnAction = "Test"

 

[Cantalou]

Re : Mon menu n'exécute pas ma macro

C'est si bête ! ....

MERCI !!!