Pb sur méthode onAction de CommandBarButton

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:

---

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 ! 8O

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

Merci beaucoup pour vos réponses

Salut jamespage

Es tu sûr de programmer en VB6 et non en VBA, sinon vois ce lien, Comment savoir si l'on utilise VBA ou VB6 ?

Bonjour ProgElecT, je suis certain de coder en vb6.
Mon code a été inspiré de code trouvé sur le net. Peut-être que celui-ci est en vba ! Si c'est le cas, comment faire un telle action en vb6 ?

Merci

Ne faut-il pas déclarer ta fonction toto ainsi : Private Function toto() As Office.CommandBarControl qui doit retourner un objet ?

et si tu rend publique ta procédure Action 1 :

Code:

---

Private Sub Action1()

---

devient

Code:

---

Public Sub Action1()

---

Même résultat, c'est à dire, aucune action n'est lancée...

elle est placée ou cette procédure ? Action1 ?

La procédure "Action1" est placée dans le même fichier que sa fonction appelante. Juste après. J'ai essayé de la placer avant, même résultat...

et ta "fonction appelante" .... elle est ou alors ? module public ?



Pense aussi qu'il n'est pas ici question de "fonction appelante" ta fonction toto permet de créer ta barre de menu mais en aucun cas elle n'appelle ta procédure Action1...

Voici comment est organisé mon projet vb (c'est un add-in) :

MonProjet.vbp contient deux fichiers, maForme.frm et Connect.Dsr.

La fonction appelante est "public" dans Connect.Dsr.

Bonjour,
Sauf erreur de ma part, OnAction associe une macro VBA au menu ajouté à l'ide VBA. :aie:

S'il s'agit de lancer une procédure interne à l'addin il faut passer par la gestion des évènements CommandBarEvents.
L'action sera alors lancée via l'évènement

Code:

---

1 2 3 4 5 6

Private Withevents monMenu as CommandBarEvents     Private Sub monMenu_Click((ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean) '.../... End Sub

---

Oui merci Dark Vader, c'est ce que je suis en train de mettre en place et ça marche !