bonsoir Tamara
j'espere que cet exemple pourra t'aider
un nouveau menu 'monMenu' s'affiche lors de l'ouverture du classeur
le menu est supprimé lors de la fermeture du classeur
Private Sub Workbook_Open()
Dim Nouveau As CommandBarControl
Dim Nouveau10 As CommandBarControl
Dim Nouveau11 As CommandBarControl, Nouveau12 As CommandBarControl
Dim Nouveau20 As CommandBarControl
On Error Resume Next
Set Nouveau = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With Nouveau
.Caption = 'monMenu'
End With
Set Nouveau10 = Nouveau.Controls.Add(msoControlPopup, , , , True)
With Nouveau10
.Caption = 'Menu1'
.Style = msoButtonIconAndCaption
End With
Set Nouveau11 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau11
.Caption = 'Sous menu 01'
.FaceId = 481
.Style = msoButtonIconAndCaption
.OnAction = 'maMacro1'
End With
Set Nouveau12 = Nouveau10.Controls.Add(msoControlButton, , , , True)
With Nouveau12
.Caption = 'Sous menu 02'
.FaceId = 483
.Style = msoButtonIconAndCaption
.OnAction = 'maMacro2'
End With
Set Nouveau20 = Nouveau.Controls.Add(msoControlButton, , , , True)
With Nouveau20
.Caption = 'Menu2'
.FaceId = 484
.Style = msoButtonIconAndCaption
.OnAction = 'maMacro3'
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars(1).Controls('monMenu').Delete
End Sub
bonne soiree
MichelXld [file name=ajoutMenuPersonnalise.zip size=9508]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ajoutMenuPersonnalise.zip[/file]