Bonsoir a tous et a Toutes,
Je sollicite votre aide car je ne trouve pas de solution.
J'ai créer 2 menus avec le code ci dessous
Mon problème c'est que du coup mes menus sont dans l'onglets compléments du ruban
J'aimerais que mes deux menus fasse partis du ruban au même titre que les onglets FICHIER ACCUEIL etc...
Merci d'avance pour votre aide
Sub auto_open()
Dim MaBarre As CommandBar
'---- Création barre
On Error Resume Next
Set MaBarre = CommandBars.Add(Name:="NouvelleBarre", MenuBar:=True, Temporary:=True)
MaBarre.Visible = True
MenuBars("NouvelleBarre").Menus.Add Caption:="&AFFICHAGE", Before:=1
With MenuBars("NouvelleBarre").Menus("AFFICHAGE").MenuItems
.Add Caption:="Fiche de Revue de contrat", OnAction:="Majuscule"
.Add Caption:="Détail Déboursé P1", OnAction:="Minuscule"
.Add Caption:="Détail Déboursé P2", OnAction:="Majuscule"
.Add Caption:="P3 ou Inventaire P2", OnAction:="Majuscule"
.Add Caption:="Tableau D'amortissement", OnAction:="Majuscule"
End With
MenuBars("NouvelleBarre").Menus.Add Caption:="& FICHIER", Before:=1
With MenuBars("NouvelleBarre").Menus(" FICHIER").MenuItems
.Add Caption:="Liste des Etude en Attente", OnAction:="Euros"
.Add Caption:="Ouvrir un Etude en Attente", OnAction:="Francs"
End With
End Sub