Tester si barre d'outil existante

[Fanfan68]

Bonjour tout le monde

A l'ouverture d'un fichier, je voudrai faire un test sur un barre d'outil personnalisé que j'ai appelé "Toto" savoir si elle existe ou pas, si c'est le cas, le code associé s'effectue, sinon, je créé la barre d'outil puis je lance le code associé.

J'ai essayé quelque chose comme : if commandBars("Toto") is nothing then ...... mais ça ne semble pas fonctionner
Merci pour votre aide

 

[Dan]

Re : Tester si barre d'outil existante

Bonjour,

Tu as déjà fait ta barre ? Si oui, il faudrait voir le code.
Place ton fichier ou le code pour comprendre ce que tu as fait.

A te lire

 

[pierrejean]

Re : Tester si barre d'outil existante

bonjour Fafan68

Salut Dan

A tester

Sub test()
For n = 1 To CommandBars.Count
If CommandBars(n).Name = "Toto" Then Exit Sub
Next n
' code pour creer Toto
End Sub

 

[Fanfan68]

Re : Tester si barre d'outil existante

Merci beaucoup Pierrejean, ça devrait faire l'affaire.

A bientôt