Hello !
 
J'ai un souci de création d'un menu...
 
Je voudrais en créer un du genre :
 
OUTILS>Langue>TRaduction
 
J'arrive à faire :  
OUTILS>Langue
Mais après je ne sais comment faire...
 
Qqun peut m'aider ??
 
Merci d'avance !

Dim TonMenu (imaginons ton "outils" ), TonSousMenu (là langue) As CommandBarPopup
Dim BoutonTraduction As CommandBarButton
 
'Création du menu TonMenu
Set TonMenu = Application.CommandBars(1).Controls.Add(msoControlPopup)
With TonMenu
    .Caption = "Nom que tu veux"
End With
 
'sous-menu  
Set TonSousMenu = TonMenu.Controls.Add(msoControlPopup)
    With TonSousMenu  
        .Caption = "Langue"
    End With
Set BoutonTraduction = TonSousMenu .Controls.Add(msoControlButton)
    With MemePoliceBouton
        .Caption = "Traduction"
        .OnAction = "nom de la macro associée"
    End With

a la fin c'est with BoutonTraduction et non MemePoliceBouton

OK merci beaucoup !!!