Encore le sous-sous menu

[pias]

Bonsoir le Forum,

Désolé de revenir sur le sujet mais même avec la plus grande volonté du monde je n'y arrive pas.

Je crée un menu ANNUELLES, avec 3 sous-menus ( Home, Configuration, et commandes).

Jaimerais que lorsqu' on selectionne les commandes un autre sous-menu contenant les noms des commandes puisse s'afficher de maniere a rediriger à la page de chaque commande.

Voici le code et le zip si quelqu'un a des infos ou l'amabilité de me donner un coup de puce , c'est très sympa.


@+
@pias
------------------------------------------------------------------
Sub InsereANNUELLES()
With CommandBars(1).Controls.Add(msoControlPopup, before:=1)
.Caption = "ANNUELLES"
With .Controls.Add(msoControlButton)
.Caption = "Home"
.FaceId = 350
.BeginGroup = True
.OnAction = "Home"
End With
.Caption = "ANNUELLES"
With .Controls.Add(msoControlButton)
.Caption = "Configuration"
.FaceId = 350
.BeginGroup = True
.OnAction = "Menu"
End With
.

Caption = "ANNUELLES"
With .Controls.Add(msoControlButton)
.Caption = "Commandes"<<<<Ici jaimerais ajouter a eutre menu contenant le non des commandes >>>>
.FaceId = 350
.BeginGroup = True
.OnAction = "Menucommandes"
End With

End With
End Sub

 

[pyrof]

Bonjour,

Je n'ai pas beaucoup de temps, mais voici une autre façon de faire des menus.

Regarde

Toute critique est bien venue

Bon courrage

 

[pias]

Salut et merci beaucoup, pyrof

C'est très sympa de ta part, en plus si tu n'as pas beaucoup de temps!..

Je vais regarder tous ça en detail, mais en prencipe c'est un menu comme celui que tu mets dans le fichier joint que je voulais faire.

a+
@pias