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.

[zyhack]

Bonjour

je viens de tester le premier code et il a très bien fonctionné.

questions :

• As-tu vérifier que le fichier est bien présent à cet emplacement ?
• Quel est le message d'erreur affiché ? ça pourrais aider à définir le problème

[doncamelo]

Bonjour zyhack,

Le fichier scrrun.dll est bien dans : C:\WINDOWS\system32\

- Pour le test1 le message est le suivant :

Erreur d'exécution '1004':
La méthode 'VBProject' de l'objet '_Workbook' a échoué

en cliquant sur débogage, se met en jaune la ligne :

Code :

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

ThisWorkbook.VBProject.References.AddFromFile xRef

- Pour le test2 le message est le suivant :

Erreur de compilation:
Sub ou Function non définie

en cliquant sur OK, se met en jaune la ligne :

Code :

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

Sub test2()

et en bleu ReferenceActive

- Pour le test3 le message est idem au test2:

[zyhack]

Bonjour

pour le premier je ne vois pas pourquoi il ne fonctionne pas pour toi car comme je te l'ai dis il fonctionne pour moi.

par contre pour le deuxième
la ligne

Code :

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

If Not ReferenceActive("scripting") Then ActiverReference "scrrun.dll"

fait appel à deux autres routines appelés ReferenceActive et ActiverReference

donc je ne sais pas ou tu as récupéré ce code mais il devrait y avoir deux Sub ou Function lié à ce code

[mercatog]

Code :

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

1
2
3
4
5
6
7
Sub test1()
Dim xRef As String
xRef = "C:\WINDOWS\system32\scrrun.dll"
on error resume next
ThisWorkbook.VBProject.References.AddFromFile xRef
on error goto 0
End Sub

Si la référence est déjà activée, il y a certes erreur

[doncamelo]

Bonjour mercatog,zyhack,

Merci pour vos réponses, mais ça ne marche toujours pas sur mon poste.
Le " on error resume next " evie l'affichage de l'erreur mais la référence n'est pas cochée.

Je testerai demain au boulot.

[doncamelo]

Bonjour,

Désolé pour ce temps de silence.
J'ai fais le test sur quelques postes à mon boulot et j'ai toujours le même message d'erreur.

Si je trouve une solution je ne manquerai pas de vous le faire savoir.

Merci beaucoup

[doncamelo]

Bonsoir le forum,

Je vais clore la discussion pour vous éviter de vous faire perdre du temps.
Bonne soirée

[Yoyo57]

Bonjour doncamelo,

Chez moi aussi ce code fonctionne parfaitement. As-tu essayé de lancer ce code dès l'ouverture du document (en utilisant l'évènement Open de ThisWorkbook) ?

[revilo]

Bonjour,

J'ai eu le même problème, voilà comment je l'ai résolu :

J'ai créé une sub récupérant la la référence au chargement du document :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
    'Chargement des références à l'ouverture du document
 
    ' Pour que celà fonctionne Pour atteindre le même menu sous Excel 2007 :
    ' Menu Office -> Options Excel -> Centre de gestion de la confidentialité -> Paramètres du Centre de gestion de la confidentialité -> Paramètres des macros -> Accès approuvé au modèle d'objet du projet VBA
 
    Dim ref As String
    ref= "C:\Windows\System32\scrrun.dll" 'microsoft-scripting-runtime nécéssaire à la manipulation des fichiers
    ThisWorkbook.VBProject.References.AddFromFile ref
 
End Sub

Si ça peut aider.

++

[patricktoulon]

bonjour
dans le pire des cas il peut y avoir de erreur selon les version 32:64 bits

a tu entendu parler de late bending???

surtout si tu sais de quel objet tu va te servir avec cette librairie

au plaisir

[Invité]

je peux comprendre qu'il peut être utile de charger une référence mais dans ce cas je ne voies pas, car le mieux est de sens passer tout simplement.

Code :

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

1
2
3
4
Sub Test()
Set MyDictionary = CreateObject("Scripting.Dictionary")
Set MyFileSystemObject = CreateObject("Scripting.FileSystemObject")
End Sub

utilise autant que possible des CreateObject car les objets seront toujours créé suivant la version installé sur la machine.