ma formule ne va pas ?

[David]

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

 

[Zon]

Salut,


Si cela te le supprimes pas rajoutes une suprrseion avant de la créer comme cela tu es sûr d'avoir qu'un menu; Autrement rajoutes un bouton quitter sur ton menu

avec dedans la suppression de ta barre et thisworkbook.close



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


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

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



A+++