Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Impossible de récupérer ma barre menue

Impossible de récupérer ma barre menue

7 réponses
Avatar
Alain
Bonjour,
j'ai récupéré cette proc sur http://frederic.sigonneau.free.fr/
mais hélas, impossible de récupérer ma barre de menue, j'ai tout fait, j'ai
également mis un bout de cette procédure dans le workbook_beforeclose afin
de la récupérer, mais je n'y arrive pas.
Au secours...
Merci beaucoup

Attribute VB_Name = "CacherBarreMenus"

'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

Sub MakeEmptyMenuBar()
'Mika, mpep
Dim NewmenuBar As CommandBar

Call deleteEmptyMenuBar 'always a good practice

Set NewmenuBar = CommandBars.Add(MenuBar:=True)
With NewmenuBar
.Name = "MyEmptyMenu"
.Visible = True ' this is the the trick
End With

End Sub

Sub deleteEmptyMenuBar()
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
Sub CacheMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub MontreMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Alain
C'est bon, j'ai trouvé...
Ouf...
Merci à tous
Bonne journée.
Alain

"Alain" a écrit dans le message de
news:%
Bonjour,
j'ai récupéré cette proc sur http://frederic.sigonneau.free.fr/
mais hélas, impossible de récupérer ma barre de menue, j'ai tout fait,
j'ai

également mis un bout de cette procédure dans le workbook_beforeclose afin
de la récupérer, mais je n'y arrive pas.
Au secours...
Merci beaucoup

Attribute VB_Name = "CacherBarreMenus"

'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


Sub MakeEmptyMenuBar()
'Mika, mpep
Dim NewmenuBar As CommandBar

Call deleteEmptyMenuBar 'always a good practice

Set NewmenuBar = CommandBars.Add(MenuBar:=True)
With NewmenuBar
.Name = "MyEmptyMenu"
.Visible = True ' this is the the trick
End With

End Sub

Sub deleteEmptyMenuBar()
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
Sub CacheMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub MontreMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub




Avatar
twinley
ouf ! t'as du bol.
parce qu'une barre menue c'est pas une barre épaisse, je dirais même
fluette... et c'est bien plus difficile à attraper qu'une bonne grosse
joufflue, bien charpentée.
cordialement
--
à+twinley
"Alain" a écrit dans le message de
news:
C'est bon, j'ai trouvé...
Ouf...
Merci à tous
Bonne journée.
Alain

"Alain" a écrit dans le message de
news:%
Bonjour,
j'ai récupéré cette proc sur http://frederic.sigonneau.free.fr/
mais hélas, impossible de récupérer ma barre de menue, j'ai tout fait,
j'ai

également mis un bout de cette procédure dans le workbook_beforeclose
afin


de la récupérer, mais je n'y arrive pas.
Au secours...
Merci beaucoup

Attribute VB_Name = "CacherBarreMenus"

'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


Sub MakeEmptyMenuBar()
'Mika, mpep
Dim NewmenuBar As CommandBar

Call deleteEmptyMenuBar 'always a good practice

Set NewmenuBar = CommandBars.Add(MenuBar:=True)
With NewmenuBar
.Name = "MyEmptyMenu"
.Visible = True ' this is the the trick
End With

End Sub

Sub deleteEmptyMenuBar()
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
Sub CacheMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub MontreMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub








Avatar
CAP2
Salut twinley,

avec l'esprit mal tourné (ce qui n'est évidemment pas mon cas ;o) ), on
pourrait trouver ta phrase assez cavalière (qui, soit dit en passant, savent
en général très bien monter !!)

CAP2

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:

ouf ! t'as du bol.
parce qu'une barre menue c'est pas une barre épaisse, je dirais même
fluette... et c'est bien plus difficile à attraper qu'une bonne grosse
joufflue, bien charpentée.
cordialement
--
à+twinley
"Alain" a écrit dans le message de
news:
C'est bon, j'ai trouvé...
Ouf...
Merci à tous
Bonne journée.
Alain

"Alain" a écrit dans le message de
news:%
Bonjour,
j'ai récupéré cette proc sur http://frederic.sigonneau.free.fr/
mais hélas, impossible de récupérer ma barre de menue, j'ai tout fait,
j'ai

également mis un bout de cette procédure dans le workbook_beforeclose
afin


de la récupérer, mais je n'y arrive pas.
Au secours...
Merci beaucoup

Attribute VB_Name = "CacherBarreMenus"

'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


Sub MakeEmptyMenuBar()
'Mika, mpep
Dim NewmenuBar As CommandBar

Call deleteEmptyMenuBar 'always a good practice

Set NewmenuBar = CommandBars.Add(MenuBar:=True)
With NewmenuBar
.Name = "MyEmptyMenu"
.Visible = True ' this is the the trick
End With

End Sub

Sub deleteEmptyMenuBar()
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
Sub CacheMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub MontreMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub












Avatar
twinley
avec l'esprit mal tourné (ce qui n'est évidemment pas mon cas ;o) )


ni le mien... tu t'en doutes CAP2
Si mon esprit est mal tourné, mais pour le ABA uniquement. Je ne manquerai
jamais de respect aux barres même pour un bon mot cavalier. Cavalier et
barres ne font jamais bon ménage, comme chacun sait, mais tu as raison
d'être à cheval sur la sémantique.
--
à+twinley
"CAP2" a écrit dans le message de
news:
Salut twinley,

