'un truc peu connu : cacher la barre des menus en la remplaçant par une "fausse"
'repose sur le fait qu'Excel ne peut afficher 2 barres de menu en même temps
[B]Sub MakeEmptyMenuBar()[/B]
'Mika, mpep
Dim NewmenuBar As CommandBar
Call deleteEmptyMenuBar 'appeller macro
Set NewmenuBar = CommandBars.Add(MenuBar:=True)
With NewmenuBar
.Name = "MyEmptyMenu"
.Visible = True ' this is the the trick
End With
End Sub
[B]Sub deleteEmptyMenuBar()[/B]
On Error Resume Next
CommandBars("MyEmptyMenu").Delete
On Error GoTo 0
End Sub
'la manière classique de cacher la barre de menus d'Excel
'préférable : ne laisse pas un "vide" sous la barre de titre
[B]Sub CacheMenu()[/B]
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub
[B]Sub MontreMenu()[/B]
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub