Bonsoir Momo,
Avant tout, il faut rester sur le même post sinon on ne va plus te suivre. Cela ne sert à rien de mulitplier les posts sur le même sujet. Cela embrouille tout le monde là.
Merci de lire la charte de XLD !
Ton 1er post : <http://www.excel-downloads.com/html/French/forum/messages/1_60148_60148.htm>
Concernant ton pb, voici le code qui te permet de créer par exemple une barre de menu (ici "perso"). reste à savoir ce que tu veux y mettre. Là aussi il faudra compléter la macro pour y placer les icones que tu souhaites.
Veille bien à placer aussi la macro Supprimermenu, pour supprimer la barre de menu.
Sub Creationmenu()
'
'Création d'un bouton dans la barre d'outils
Dim mybar As CommandBar, mybarButton As CommandBarButton
Auto_close ' suppression de la barre de commande si elle existe
' creation d'une nouvelle barre de commande appelée "perso"
Set mybar = CommandBars.Add(Name:="perso", Position:=msoBarTop, temporary:=True)
mybar.Visible = True ' display de la barre de commande
End Sub
Sub Supprimermenu()
'
'Suppression bar menu à la fermeture du fichier
On Error Resume Next
Application.CommandBars("perso").Delete
On Error GoTo 0
End Sub
Bon travail
@+
Dan