comment supprimer définitivement un menu créé sous excel95

Question

Salut,
Quelqu'un peut t'il me donner une solution pour supprimer d&#233;finitivement un menu cr&#233;&#233; dans une version pr&#233;c&#233;dente d'excel? Avec la m&#233;thode ci dessous, je n'arrive &#224; supprimer que les sous menus des menus trouv&#233;s dans la boucle mais ils reviennent &#224; chaque demarrage de l'application!

Mer&#231;i d'avance &#224; ceux qui se pencheront sur mon probl&#232;me

 
Sub commande_menu()
Dim Reponse
foundFlag = False
delBars = 0


For Each Bar In Application.CommandBars    If (Bar.BuiltIn False) Then 'And (bar.BuiltIn False)
        Reponse = MsgBox("Etes-vous s&#251;r de vouloir supprimer " & Bar.Name, 4, "AVERTISSEMENT")
            If Reponse = vbYes Then
                Bar.Delete
            End If
     
            If Reponse = vbNo Then
     
            End If
        
        foundFlag = True
        delBars = delBars + 1
    End If
Next Bar


End Sub

Et si l'&#233;go&#239;sme c'&#233;tait de ne penser qu'aux autres? Il faut peut &#234;tre se faire plaisir de temps en temps ou tout au moins s'accorder un temps de reflexion sur l'existence!

jpleroisse · Answer

Essaie  ce code

Sub DeleteMenu()
On Error Resume Next
CommandBars(1).Controls(" Nom du menu").Delete
End Sub

jpleroisse

lespritpur · Answer

Salut, ton code marche bien effectivement pour la suppression du menu, mais il reste cepandant un petit probl&#232;me.Quand tu fermes l'application et que tu la r&#233;ouvre, le menu est toujours l&#224;!La solution ne doit pas &#234;tre loin, je continue &#224; chercher aussi!

En tout cas grand merci d'y ref&#233;chir
Sylvain

Et si l'&#233;go&#239;sme c'&#233;tait de ne penser qu'aux autres? Il faut peut &#234;tre se faire plaisir de temps en temps ou tout au moins s'accorder un temps de reflexion sur l'existence!

Comment supprimer définitivement un menu créé sous excel95

2 réponses

Discussions similaires