P
pias
Guest
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
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