Gestion barre perso

[nak]

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

 

[nak]

Re : Gestion barre perso

J'ai essayé avec If est cela me donne une erreur de compilation à l'ouverture de mon fichier...

If CommandBars("MaBarrePerso") = True Then

End Sub

Else

Dim CmdBar As CommandBar
Dim ...

End If
End Sub

Je peux utiliser quoi d'autre comme commande ?

Merci

 

[MJ13]

Re : Gestion barre perso

Bonjour nak

Et pourquoi ne crées-tu pas ta barre perso de façon a ce que tu n'es pas a la recrée?

 

[nak]

Re : Gestion barre perso

Bonjour

Tout simplement parce que le fichier est utilisé sur plusieurs poste de travail. C'est pour cela que je préfèrerais l'attachée au fichier...

 

[MJ13]

Re : Gestion barre perso

Re

Dans ce cas tu peux attacher la barre perso au fichier , voir dans barre d'outils, personnalisé.

 

[MJ13]

Re : Gestion barre perso

Re

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

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

 

[nak]

Re : Gestion barre perso

Merci beaucoup MJ13, tout fonctionne parfaitement

Bonne journée

 

[MJ13]

Re : Gestion barre perso

Re

Et oui, en plus, tu as 3 solutions pour le prix d'une!

Bon week-end.