menu personalisé (suite)

[momo]

Bonjour à tous
Pour créer un menu personnalisé à l'ouverture d'un classeur, Dan m'a conseillé d'écrire ce code.
Dim mybar As CommandBar
Set mybar = CommandBars.Add(Name:="perso", Position:=msoBarTop, temporary:=True)
A l'exécution une erreur apparait.
Ne manque t il pas quelquechose dans les lignes du code.
Merci d'avance pour votre aide
Bonne journée
Momo

 

[Dan]

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

 

[Dan]

Salut Momo,

Oups petite erreur que je viens de voir. Dans la 1ère macro, il faut remplacer "Auto_close" par "supprimermenu".

Bon Travail

@+

Dan

 

[momo]

Bonjour dan
Je te remercie beaucoup pour ton aide.
Je t'annonce la bonne nouvelle "ça fonctionne" (grace à toi).
Bonne soirée et encore merci.

PS: mille excuses pour le double post (ça ne se reproduira plus)