XL 2013 Macro personnelle supprimer menu

  • Initiateur de la discussion Initiateur de la discussion cajuba
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Personal.xlsb
Réponses
4
Affichages
258
Réponses
2
Affichages
556
Réponses
4
Affichages
681
Réponses
3
Affichages
534
Retour