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
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