Discussion :

[joums]

Bonjour,

Je souhaite créer un menu personnalisé,

j'ai lu les différents tuto à ce sujet,
j'arrive à créer un menu avec plusieurs boutons

mais je n'arrive pas à leur associer une image personnalisé

Voici le code utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Workbook_Open()
  Dim CmdBar As CommandBar
    Dim Bouton As CommandBarButton
 
    'Création de la barre d'outils nommée 'MaBarrePerso'
    Set CmdBar = Application.CommandBars _
        .Add(Name:="MaBarre", Position:=msoBarTop, Temporary:=True)
 
    'Ajout de 3 boutons dans la barre d'outils
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        '.Name = bouton1
        'Définit "l'image" qui va s'afficher sur le bouton
 
 
       '.FaceId = 133 'CELA MARCHE AVEC DES ICONES PREDEFINIES
 
        'Définit quelle macro est associée au bouton.
        'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.  
        .OnAction = "Macro1"
    End With
 
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .FaceId = 134
        .OnAction = "Macro2"
    End With
 
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
         .FaceId = 135
        .OnAction = "Macro3"
    End With
 
    CmdBar.Visible = True
 
End Sub

En lisant le tuto de Fring je réussit à créer un autre bouton avec une image perso mais seulement en actionnant une macro.
Je ne sais pas le faire dès l'ouverture du fichier excel


Merci pour votre aide

[joums]

Re,
J'ai tenté d'associer une image à un bouton directement mais
Ca ne marche pas, je n'y arrive pas

J'ai donné un nom à chaque bouton
et j'ai attribué l'image

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'emplacement de l'image
D = "F:\Data\image.jpg"
 With Bouton
        '.Name = bouton1
        'Définit "l'image" qui va s'afficher sur le bouton
        .picture = D
 
       '.FaceId = 133 'CELA MARCHE AVEC DES ICONES PREDEFINIES
 
        'Définit quelle macro est associée au bouton.
        'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.  
        .OnAction = "Macro1"
    End With

Auriez vous une idée ?

Merci