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

Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   295
 
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
flo
 
Merci beaucoup !!
0