Discussion :

[doncamelo]

Bonjour le forum,

Mon problème est dans le titre.
Je veux pouvoir activer la référence MSR par vba,mais je n'y arrive pas.
En parcourant la faq j'ai trouvé pas mal de codes mais il y a toujours un hic.

Voici mon premier code :

Code :

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

1
2
3
4
5
Sub test1()
Dim xRef As String
xRef = "C:\WINDOWS\system32\scrrun.dll"
ThisWorkbook.VBProject.References.AddFromFile xRef
End Sub

J'ai une erreur à la ligne :

Code :

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

ThisWorkbook.VBProject.References.AddFromFile xRef

Voici le deuxième:

Code :

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

1
2
3
Sub test2()
If Not ReferenceActive("scripting") Then ActiverReference "scrrun.dll"
End Sub

J'ai une erreur au niveau de :

Code :

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

ReferenceActive

Voici le troisième :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test3()
    q = ReferenceActive("scripting")
            If q = False Then
                ThisWorkbook.VBProject.references.AddFromFile "scrrun.dll"
                Else
                ThisWorkbook.VBProject.references.Remove ThisWorkbook.VBProject.references("scripting")
                ThisWorkbook.VBProject.references.AddFromFile "scrrun.dll"
            End If
End Sub

Et là encore j'ai une erreur au niveau de :

Code :

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

ReferenceActive

Pouvez vous me dire ce qui ne va pas dans ces codes ?
Merci pour votre aide.