Barre outils qui s'allonge

Bcar · 2 Novembre 2008

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 · 2 Novembre 2008

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 · 2 Novembre 2008

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 · 2 Novembre 2008

Re : Barre outils qui s'allonge

Bonjour à tous,

une modification de la macro auto_open à tester :

Code:

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

Barre outils qui s'allonge

Bcar

Guest

Pièces jointes

BERRACHED said

XLDnaute Accro

Bcar

Guest

tototiti2008

XLDnaute Barbatruc

Barre outils qui s'allonge

Bcar

Guest

Pièces jointes

BERRACHED said

XLDnaute Accro

Bcar

Guest

tototiti2008

XLDnaute Barbatruc

Privacy & Transparency

Privacy & Transparency