macro barre d'outils

[daniel]

bonjour à tous,
je cherche à créer une macro qui ouvre une barre d'outils personnalisée dans un fichier excel, à l'ouverture du fichier.
il faut que cette barre n'apparaisse que dans ce fichier ouvert, et qu'elle vienne en plus des barres de formules et barres d'état déjà existantes.
merci de vos conseils.
amicalement

 

[C@thy]

Bonjour Daniel,

Application.CommandBars("Personnalisé 1").Visible = True
devrait suffire

Application.CommandBars("Personnalisé 1").Visible = False
pour la masquer.

S'il s'agit de créer une barre d'outils personnalisée par macro, c'est autre chose.

C@thy

 

[JB]

- Salut Daniel,

voici comment faire apparaître une barre d'outil à l'ouverture d'un classeur et comment la faire disparaître à sa fermeture.

Private Sub Workbook_Open()
Application.CommandBars("BarreOutilsPersonnelle").Visible = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("BarreOutilsPersonnelle").Visible = False
End Sub

A+

JB

 

[C@thy]

j'ai oublié de te dire où la mettre :

Tu fais Alt+F11

ensuite dans l'explorateur de projets (fenêtre de gauche) tu cliques sur ThisWorkbook
Ensuite en haut au milieu tu ouvres la liste déroulante où il y a le mot (Général)
et tu choisis workbook et à droite open.

C@thy

 

[Ti]

j'ai fait un jour une démo de barre d'outil facile à adapter. Tu la trouveras ici (je n'en suis plus sûr) ou sur Vériti dans les fichiers démos.