Bonjour à tous,

J'ai créé une barre de menus (barre_menus_perso) que je voudrais substituer à celles existantes.
Je souhaiterai que les barres restent apparantes, mais non utilisables.
Dans le code ci-dessous, ma barre de menus n'apparait pas sauf si je me mets en affichage plein écran.
Comment puis-je faire pour que ma barre de menus soit la seule utilisable ?
Merci par avance

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
 
Private Sub WorkBook_Open()
    barre_menus_perso
Dim cmdb As CommandBar
Dim vRep As Integer
For Each cmdb In Application.CommandBars
Next cmdb
    UFbonj.Show
    With Application
    .DisplayFullScreen = True
    .DisplayStatusBar = False
    .DisplayFormulaBar = True
    .CommandBars(1).Enabled = True
    Sheets("Détail").Visible = False
    End With
With ActiveWindow
    .DisplayHeadings = False
    .Zoom = 100
    End With
Dim msg As String
Dim insuf As Boolean
 
    Application.ScreenUpdating = False
Test1
End Sub