avec l'esprit mal tourné (ce qui n'est évidemment pas mon cas ;o) ), on
pourrait trouver ta phrase assez cavalière (qui, soit dit en passant,
savent

en général très bien monter !!)

CAP2

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:

ouf ! t'as du bol.
parce qu'une barre menue c'est pas une barre épaisse, je dirais même
fluette... et c'est bien plus difficile à attraper qu'une bonne grosse
joufflue, bien charpentée.
cordialement
--
à+twinley
"Alain" a écrit dans le message de
news:
C'est bon, j'ai trouvé...
Ouf...
Merci à tous
Bonne journée.
Alain

"Alain" a écrit dans le message de
news:%
Bonjour,
j'ai récupéré cette proc sur http://frederic.sigonneau.free.fr/
mais hélas, impossible de récupérer ma barre de menue, j'ai tout
fait,




j'ai
également mis un bout de cette procédure dans le
workbook_beforeclose




afin
de la récupérer, mais je n'y arrive pas.
Au secours...
Merci beaucoup

Attribute VB_Name = "CacherBarreMenus"

'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

Sub MakeEmptyMenuBar()
'Mika, mpep
Dim NewmenuBar As CommandBar

Call deleteEmptyMenuBar 'always a good practice

Set NewmenuBar = CommandBars.Add(MenuBar:=True)
With NewmenuBar
.Name = "MyEmptyMenu"
.Visible = True ' this is the the trick
End With

End Sub

Sub deleteEmptyMenuBar()
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
Sub CacheMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub MontreMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub
















Avatar
sabatier
tu as dû trouvé...ce qui était écrit dans ton propre message précédent,
alain, non?
mortalité (comme disait un de mes copains qui adorait La Fontaine) : il faut
faire très attention quand on fait des essais sur des procs pour lesquelles
on ne connaît pas forcément le contre-poison
jps

"Alain" a écrit dans le message de
news:
C'est bon, j'ai trouvé...
Ouf...
Merci à tous
Bonne journée.
Alain

"Alain" a écrit dans le message de
news:%
Bonjour,
j'ai récupéré cette proc sur http://frederic.sigonneau.free.fr/
mais hélas, impossible de récupérer ma barre de menue, j'ai tout fait,
j'ai

également mis un bout de cette procédure dans le workbook_beforeclose
afin


de la récupérer, mais je n'y arrive pas.
Au secours...
Merci beaucoup

Attribute VB_Name = "CacherBarreMenus"

'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


Sub MakeEmptyMenuBar()
'Mika, mpep
Dim NewmenuBar As CommandBar

Call deleteEmptyMenuBar 'always a good practice

Set NewmenuBar = CommandBars.Add(MenuBar:=True)
With NewmenuBar
.Name = "MyEmptyMenu"
.Visible = True ' this is the the trick
End With

End Sub

Sub deleteEmptyMenuBar()
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
Sub CacheMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub MontreMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub








Avatar
sabatier
d'abord on dit sur la selmantique...
jps

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:
d'être à cheval sur la sémantique.


Avatar
CAP2
;o)))))

CAP2

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:

avec l'esprit mal tourné (ce qui n'est évidemment pas mon cas ;o) )


ni le mien... tu t'en doutes CAP2
Si mon esprit est mal tourné, mais pour le ABA uniquement. Je ne manquerai
jamais de respect aux barres même pour un bon mot cavalier. Cavalier et
barres ne font jamais bon ménage, comme chacun sait, mais tu as raison
d'être à cheval sur la sémantique.
--
à+twinley
"CAP2" a écrit dans le message de
news:
Salut twinley,

avec l'esprit mal tourné (ce qui n'est évidemment pas mon cas ;o) ), on
pourrait trouver ta phrase assez cavalière (qui, soit dit en passant,
savent

en général très bien monter !!)

CAP2

"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:

ouf ! t'as du bol.
parce qu'une barre menue c'est pas une barre épaisse, je dirais même
fluette... et c'est bien plus difficile à attraper qu'une bonne grosse
joufflue, bien charpentée.
cordialement
--
à+twinley
"Alain" a écrit dans le message de
news:
C'est bon, j'ai trouvé...
Ouf...
Merci à tous
Bonne journée.
Alain

"Alain" a écrit dans le message de
news:%
Bonjour,
j'ai récupéré cette proc sur http://frederic.sigonneau.free.fr/
mais hélas, impossible de récupérer ma barre de menue, j'ai tout
fait,




j'ai
également mis un bout de cette procédure dans le
workbook_beforeclose




afin
de la récupérer, mais je n'y arrive pas.
Au secours...
Merci beaucoup

Attribute VB_Name = "CacherBarreMenus"

'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

Sub MakeEmptyMenuBar()
'Mika, mpep
Dim NewmenuBar As CommandBar

Call deleteEmptyMenuBar 'always a good practice

Set NewmenuBar = CommandBars.Add(MenuBar:=True)
With NewmenuBar
.Name = "MyEmptyMenu"
.Visible = True ' this is the the trick
End With

End Sub

Sub deleteEmptyMenuBar()
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
Sub CacheMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub MontreMenu()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub