C
Cantalou
Guest
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 ?
Merci d'avance ! c'est un peu grace à vous s'il y a quand même quelque chose qui marche dans ces quelques lignes !
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 ?
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 SubMerci d'avance ! c'est un peu grace à vous s'il y a quand même quelque chose qui marche dans ces quelques lignes !