XL 2013 Macro personnelle supprimer menu

cajuba

XLDnaute Nouveau
Bonjour
J'ai créé lors de l'ouverture des macros personnelles une macro qui crée des boutons dans la barre d'outils
Je voudrais que ces boutons disparaissent quand je ferme le fichier PERSONAL car à chaque fois que j'ouvre excel, il crée encore et encore les mêmes boutons
Merci d'avance
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, cajuba

cajuba
Il faudrait qu'on voit le code de ta macro pour t'en dire plus '( pour faire des tests sur nos PC)
A défaut, testes (ou inspires-toi) du bout de code ci-dessous (glané sur le net)
[et ce à tes risques et périls...(juste au niveau de ton ruban Excel) ;) ]
VB:
Sub DetermineNonBuiltinCommandBars()
    Dim cb As Office.CommandBar

    For Each cb In CommandBars
        If Not cb.BuiltIn Then
            Debug.Print cb.Context & ", " & cb.Name
            cb.Delete
        Else
            cb.Reset
        End If
    Next
End Sub
 

cajuba

XLDnaute Nouveau
Bonjour Staple 1600
Voila mon code au démarrage des macros personnalisées
Je voudrais que cette barre d'outils disparaisse à la fermeture d'excel ou qu'elle ne se recrée pas si j'ouvre Excel de nouveau si elle existe déjà.

Je l'ai mis dans un module pas dans this workbook

Sub auto_open()
BARRE_OUTILS
End Sub

Sub BARRE_OUTILS()
Dim barre As CommandBar
Dim bouton As CommandBarControl
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True
Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro1"
bouton.Caption = "Test1"
Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro2"
bouton.Caption = "Test2"
Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.OnAction = "Macro3"
bouton.Caption = "Test3"
End Sub

Merci d'avance
 

Discussions similaires

Réponses
4
Affichages
277

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 850
dernier inscrit
Danigra