Activer microsoft scripting runtime par vba

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:

---

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:

---

ThisWorkbook.VBProject.References.AddFromFile xRef

---

Voici le deuxième:

Code:

---

1 2 3

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

---

J'ai une erreur au niveau de :

Code:

---

ReferenceActive

---

Voici le troisième :

Code:

---

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:

---

ReferenceActive

---

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

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

Bonjour zyhack,

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

- Pour le test1 le message est le suivant :

Citation:

---

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:

---

ThisWorkbook.VBProject.References.AddFromFile xRef

---

- Pour le test2 le message est le suivant :

Citation:

---

Erreur de compilation:
Sub ou Function non définie

---

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

Code:

---

Sub test2()

---

et en bleu ReferenceActive

- Pour le test3 le message est idem au test2:

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:

---

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

Code:

---

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

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.

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

Bonsoir le forum,

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

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) ?

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:

---

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.

++

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

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:

---

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.