Bonjour à tous.

Je souhaite ajouter à mon VB un nouveau sous-menu pour avoir de nouvelles fonctionnalités (plugin ou add-in).
Dans la barre d'outils, il existe un menu déjà existant "Tools". A ce dernier, j'ajoute un nouveau sous-menu que j'appelle "SousMenu". A ce sous menu j'ajoute deux sous menus. Jusqu'ici je n'ai pas eu de soucis particulier.
Voici ce que cela donne :
Tools
...|__Options...
...|__"Sous menu"
..........|___"Action1"
..........|___"Action2"

J'aimerais pour "Action1 et "Action2" associer des actions.

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function toto() as string
  ...
  Set cbbSousMenu1 = cbMenuCommandBar.Controls.Add(Type:=msoControlButton)
    With cbbSousMenu1
        .Style = msoButtonIcon
        .Caption = "Action1"
        .OnAction = "Action1"
    End With
  ...
End Function
 
Private Sub Action1()
    MsgBox "Exécution de Action1"
End Sub
Hors lorsque je clique sur mon sous menu "Action1" rien ne se passe !

Quelqu'un aurait-il déjà été confronté à ce problème ?

Merci beaucoup pour vos réponses