Barre d'Outil personnalisée

Salut Thomas,
Il n'y a pas, à ma connaissance d'événement sur la fermeture d'une barre,
donc une idée, contrôler tout les x secondes si tes barres sont visibles ou
pas et dans ce cas changer les FacedId Un petit exemple avec un OnTime. (Je
pense que d'autre t'en donneront de meilleurs) :

A mettre dans un module standard :
Sub Coche()

Dim Barre As CommandBar
Dim BarrePerso As CommandBar
Set BarrePerso = CommandBars("Perso")
For Each Barre In Application.CommandBars
If Barre.BuiltIn = False Or Barre.Name <> "Perso" Then
If Barre.Visible = False Then
With BarrePerso
Select Case Barre.Name
Case "Barre1"
.Controls(1).FaceId = 485
Case "Barre2"
.Controls(2).FaceId = 485
'Case etc...
End Select
End With
End If
End If
Next Barre
'rappel du timer
Timer
Set Barre = Nothing
Set BarrePerso = Nothing
End Sub

Sub Timer()
'toutes les 30 secondes
Application.OnTime Now + _
TimeValue("00:00:30"), "Coche"
End Sub

A mettre dans le module du classeur pour démarrer le timer à l'ouverture
:

Private Sub Workbook_Open()
Timer
End Sub

Hervé.

"thomas" <thomas.berson@ifrance.com> a écrit dans le message news:
0d0601c3576a$8c79faa0$a401280a@phx.gbl...
Bonjour,

Je vais essayer d'exposer un peu plus clairement mon
problème.

J'ai crée un barre d'outils personnalisée. Lorsque je
clique sur certains boutons de cette barre, un FACEID
(petite croix) est ajouté sur ces boutons et une barre
d'outils flottante apparait. J'aimerais que lorsque je
ferme cette barre d'outils flottante, le FACEID
disparaisse (la petite croix s'enlève pour indiquer que la
barre flottante n'est plus). Comment savoir que la barre
d'outils flottante est fermée pour pouvoir changer de
FACEID??

Merci d'avance.
Thomas.

P.S : J'essaye en fait de simuler le principe de
fonctionnement qu'il y a dans Affichage > Barre d'outils >