Tester la présence d'une référence

[sscouby]

Bonjour, je crée des petites application en VBA. Pour une de mes application, j'ai besoin d'un référence supplémentaire "Microsoft Word 11.0 Object library".
J'aurais voulus pouvoir tester si cette référence est effectivement chargée et si ce n'est pas le cas la charger. Comment faire ?

Merci de vos réponses

[ThierryAIM]

http://www.developpez.net/forums/d79883/autres-langages/general-visual-basic-6-vbscript/installation-deploiement-securite/vba-e-ajouter-reference-code/

[wape]

Bonjour,

Une possibilité :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim oRef As Object
Dim oRefs As Object
 
Set oRefs = Application.VBE.ActiveVBProject.References
 
On Error Resume Next
 
Set oRef = oRefs("Word")
If Err.Number = 9 Then 'La référence n'existe pas
   Set oRef = oRefs.AddFromFile("C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB")
   Err.Clear
End If
 
On Error GoTo 0

wape