Barre outils qui s'allonge

[Bcar]

Bonjour le Forum,
Je dispose dans le fichier Gesper en piece jointe d'une barre d'outils générée par un code (merci à Boisgontier). Ce fichier est en fait un "planning " et plusieurs service l'on adopté.
Le pb est le suivant:
Si plusieurs fichiers comportant cette barre sont ouverts simultanement elle "s'allonge " d'autant de fois qu'il y a d'ouverture.
Existe t-il une astuce pour tester si cette barre est deja activée et dans ce cas ne pas l'activée de nouveau?
Cordialement,

 

[BERRACHED said]

Re : Barre outils qui s'allonge

Salut,Bcar

j'ai pas compris ta question puisque a l'ouverture ta barre elle est active tu peux la voir ? ou est le problème

Cordialement

 

[Bcar]

Re : Barre outils qui s'allonge

Bonsoir le Forum, bonsoir Said,
Fait des copies du fichier (Gesper 1, 2, 3) et ouvre les toutes et tu vas comprendre.
Cordialement,

 

[tototiti2008]

Re : Barre outils qui s'allonge

Bonjour à tous,

une modification de la macro auto_open à tester :

Sub auto_open()
   On Error GoTo Fin
   CommandBars.Add ("Barre_Planning")
   On Error Resume Next
   CommandBars("Barre_Planning").Visible = True
   For i = 1 To [legende].Count
      Set bouton = CommandBars("Barre_Planning").Controls.Add(Type:=msoControlButton)
      bouton.Style = msoButtonCaption
      bouton.Tag = i
      bouton.OnAction = "'Coloriage """ & bouton.Tag & """'"
      bouton.Caption = Range("legende")(i)
   Next i
Fin:
End Sub