• Initiateur de la discussion Initiateur de la discussion nak
  • 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 !

nak

XLDnaute Occasionnel
Bonjour à tous,

Voila j'utilise une barre d'outil avec des boutons personnalisés. Tout fonctionne à merveille 🙂
Sauf qu'il m'arrive d'ouvrir deux fichiers voir plus qui contiennent cette macro. Résultat la barre perso est créée une deuxième fois et la erreur.

Voici le code :
Private Sub Workbook_Open()
Dim CmdBar As CommandBar
Dim Bouton As CommandBarButton

Set CmdBar = Application.CommandBars _
.Add(Name:="MaBarrePerso", Position:=msoBarTop, Temporary:=True)

Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 191
.OnAction = "Démarrage"
End With

Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 3873
.OnAction = "pagedegarde"
End With

CmdBar.Visible = True

End Sub

Pour résoudre mon problème il faudrait juste vérifier si la barre n'est pas déjà activé...
Mais impossible de trouver la bonne commande
J'ai essayé
CommandBars("MaBarrePerso").Enabled = False
mais cela ne fonctionne pas 🙁

Une autre idée ?

Merci
 
Re : Gestion barre perso

Re

Sinon, si vraiment tu veux le mettre à l'ouverture:

Code:
Private Sub Workbook_Open()
Dim CmdBar As CommandBar
Dim Bouton As CommandBarButton
 
On Error Resume Next
  CommandBars("MaBarrePerso").Delete
 
Set CmdBar = Application.CommandBars _
.Add(Name:="MaBarrePerso", Position:=msoBarTop, Temporary:=True)
 
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 191
.OnAction = "Démarrage"
End With
 
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 3873
.OnAction = "pagedegarde"
End With
 
CmdBar.Visible = True
 
End Sub
 
Dernière édition:
- 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

Discussions similaires

Réponses
2
Affichages
1 K
Réponses
2
Affichages
2 K
Retour