Tester si une barre d'outils existe

[guima1642]

Bonjour,
J'ai créé une barre d'outils avec 2 menus de macros. pas de pb, par contre je voudrais tester à l'ouverture d'excel si cette barre exist, du style :

"If Application.CommandBars("Mise en page XX").exist = False Then "

mais ça ne fonctionne pas c'est un exemple.

D'avance Merci

 

[MJ13]

Re : Tester si une barre d'outils existe

Bonjour

J'aurai plutôt vu

If Application.CommandBars("Mise en page XX").Enabled = True Then MsgBox ("ok")

Sur Xl 2003, lorsque tu tapes le code par exemple après avoir tapé Application.CommandBars("Mise en page XX")., Excel te propose des propriétés adaptés, il faut en tenir compte et tester ceux qui peuvent être en relation avec ton problème.
C'est comme cela que j'ai trouvé la propriété enable. j'avais mis au départ is true. Mais comme cela ne fonctionnait pas, j'ai mis = true et la c'était bon.

Sinon il y a aussi la propriété visible qui peut être utile. Sinon, si elle n'existe pas, il faut faire un test d'erreur.

 

[tototiti2008]

Re : Tester si une barre d'outils existe

Bonjour à tous,

s'il s'agit d'une barre d'outils personnalisée, comme je l'ai compris, une proposition :

Function BarreExiste(NomBarre As String) As Boolean
Dim a As Boolean
    BarreExiste = False
    On Error GoTo Err1
    a = Application.CommandBars(NomBarre).Visible
    On Error GoTo 0
    BarreExiste = True
    Exit Function
Err1:
End Function
Sub test()
    If BarreExiste("Mise en Page XX") Then
        MsgBox "elle existe"
    Else
        MsgBox "elle n'existe pas"
    End If
End Sub

 

[myDearFriend!]

Re : Tester si une barre d'outils existe

Bonjour guima1642, MJ13, tototiti2008, le Forum,

Sur le même principe et à partir de la même analyse que notre ami tototiti2008 :

[COLOR=NAVY]Option Explicit[/COLOR]

[COLOR=NAVY]Sub[/COLOR] Test()
    MsgBox IIf(CmdBarExist("Mise en Page XX"), "Elle existe", "Elle n'existe pas")
[COLOR=NAVY]End Sub[/COLOR]

[COLOR=NAVY]Private Function[/COLOR] CmdBarExist(NomBarre [COLOR=NAVY]As String[/COLOR]) [COLOR=NAVY]As Boolean[/COLOR]
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] cB [COLOR=NAVY]As[/COLOR] CommandBar
    [COLOR=NAVY]On Error Resume Next
    Set[/COLOR] cB = Application.CommandBars(NomBarre)
    CmdBarExist = [COLOR=NAVY]Not[/COLOR] cB [COLOR=NAVY]Is Nothing
End Function[/COLOR]

Cordialement,

 

[guima1642]

Re : Tester si une barre d'outils existe

Bonjour à tous,

Un grand merci à vous trois. Les trois solutions fonctionne très bien, c'est noël j'ai un grand choix.

Bonne fête à tous

 

[tototiti2008]

Re : Tester si une barre d'outils existe

Bonjour myDearFriend, MJ13, guima1642,

je me permet une remarque :
la solution de MJ13, je crois qu'elle ne fonctionne que pour des barres d'outils non personnalisées. Il me semble que celle de myDearFriend et la mienne fonctionnent plutôt pour des barres personnalisées... si j'ai bien suivi 🙂

 

[guima1642]

Re : Tester si une barre d'outils existe

bonjour à tous et Bonne Année,

Oui tototiti2008 je te confirme la solution de MJ13 ne fonctionne pas avec les personnalisée,
j'ai adopté et adapté la solution de myDearFriend.

encore merci à tous les 3😀