[VBA-E] Bouton perso dans menu standard

Version imprimable

22/01/2007, 22h25
electrosat03

[VBA-E] Bouton perso dans menu standard

Salut à tous,

J'aimerais savoir comment ajouter dans la barre de menu standard, un bouton personnalisé(le smile) pour que celui-ci soit dans le fichier.

Donc si je place le fichier.xls sur un autre PC, je voudrais que ce bouton soit visible. Y a t-il moyen, par code VBA, au chargement de la feuille peut-être??

Merci A+

Oui, c'est possible.
Tu crées ton bouton dans la sub Auto_Open et tu l'effaces dans Auto_close

Code:

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
Sub Auto_open()
    Application.EnableEvents = True
    Call CréerBouton
End Sub
 
Sub CréerBouton()
Dim nbboutons As Byte
    Set MonControl = Application.CommandBars("Standard")
    With MonControl
        nbboutons = .Controls.Count
        Set MonBouton = .Controls.Add(msoControlButton, 2950, nbboutons)
            With MonBouton
                .Caption = "Recettes"
                .OnAction = "NomMacroAssociée"
            End With
        Set MonBouton = Nothing
    End With
    Set MonControl = Nothing
End Sub
 
Sub Auto_Close()
    Call SupprimerBouton
End Sub
 
Sub SupprimerBouton()
    Application.CommandBars("Standard").Controls(Application.CommandBars("Standard").Controls.Count).Delete
End Sub

Tu dis
A+

mettre image et texte dans menu avec VBA Excel

Salut,

Merci, ça marche.

J'ai modifié un peu :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub CréerBouton()
Dim nbboutons As Byte
    Set MonControl = Application.CommandBars("Worksheet Menu Bar") 'Barre de Menu
    With MonControl
        nbboutons = .Controls.Count 'Nbr de controle
        Set MonBouton = .Controls.Add(Type:=msoControlButton, ID:=2950, Before:=nbboutons)
            With MonBouton
                .Caption = "Se que je veux" 'Texte affiché
                .OnAction = "Macro" 'Nom de la Macro
            End With
        Set MonBouton = Nothing
    End With
    Set MonControl = Nothing
End Sub

Voilà, j'aimerais pouvoir par code, mettre du texte à côté de l'image.

Tu peux m'aider.

Merci A+

Ajoute la ligne en bleu

Code:

1
2
3
4
5
            With MonBouton
                .Caption = "Camembert recettes"
                .OnAction = "CamembertRecettesAnnuelles"
                .Style = msoButtonIconAndCaption
            End With

A+

24/01/2007, 17h09
electrosat03

Salut,

Merci ouskel'n'or pour ta réponse rapide, c'est exactement ça.

A+