Suppression de Menu dans Word

[MARKOWSKI]

Bonjour à tous,

En VBA dans Word 2003, je souhaites supprimer un menu que j'ai créé.
La procédure ci-dessous fonctionne, mais j'aurais voulu supprimer directement le menu à la seule condition que ce menu existe.

La boucle sert à vérifier si le menu est bien là.

Ma question est de savoir s'il n'a a pas une instruction capable de faire cela.
J'ai essayer avec le paramètre FindControl...... mais rie ne va.
J'ai été sur plusieurs site sans trouver réellement ce qu'il faut faire..

Bref, si quelqu'un à une idée je vous en remercie d'avance.

Code :

1
2
3
4
5
6
7
8
Sub Delete_Menu(MenuName As String)
Dim ListMenu As CommandBarControl
For Each ListMenu In Application.CommandBars("Menu Bar").Controls
    If ListMenu.Caption = MenuName Then
        CommandBars("Menu Bar").Controls(MenuName).Delete (False)
    End If
Next ListMenu
End Sub

[ouskel'n'or]

Si ton menu est le dernier créé sur ta barre de mesnus, tu peux essayer ça

Code :

    Application.CommandBars("Menu Bar").Controls(Application.CommandBars("Menu Bar").Controls.Count).Delete

Sinon, tu peux effectivement tester le caption comme tu le fais.