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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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