ma formule ne va pas ?

Salut le forum

J'ai trouvé cette formule pour ajuster "autre choix" dans la barre menu et pour la supprimer à la fermeture



Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.Save
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar") _
.Controls("Autre choix").Delete

End Sub

Private Sub Workbook_Open()
Sheets("Accueil").EnableSelection = x1unlockedcells
Application.Calculation = xlCalculationAutomatic
Sheets("Accueil").Select
[a1].Select
'Call auto_hide_tabs

Dim monBouton As CommandBarButton
Set monBouton = _
Application.CommandBars("Worksheet Menu Bar").Controls.Add
monBouton.Caption = "&Autre choix"

monBouton.Style = msoButtonCaption
monBouton.BeginGroup = True
monBouton.OnAction = "AfficherFormulaire"
End Sub


mais quelque fois elle ne le supprime pas et elle rajoute à chaque fois un "autre choix"

si quelqu'un connait mon erreur ou une autre formule

merci d'avance

@+

david