Discussion :

[gronaze]

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 :

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
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 :

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

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

[Godzestla]

Bonjour,

pas besoin de donner l'adresse du classeur mais juste son nom et le module.

Comme ceci :

Code :

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

1
2
 
        LeBouton.OnAction = "'" & NomClasseur & "'!" & NomMacro

Un truc du genre dans ton cas :

Code :

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

1
2
 
      .OnAction = "'" & "bandeau.xla" & "'!" & "bandeau"

La syntaxe est 'classeur'!macro

[gronaze]

Merci, je pense que ça marche mais j'ai un problème car plusieurs macro ont le même nom...

Je fais un peu de ménage puis je teste

[Godzestla]

OK.

Un peu "réducteur" ton nom d'utilisateur, non ?

[gronaze]

L'autodérision élève la raison et permet de mieux connaitre ses faiblesses... isn't it !?