Discussion :

[Tinou35]

Bonjour à tous,

pas de 1er mai pour les développeurs !

Voilà mon problème (plutôt classique, il me semble) :
je dois rendre accessible à plusieurs postes en réseau une macro créant un tableau croisé dynamique à partir d'une feuille de données.
Afin de rendre l'opération plus facile, je charge la macro complémentaire dans excel et j'installe un bouton dans la barre de commande à l'aide du code :

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
Sub Install_TCD()
 
 Dim xlaPath As String
 Dim nvBouton As CommandBarButton
 
   xlaPath = "C:\Documents and Settings\Mes documents\XL_Macro\tcd.xla"
 
    ' Installation de la macro dans les macros complémentaires
    Set myAddin = AddIns.Add(Filename:=xlaPath, CopyFile:=False)
    AddIns("Tcd").Installed = True
 
    Set nvBouton = Application.CommandBars("Worksheet Menu Bar").Controls.Add
    With nvBouton
         .Caption = "TCD"
         .FaceId = 956
         .OnAction = "'" & xlaPath & "'!Creation_TCD"
         .State = msoButtonUp
         .Style = msoButtonIconAndCaption
         .Tag = "TCD"
         .TooltipText = "Création d'un tableau croisé dynamique"
    End With
 
End Sub

Merci à ouskel'n'or pour son post résumant la manipulation des commandbars.

Voici le hic : la macro se déroule bien mais lorsque je clique sur le bouton créé, le message "impossible de trouver la macro..." => .OnAction ne retrouve pas la macro complémentaire. J'ai du me tromper quelque part mais je ne vois pas où.

Contraintes :
- je ne veux pas stocker la macro complémentaire sur le C:/
- si possible (ça serait le top), à chaque appui sur le bouton de la barre de commande, excel appelle une macro que je pourrais modifier à loisir

J'espère avoir été exhaustif !
Merci par avance

[SilkyRoad]

Bonsoir,

Je viens de tester ton code et il ne pose pas de soucis particulier.
La procédure 'Creation_TCD' est bien placée dans un module standard du complément ?

bon week end
michel

[Tinou35]

Merci de ta réponse,

"module standard"... il existe plusieurs types de modules ?

[edit]
Je viens de retester mon code. A vrai dire, c'est au boulot que ça pose problème ! Chez moi, ça fonctionne...
Je soupçonne un quelconque blocage d'accès à des disques partagés...
Je vous dirai quoi lundi !

Merci encore et bon WE

[SilkyRoad]

Rebonsoir

"module standard"... il existe plusieurs types de modules ?

Oui

Chaque classeur est constitué:

* D'un module ThisWorkbook.

* D'un module objet pour chaque feuille du classeur (Feuil1, Feuil2, Feuil3 ...).

* De module objet pour chaque feuille Graphique du classeur

* De UserForms (boîtes de dialogues personnalisées), créées par l'utilisateur.

* De modules standards (Module1, Module2 ...), créés par l'utilisateur.

* De modules de classes (Classe1 ...), créés par l'utilisateur.


II-B-1. L'explorateur de projets


bon week end
michel

[Tinou35]

Bonsoir,

tu avais donc raison : ça marche aussi au boulot.
L'idée du module était la bonne : en fait, j'avais enregistré la feuille du .xla et non le module (en cliquant sur la disquette). Du coup, aucun module n'était présent dans mon .xla... sacré piège !
J'ai donc tout rectifié et ça marche nickel !
Merci beaucoup de votre aide.

A bientôt !