barres d'outils

[laurent]

bonjour,

je voudrais lorsque je lance mon application que les barres d'outils s'enlèvent comment doit-je pratiquer.

merci
laurent

 

[Bernard]

Bonjour Laurent

Pour en lever les barres automatiquement tu dois :

1) aller dans Outil/macro/Visual Basic Editor/Explorateur de projets

ouvrir par double click le module de ThisWorkbook

Là tu places deux macros : l'une qui se s'automatise à l'ouverture du fichier et l'autre idem à la fermeture.
Dans la première tu places les barres que tu veux voir disparaître avec la commande false

Private Sub workbook_open()
Application.ScreenUpdating = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Visual Basic").Visible = False
End Sub

La seconde qui à les mêmes commandes inversées

Private Sub workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Visual Basic").Visible = True
ActiveWorkbook.Saved = True
End Sub

L'application ScreenUpdating évite les mouvements d'écrans

ActiveWorkbook.saved = true évite les questions de fermeture

Un petit exemple joint

Salut

Bernard