Lister les barres d'outils

[Eliot]

BJR toutes et tous
En VBA je désire à l'ouverture d'un classeur XL2000, créer une macro qui vérifie les barres d'outils affichées dans le but de les masquer puis, avant de quitter, de les ré afficher. Quelqu'un a bien cela dans son chapeau ;-)
Merci de conseiller. Cordialement.
Eliot.

 

[Mytå]

Bonsoir Eliot et le forum

Va voir sur ce site, tu devrais trouver réponse a ta question

http://disciplus.simplex.free.fr/xl/barres.htm#lapasla

A+

 

[Rv_Mikey]

Bonjour Eliot,

Personnellement, j'ai mis sous vba dans Objects, thisworkbook, cette ligne de commande qui me cache la barre d'outils "Standard". J'ai aussi listé toutes les autres barres d'outils. Aucune des barres d'outils ne s'affiche a l'ouverture d'excel.

Application.CommandBars("Standard").Visible = False

mon code est le suivant :

Private Sub Workbook_Open()
Application.CommandBars("Standard").Visible = False
Application.DisplayFormulaBar = False ' cache la barre de formule
Application.DisplayStatusBar = False ' cache la barre d'état
end sub

Pour la fermeture, workbook_close et le même code avec les valeurs true de ce que tu veux afficher en sortant.

Bon courage et j'espère être clair.....

Rv Mikey...............