Barre d'outils

Bonjour Furion
Tu t'es trompé de forum ;-)
Pose ta question sur public.fr.excel

Cordialement
Pascal

"Furion" <Furion@discussions.microsoft.com> a écrit dans le message news:
D3AA4A07-8242-48F2-8A13-880C1F9B54CC@microsoft.com...

Bonjour à tous !

Je voudrais qu'à l'ouverture de mon classeur, toutes les barres d'outils
soit masquées
.
La commande que j'ai essayé ne marche pas, que dois je y ajouter ??? :

Application.CommandBars.Visible = False

Merci à tous ceux qui pourront me mettre sur la piste !

Bonsoir,

Pascal a raison mais voici quand même comment masquer quelques barres(à
adapter selon besoin),

Application.ScreenUpdating = False
On Error Resume Next
For Each Barre In Application.CommandBars
If Barre.Visible = True And _
Barre.Name <> "worksheet menu bar" Then
Barre.Visible = False
End If
Next Barre
With Application
.CommandBars("web").Enabled = False
.CommandBars("worksheet menu bar").Enabled = False
.CommandBars("standard").Visible = False
.CommandBars("formatting").Visible = False
.DisplayFormulaBar = True
End With

et pour retrouver les barres(à ne pas oublier)

On Error Resume Next
With Application
.CommandBars("web").Enabled = True
.CommandBars("worksheet menu bar").Enabled = True
.CommandBars("standard").Visible = True
.CommandBars("formatting").Visible = True
.DisplayFormulaBar = True
End With

Pour un plein écran:

Application.DisplayFullScreen = True( ou False quand on quitte l'applic)


Lancer les macros depuis la fenêtre VBA pour test

Cordialement

Hervé


"Furion" <Furion@discussions.microsoft.com> a écrit dans le message de news:
D3AA4A07-8242-48F2-8A13-880C1F9B54CC@microsoft.com...

Bonjour à tous !

Je voudrais qu'à l'ouverture de mon classeur, toutes les barres d'outils
soit masquées
.
La commande que j'ai essayé ne marche pas, que dois je y ajouter ??? :

Application.CommandBars.Visible = False

Merci à tous ceux qui pourront me mettre sur la piste !