Lancer une macro distante sur commandBarButton
Bonjour,
Mon objectif est ce créer un classeur Excel, qui charge une macro présente sur le réseau, qui s'exécute lorsque l'utilisateur clique sur le bouton créée dans une commandBar.
Voici ce que je met dans mon classeur :
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
| Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Cache la barre d'outils
Application.CommandBars("Calcul_bandeau").Visible = False
'efface la barre d'outils
Application.CommandBars("Calcul_bandeau").Delete
End Sub
Private Sub Workbook_Open()
Dim CBar As CommandBar, CBarCtl As CommandBarControl
'Charge les macro complémentaires
AddIns.Add("T:\Calcul Bandeau\bandeau.xla", False).Installed = True
' Créer une nouvelle barre d'outils visible.
Set CBar = Application.CommandBars.Add(Name:="calcul_bandeau", Position:=msoBarTop)
CBar.Visible = True
' Créer un bouton avec du texte sur la barre et définir certaines propriétés.
Set CBarCtl = CBar.Controls.Add(Type:=msoControlButton)
With CBarCtl
.Caption = "Calcul du bandeau"
.Style = msoButtonCaption
.TooltipText = "Dépile les informations définies dans l'onglet 'Relevé Video'"
.OnAction = "T:\Calcul Bandeau\bandeau.xla!bandeau"
End With
End Sub |
Voici comment j'appelle ma macro bandeau.xla avec sa fonction principale :
Code:
1
2
3
4
5
6
7
8
| Function Bandeau()
' Sélection de la feuille active
Worksheets("Relevé Video").Activate
...
End Function |
Le problème c'est qu'Excel refuse de me lancer la fonction principale bandeau() lorsque j'appuie sur le bouton. Il me dit que ma macro est déjà chargée. A mon avis le OnAction n'est pas bon, mais je pense avoir essayé un paquet de truc et à chaque fois ça plante !?
Je suis preneur de toutes les pistes que vous pourrez me donner,
Merci
