Discussion :

[wyzer]

Bonjour,

Tout d'abord, je vais vous exposer mon problème :

Au boulot nous avons des sessions virtualisées, et à cause de ça il est impossible de personnaliser certains logiciels (dont Excel).


Est-il possible de développer une Macro (que je copierai dans le répertoire où se trouve "PERSONNAL.XLSB" pour qu'elle se lance automatiquement) qui ajoute des raccourcis dans la barre d'outils d'accès rapide s'il vous plaît ?


Car j'ai lancé l'enregistreur de Macros pendant que je personnalisais la barre d'outils, mais il n'y a aucun code


Merci par avance pour votre aide.

Cordialement.

[bboy-eazy]

Bonjour,

Je suis pas sur que ce soit ce que vous cherchez mais voici comment créer une barre d'outil personnalisée

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
Sub AddButtons_Boites()
Application.ScreenUpdating = False
Dim NewBtn As CommandBarControl
Dim TBar As CommandBar
'   Crée la barre d'outils
    On Error Resume Next
    CommandBars("Nom").Delete
    On Error GoTo 0
    Set TBar = CommandBars.Add
    With TBar
        .Name = "Nom"
        .Position = msoBarTop
        .Visible = True
    End With
 
'   Icône et légende habillée en dessous
    Set NewBtn = CommandBars("Nom").Controls.Add(Type:=msoControlButton)
    With NewBtn
        .BeginGroup = True
        .Style = msoButtonIconAndWrapCaptionBelow
        .Caption = "Nom afficher sur le bouton"
        .FaceId = 316 'valeur mettant une icone
        .OnAction = "Macro1" 'il faut faire une macro qui se lancera quand vous cliquerez sur le bouton
    End With
 
'Set NewBtn = CommandBars("Nom").Controls.Add(Type:=msoControlButton)
   ' With NewBtn
    '    .BeginGroup = True
     '   .Style = msoButtonIconAndWrapCaptionBelow
      '  .Caption = "Nom afficher sur le bouton"
       ' .FaceId = 316 'valeur mettant une icone
        '.OnAction = "Macro1" 'il faut faire une macro qui se lancera quand vous cliquerez sur le bouton
    'End With
end sub

[SfJ5Rpw8]

Bonjour

voir

http://excel.developpez.com/faq/?page=Ruban#CopieQAT

et effectuer une copie du fichier excel.qat ?

[wyzer]

Bonjour,

Je suis pas sur que ce soit ce que vous cherchez mais voici comment créer une barre d'outil personnalisée

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
Sub AddButtons_Boites()
Application.ScreenUpdating = False
Dim NewBtn As CommandBarControl
Dim TBar As CommandBar
'   Crée la barre d'outils
    On Error Resume Next
    CommandBars("Nom").Delete
    On Error GoTo 0
    Set TBar = CommandBars.Add
    With TBar
        .Name = "Nom"
        .Position = msoBarTop
        .Visible = True
    End With
 
'   Icône et légende habillée en dessous
    Set NewBtn = CommandBars("Nom").Controls.Add(Type:=msoControlButton)
    With NewBtn
        .BeginGroup = True
        .Style = msoButtonIconAndWrapCaptionBelow
        .Caption = "Nom afficher sur le bouton"
        .FaceId = 316 'valeur mettant une icone
        .OnAction = "Macro1" 'il faut faire une macro qui se lancera quand vous cliquerez sur le bouton
    End With
 
'Set NewBtn = CommandBars("Nom").Controls.Add(Type:=msoControlButton)
   ' With NewBtn
    '    .BeginGroup = True
     '   .Style = msoButtonIconAndWrapCaptionBelow
      '  .Caption = "Nom afficher sur le bouton"
       ' .FaceId = 316 'valeur mettant une icone
        '.OnAction = "Macro1" 'il faut faire une macro qui se lancera quand vous cliquerez sur le bouton
    'End With
end sub

Merci !!
Ca va me permettre de créer des Ruban perso

[wyzer]

Bonjour

voir

http://excel.developpez.com/faq/?page=Ruban#CopieQAT

et effectuer une copie du fichier excel.qat ?

Parfait !!
C'est exactement ce que je recherchais