Discussion :

[Tom55555]

Bonjour à tous,

Existe-t-il un code permettant la création des boutons (donnant accès à mes macros) dans la barre d'accès rapide ?

En fait, mon but est de faire en sorte que si une personne utilise mon fichier en le prenant sur le réseau, il puisse retrouver ces boutons dans la barre d'accès rapide.



Malheureusement, malgré l'apparition de ces boutons lorsque j'ouvre le fichier sur mon ordinateur, les autres utilisateurs n'ont pas la même interface. Peut-on remédier à cela ?

Merci beaucoup !

[antonysansh]

Dans la barre d'accès rapide, je ne sais pas.
Par contre dans un onglet complément le temps de l'utilisation du fichier, oui !!! (disparait après la fermeture du fichier)

Dans ThisWorkbook :

Code :

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

1
2
3
Private Sub Workbook_Open()
    Call test
End Sub

Dans un module :

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
Sub test()
    'Declaration des variables
    Dim MaBarre As CommandBar, MonBouton As CommandBarButton
        'Instance de la barre
            'MenuBar:=False pour ne pas remplacer la barre active
            'temporary:=True disparée une fois le classeur fermé
        Set MaBarre = Application.CommandBars.Add(Name:="test_barre", _
                                      Position:=msoBarTop, _
                                      MenuBar:=False, _
                                      temporary:=True)
        'Instance d'un bouton dans ma barre "test_barre"
            '.FaceId = 201 pour lui associer une image (la liste ce trouve sur le net)
            '.OnAction = "message" pour lui associer une macro
        Set MonBouton = Application.CommandBars("test_barre").Controls.Add(msoControlButton)
            With MonBouton
                .FaceId = 201
                .OnAction = "message"
            End With
            Call afficher_barre
End Sub

Code :

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

1
2
3
4
5
6
7
Sub afficher_barre()
    'On teste si la barre est dispo pour pouvoir l'afficher
    With Application.CommandBars("test_barre")
        If .Enabled = False Then .Enabled = True
            .Visible = True
    End With
End Sub

Code :

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

1
2
3
4
Sub message()
    'une macro toute simple pour illustrer
    MsgBox "Voilà un petit message"
End Sub

Avec le tout, tu as un onglet complément qui contient un bouton servant à afficher un message.

[Tom55555]

Merci beaucoup !
Tout marche correctement sauf la macro :/.
Un message d'erreur apparaît : "Impossible d'exécuter la macr (nom de la macro), il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées.

J'ai pourtant bien paramétré les configurations de sécurité et la procédure de ma macro est écrite juste en dessous de celle permettant d'afficher l'onglet "complément". :/

[antonysansh]

Dans mon exemple j'ai écrit une macro qui renvoie juste un MsgBox, j'ai appelé cette macro "message" ensuite je l'attribue a mon bouton MonBouton.OnAction = "message"

Tu dois juste adapter le nom de la Subpour y mettre la tienne.
Je pense que la Suben question doit être dans le même Projet sinon Excel ne peut pas la trouver.

Essayer de la placer dans le même module ou de vérifier qu'elle n'est pas en Private.