D
David
Guest
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
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