Discussion :

[Siefch1]

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

[Philippe Tulliez]

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

[Siefch1]

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