Bonsoir,
Je n'arrive a ajouter un sous menu au menu GAMMES

- 1 J'aimerais ajouter un sous menu a: "Consulter/Modifier les Gammes Contrat"
- 2 J'aimerais ajouter un sous menu et un sous sous menu a: "Ajouter des Gammes au Contrat"

Voici le code que j'utilise

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub auto_open()
 
Dim MaBarre As CommandBar
 
 
 
 
Set MaBarre = CommandBars.Add(Name:="NouvelleBarre", MenuBar:=True, Temporary:=True)
MaBarre.Visible = True
 
MenuBars("NouvelleBarre").Menus.Add Caption:="&              CONTRAT", Before:=1
With MenuBars("NouvelleBarre").Menus("              CONTRAT").MenuItems
.Add Caption:="Nouvelle Etude Contrat", OnAction:="NouvelleEtudeContrat"
.Add Caption:="Liste des Etudes en Attente", OnAction:="Scann_des_Fichier_En_Attente"
 
    End With
 
 
MenuBars("NouvelleBarre").Menus.Add Caption:="&AFFICHAGE", Before:=1
With MenuBars("NouvelleBarre").Menus("AFFICHAGE").MenuItems
  .Add Caption:="Fiche Revue Contrat", OnAction:="RevusContrat"
  .Add Caption:="Détail Déboursé P1", OnAction:="DebourseP1"
  .Add Caption:="Détail Déboursé P2", OnAction:="DebourseP2"
  .Add Caption:="P3 ou Inventaire P2", OnAction:="P3ouinventaireP2"
  .Add Caption:="Tableau D'amortissement", OnAction:="TableauAmortissement"
     End With
 
 
MenuBars("NouvelleBarre").Menus.Add Caption:="&              FICHIER", Before:=1
With MenuBars("NouvelleBarre").Menus("              FICHIER").MenuItems
.Add Caption:="a", OnAction:="a"
.Add Caption:="Ouvrir un Etude en Attente", OnAction:="Fr"
End With
 
 
 MenuBars("NouvelleBarre").Menus.Add Caption:="&              GAMMES", Before:=1
With MenuBars("NouvelleBarre").Menus("              GAMMES").MenuItems
.Add Caption:="Consulter/Modifier les Gammes Contrat", OnAction:="Affichage_Menu_Gammes"
.Add Caption:="Ajouter des Gammes au Contrat", OnAction:="Affichage_Menu_Gammes"
 End With
 
 
  End Sub


Merci de votre aide