problème affichage barre outils

  • Initiateur de la discussion Initiateur de la discussion mikepers
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

mikepers

Guest
Salut, et merci pour ce forum !!
voilà mon problème: je désires que mon fichier s'ouvre avec des barres d'outils spécifiques - j'ai créé une barre d'outil ('navigation') que j'ouvre avec le code suivant :
_______________________________________________________
Private Sub WorkBook_Activate()
On Error Resume Next
With Application.CommandBars('Navigation')
.Enabled = True
.Visible = True

End With
On Error GoTo 0
End Sub

_______________________________________________________

Private Sub WorkBook_Deactivate()
On Error Resume Next
Application.CommandBars('Navigation').Enabled = False
On Error GoTo 0
End Sub
_______________________________________________________
ça fonctionne à merveille, mais en allant plus loin, pour des raisons de mise en page, je désire que les barres d'outils 'Standard' et 'Mise en forme' n'apparaissent pas à l'ouverture. Quelqu'un peut il m'aider ??
Merci
 
Bonjour Mikepers,

si tu décoches tout simplement l'affichage de ces deux barres d'outils, ton choix est mémorisé pour toute ouverture d'un nouveau classeur. Elles ne s'afficheront donc pas à l'ouverture. Ce n'est pas ca le sens de ta question ? 🙁
A moins que ce ne soit dans ta macro que tu veuilles indiquer leur fermeture ?

Sylvie
 
Oui Sylvie, je désire réaliser une routine à l'ouverture, car plusieurs personnes utilisent ce classeur, dont la mise en page est optimisée sans ces barres. Hélas, dans la journée, on ouvre souvent d'autres fichiers, qui eux ont besoin de ces barres d'outil.
merci pour tes réponses dans mes autres post, merci mille fois !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
170
  • Question Question
Microsoft 365 Erreur UBound
Réponses
4
Affichages
151
Réponses
10
Affichages
295
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
184
Retour