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 :
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 : Pouvez vous me dire ce qui ne va pas dans ces codes ?
Merci pour votre aide.