Discussion :

[koolWak]

Bonjour,
Je voudrais savoir s'il est possible d'utiliser le principe des macros complémentaires (pour déporter des modules standards) aux modules de classe, afin de déporter leurs définitions. Je souhaiterais que tous mes classeurs Excel utilisent la m^me définition de classe.
Si quelqu'un a une piste, je l'en remercies par avance:

[tirex28]

Bonsoir,

Pour chaque module de classe de ta macro complémentaire:

- Afficher la fenetre propriété, définir Instancing à PublicNotCreatable.

- Prévoir une fonction publique dans un module standard renvoyant une instance de la classe. Exemple si ta classe s'appelle Classe1:

Code :

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

1
2
3
Public Function GetClasse1() As Classe1
    Set GetClasse1 = New Classe1
End Function

Pour chaque classeur utilisant les classes de ta macro complémentaire il faut ajouter une référence vers celle-ci (VBE>Outils>Références).

- Tu peux ainsi déclarer des variables du type de tes modules en dehors de la macro complémentaire.
- Par contre pour créer les objets tu dois impérativement passer par les fonctions publiques de la macro complémentaire. Ex:

Code :

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

1
2
3
4
5
6
Dim MaClasse As Classe1
 
Sub Test()
    'Set MaClasse = New Classe1 'Ne fonctionne pas
    Set MaClasse = GetClasse1 'Fonctionne    
End Sub

Cordialement,

Tirex28/

[koolWak]

Merci Tirex28 pour ta réponse. Impeccable et très clair
Pourrais tu me préciser (si tu sais) quelle est la différence entre ajouter une macro complémentaire via Outil\Macro Complémentaire (Excel) ou en faisant référence à la macro via Outils\Référence (Editeur Vba)

[ouskel'n'or]

C'est "un peu" la même chose sauf que les dll sont en langage compilé tandis que les xla sont en langage interprétable. Regarde ici la différence, c'est assez bien expliqué.
Juste pour indication si tu ne le savais pas... tu peux déclarer tes xla par le code

Code :

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

Application.AddIns.Add("C:\LeRep\LeFichier.xla").Installed = True

A toutes fins utiles
Bonne soirée