Discussion :

[jamespage]

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

[ProgElecT]

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 ?

[jamespage]

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

[l_autodidacte]

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

[SfJ5Rpw8]

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

Code :

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

Private Sub Action1()

devient

Code :

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

Public Sub Action1()

[jamespage]

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

[SfJ5Rpw8]

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

[jamespage]

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

[SfJ5Rpw8]

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