Comment ajouter une référence à un XLA par macro ?

Bonjour,

j'ai développé un XLA qui contient toutes les macros d'une application.
A côté, j'ai plusieurs utilisateurs qui utilisent des excel qui pointent sur ce XLA.
Actuellement, il faut que je passe sur tous les excels pour ajouter la référence manuellement (Alt F11 / Outils / Références ...). Je précise bien que c'est une référence et non un Add-in.

Sur le NET, j'ai vu des post qui indiquent d'utiliser le code suivant :

Code:

---

1 2 3 4

Private Sub Workbook_Open() ThisWorkbook.VBProject.References.AddFromFile ("D:\Plan de charge.xla") End Sub

---

Mais j'ai l'erreur :
"La méthode VBProject de l'objet Workbook a échouée"

Quelle est mon erreur ?

Par avance, merci !

Pour essayer de comprendre l'erreur j'ai décomposé le code.
L'erreur se produit sur la ligne 4 alors que VBProject est bien une propriété de Workbook.

Code:

---

1 2 3 4 5 6

Sub test() Dim vbProj As VBIDE.VBProject Set vbProj = ActiveWorkbook.VBProject vbProj.References.AddFromFile ("D:\Plan de charge.xla") End Sub

---

Avez-vous des idées ?
Merci

Bonjour,
Il faut référencer Microsoft Visual Basic for Applications Extensibility 5.3

Merci pour ta réponse Philippe. Ça marche ... malheureusement pour moi :?

Je m'explique :
je cherchais une méthode pour déployer un nouveau XLA à tous mes utilisateurs en déclenchant une macro de référencement. Mais, étant donné qu'il faut passer sur tous les postes pour activer la librairie, l'objectif est raté.

Je vais donc clore cette discussion et en ouvrir une autre sur une idée de déploiement.

Merci pour ton aide