creation commandbar

[sylsyl]

Salut le forum,

je voudrais creer un bouton qui lance ma macro dans la barre d'outils d'Excel.

J'ai fais une recherche sur le forum et j'ai trouver ce fil:

http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=49998&t=49706

qui correspond exactement a ce que j'ai besoin. C'est cool, hein ?

Le probleme est que je ne peux pas telecharger et quand bien meme je voudrais jouer le petit pirate, Winzip n'est pas installe sur le PC que j'utilise. Les boules, hein ?

Alors si quelqu'un avait la gentillesse d'ouvrir le document joint (pour la creation d'un seul bouton) et de me copier/coller la procedure en guise de reponse, ca m'arrangerait beaucoup.

Merci beaucoup,

A++, Sylsyl.

P.S.: le super post de c@thy a ce sujet n'est pas suffisant.

 

[@Christophe@]

Bonjour Sylsyl,

Voici le code à coller dans un module ainsi que un fichier non zippé:


Sub Auto_open()
'
'Création de boutond dans une nouvelle 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)
' ajout des icones dans la barre de commande
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.Caption = "&Button1Caption" 'nom du bouton 3
.Style = msoButtonIconAndCaption
.OnAction = ThisWorkbook.Name & "!MaMacro1" 'démarre MaMacro1
.TooltipText = "MaMacro1" 'légende pour le bouton
End With
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.Caption = "&Button2Caption" 'Nom du bouton 2
.Style = msoButtonIconAndCaption
.OnAction = ThisWorkbook.Name & "!MaMacro2" 'démarre MaMacro2
.TooltipText = "MaMacro2" 'légende pour le bouton
End With
Set mybarButton = mybar.Controls.Add(msoControlButton, , , , True)
With mybarButton
.Caption = "&Button3Caption" 'Nom du bouton 3
.Style = msoButtonIconAndCaption
.OnAction = ThisWorkbook.Name & "!MaMacro3" 'démarre MaMacro3
.TooltipText = "MaMacro3" 'légende pour le bouton
End With
mybar.Visible = True ' display de la barre de commande
End Sub
Sub MaMacro1()
'

End Sub
Sub MaMacro2()
'

End Sub
Sub MaMacro3()
'

End Sub
Sub Auto_close()
'
'Suppression de la barre de menu à la fermeture du fichier
On Error Resume Next
Application.CommandBars("perso").Delete
On Error GoTo 0
End Sub



Bonne chance

@Christophe@

 

[sylsyl]

Merci Christophe,

c'est exactement ce que j'avais besoin, j'y fais quelques petites modifs et le resultat est parfait.

Encore merci, A++, Sylsyl.