Creer une nouvelle barre de menus

[jimmylux]

ReBonjour
Je soujaiterais creer une nouvelle barre de menu. J'arrive à le faire jusqu'au niveau 2 (Fichier/ Niveau 1). Mais je souhaiterais arriver au niveau 4 (Fichier / Niveau 1/ Niveau 2 / Niveau 3 / Niveau 4).
Comment y ajouter des macro? . Exemple, je vais dans File, puis niveau 1 puis... Niveau 4. Et l'a je veux qu'il me montre une ''feuille donnée''.


Quelqu'un saurait-il m'aider s'il vous plait?

Code :

1
2
3
4
5
6
7
8
MenuBars.Add "FundView"
 
MenuBars("New Menu").Menus.Add Caption:="File"
With MenuBars("FundView").Menus("File").MenuItems
.Add Caption:="Update Sheet1"
.Add Caption:="Update Sheet2"
.Add Caption:="Update Sheet3"
End With

[BF999]

Essaie ceci:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub BarredeMenu()
 
    Dim MaBarre As CommandBar
 
    For Each cbar In Application.CommandBars
        If cbar.Name = "MaBarre" Then cbar.Delete
    Next
 
    Set MaBarre = CommandBars.Add("MaBarre", msoBarTop, False, True)
        MaBarre.Visible = True
        MaBarre.Protection = msoBarNoMove
 
 
'---Liste les feuilles du classeur------------
    Set Onglets = MaBarre.Controls.Add(Type:=msoControlPopup)
    Onglets.Caption = "ONGLETS"
    Onglets.Tag = "ONGLETS"
    Onglets.BeginGroup = True
    For Ongl = 1 To ActiveWorkbook.Sheets.Count
        Set ListR = Onglets.Controls.Add(Type:=msoControlButton)
            ListR.Caption = Sheets(Ongl).Name
            ListR.OnAction = "Onglet"
            ListR.Parameter = Sheets(Ongl).Name
            ListR.FaceId = 488
    Next
 
 
End Sub
 
 
Sub Onglet()
 
    Feuille = CommandBars.ActionControl.Parameter
    If Feuille = "" Then Exit Sub
    ThisWorkbook.Sheets(Feuille).Activate
 
End Sub

[Philippe JOCHMANS]

Bonjour

Il y a un excellent tuto sur le sujet : Création d'une barre de menus personnalisée

Philippe

[BF999]

Effectivement, ce tuto est extra...