Problème avec Barre Macros
Bonjour,
J'ai mes macros qui sont contenus dans trois fichiers (ventes, achats, divers).
J'aimerais mettre certains de ces macros dans ma barre d'outils personnalisée.
J'ai un fichier (macrobarre) sur lequel est répertorié toutes les macros qui doivent être mises dans la barre d'outil. Dans ce dernier fichier à la ligne 4 sont marqués les noms de ces macros et les icones à affecter aux boutons.
j'ai fait ce code pour creer la barre d'outil mais je ne sais pas comment dire d'aller chercher les macros dans les trois fichiers.
Pouvez-vous m'aider svp?
Merci d'avance
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
28
29
| Private Sub CreationBarre()
Dim CmdBar As CommandBar
Dim Bouton As CommandBarButton
Dim xlwkb As Workbook
Dim xlwks As Worksheet
Dim i As Integer
Application.CommandBars("Barre").Delete 'effacer la barre d'outils précedente
'Création de la barre d'outils nommée 'Barre'
Set CmdBar = Application.CommandBars _
.Add(Name:="Barre", Position:=msoBarTop, Temporary:=True)
Set xlwkb = Workbooks("macrobarre")
Set xlwks = xlwkb.Sheets(1)
xlwks.Activate
For i = 1 To xlwks.Shapes.Count
xlwks.Shapes(i).Copy
'Ajout de boutons dans la barre d'outils
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.Caption = xlwks.Cells(3, i)
.PasteFace 'colle l'image qui va s'afficher sur le bouton
'Définit quelle macro est associée au bouton.
.OnAction = xlwks.Cells(4, i)
End With
Next i
'xlwkb.Close
CmdBar.Visible = True
End Sub |
