Macro complémentaire et Icone dans Menu Excel

[MuscatMimi]

Bonjour,a tous le Forum

je viens de créer une Macro Complémentaire, elle fonctionne
enregistrée dans Macro Complémentaire sous Xla
Nom de cette Macro "CalWindows"

Mais je ne sais pas quelle procédure y ajouter afin qu'il y est une Icone dans ma barre de Menu principal Excel?,

merci a tous

 

[kjin]

Re : Macro complémentaire et Icone dans Menu Excel

Bonjour christian,
Ajoute dans ta macro complémentaire une procédure pour créer une nouvelle barre de menu et un bouton qui te permettras de lancer cette macro, si j'ai bien compris la question
A+
kjin

 

[MuscatMimi]

Re : Macro complémentaire et Icone dans Menu Excel

Bonjour Kjin
merci de me répondre,
Je sais mais je sais pas faire cela, j'ai essayé mais en vain
Codialement

 

[kjin]

Re : Macro complémentaire et Icone dans Menu Excel

Re,
Dans la macro complémentaire

Sub BarreKiki()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
    Set barre = CommandBars.Add(Name:="BarreKiki")
        barre.Visible = True
    Set bouton = CommandBars("BarreKiki").Controls.Add(Type:=msoControlButton)
        bouton.BeginGroup = True
        bouton.Style = msoButtonIconAndCaption
        bouton.OnAction = "CallWindows"
        bouton.Caption = "Ma macro"
        bouton.TooltipText = "Coucou kiki"
End Sub

Sub CallWindows() 'Ici la macro
MsgBox "Coucou Christian"

End Sub

En mode déboggage, déroule la procédure "BarreKiki"
A+
kjin

 

[MuscatMimi]

Re : Macro complémentaire et Icone dans Menu Excel

Bonsoir Kjin

Je comprends rien, juste aprés d'avoir répondu a ton premier message, j'ai fais une rectif, en disant que j'avais trouvé

Mais je tiens a te remercier, pour ta réponse,je vais essayer demain je te dirais
Voici le code que j'ai bricolé , et qui fonctionne
code , qui je crois que j'ai pris sur ce site

Private Sub Workbook_Open()
Dim Nouveau As CommandBarControl

On Error Resume Next
Set Nouveau = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With Nouveau
.Caption = "Chéq"

.FaceId = 481
.Style = msoButtonIconAndCaption
.OnAction = "Chéq"

End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars(1).Controls("Cheq").Delete
End Sub

Sub Chéq()
Workbooks.Open Filename:="F:\Mes Documents Cat\Formation logiciels\Excel\Imprime Chéque\Imprime Chéque By Chris.xls"
End Sub

Bonne nuit
Cordialement