Barre de commandes

[aubelix]

Bonjour à tous les amis du Forum. 🙂

Une nouvelle fois, je reviens vers vous pour de l'aide :
J'ai récupéré un code concernant une création de barre de commande.
Elle fonctionne, mais j'ai des problèmes pour :

- En cas de lancement, si elle ne se ferme pas, elle se crée de nouveau.
- Comment la supprimer si l'on clique sur le 2ème bouton.

Dans l'attente de votre aide.
Par avance Merci

Cordialement.

 

[vbacrumble]

Re : Barre de commandes

Bonjour


Et comme ainsi, il se passe quoi

Sub auto_open()
    Dim barre As CommandBar
    Dim bouton As CommandBarControl
  [COLOR="Red"] [B] Application.CommandBars("BarrePerso").Delete[/B][/COLOR]
    On Error Resume Next
    Set barre = CommandBars.Add(Name:="BarrePerso")
    barre.Visible = True
        
    Set bouton = CommandBars("BarrePerso").Controls.Add(Type:=msoControlButton)
    bouton.Style = msoButtonIconAndCaption
    bouton.TooltipText = "Sauvegarder"
    bouton.FaceId = 271
    bouton.OnAction = "Macro1"
    bouton.Caption = "Sauvegarde"

    Set bouton = CommandBars("BarrePerso").Controls.Add(Type:=msoControlButton)
    bouton.Style = msoButtonIconAndCaption
    bouton.TooltipText = "Quitter"
    bouton.Width = 100
    bouton.FaceId = 51
    bouton.OnAction = "Macro2"
    bouton.Caption = "Fermer Masque"
End Sub

 

[kjin]

Re : Barre de commandes

Bonjour,
Si tu n'avais pas mis "On Error Resume Next" tu aurais su pourquoi

[COLOR="Red"]Application.[/COLOR]CommandBars...

En outre, si tu multiplies les procédure de suppression tu risques encore quelques soucis
A+
kjin

 

[aubelix]

Re : Barre de commandes

Bonjour VBACrumble.

Merci pour ta réponse.
Si je copie ton code, j'ai un message d'erreur.
Par contre, si je mets On error resume next
avant Application.CommandBars("BarrePerso").Delete, ça fonctionne.

Cordialement.

 

[kjin]

Re : Barre de commandes

Re,
?????
A+
kjin

 

[kjin]

Re : Barre de commandes

Re,
L'explication est dans le code
A+
kjin