Erreur d'exécution '5' vba excel

flo -  
 flo -
Bonjour,
quand je lance le débogage de mon programme il affiche erreur d'exécution '5': argument ou appel de procédure incorrect.
Voici la partie de programme qui bug :

' supprimer le menu
Sub Suppr_Menu()
nombarre = "Worksheet menu bar"
Set NewMenu = Application.CommandBars(nombarre).Controls(nommenu)
NewMenu.Delete
End Sub

Pouvez-vous m'aider?

Merci d'avabce

2 réponses

  1. Bidouilleu_R Messages postés 1209 Statut Membre 296
     
    Bonjour,
    pour supprimer une barre de menu personnelle....

    Application.CommandBars(tonNomDeMenu).Delete

    pourquoi faire compliquer?

    nombarre = "Worksheet menu bar" ' le nom est peut être parlant pour toi
    mais trompeur
    Set NewMenu = Application.CommandBars(nombarre).Controls(nommenu)
    sur la deuxième ligne ...nommenu n'est pas défini sauf si c'est global et que vient faire 'Controls' ???
    Bonne journée.
    0