activer scripting runtime automatiquement

Bonjour,

J'ai un fichier sur le réseau de la compagnie pour laquelle je travaille qui va appeler des macros de d'autres fichiers.

Le problème est que certains fichiers n'ont pas scripting runtime d'activé dans les références, donc la macro arrête.

Y-a t-il un moyen d'activer scripting runtime automatiquement à l'ouverture des fichiers?

Merci

Code:

---

1 2 3

On Error Resume Next ThisWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\scrrun.dll" On Error Goto 0

---

Merci pour la réponse, mais ça ne fonctionne pas,

Code:

---

1 2 3 4 5

Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") Dim dossier As Scripting.folder Dim sous_dossier As Scripting.folder Dim fichier As Scripting.File

---

Ça plante et ça dit :

Compile error
User defined type not defined

De quelle référence tu cherches à cocher par code?

essaies ce code dans un poste où ton code fonctionne!

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim i As Integer With ThisWorkbook.VBProject.References For i = 1 To .Count Cells(i, 1) = .Item(i).Name Cells(i, 2) = .Item(i).Description Cells(i, 3) = .Item(i).FullPath Cells(i, 4) = .Item(i).GUID Cells(i, 5) = .Item(i).IsBroken Next i End With

---

tu trouve toutes les bibliothèques référencées.

le code précédent permet de cocher par code la référence choisie

Citation:

---

Scripting Microsoft Scripting Runtime C:\Windows\system32\scrrun.dll

---

Je veux cocher Microsoft Scripting Runtime,

J'ai essayé votre code et ça plante à la ligne

With ThisWorkbook.VBProject.References

Run-time error '1004':
Application-defined or object-defined error

Au minimum ces 2 réf doivent être activés:

Citation:

---

Visual Basic For Applications -- C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
Microsoft Excel 11.0 Object Library -- C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE

---

A mon avis vous devriez réessayer le code qui vous est proposé. Il est sous un on error donc il ne peut pas planter, et deuxièmement il n'y a pas de with.


Quoiqu'il en soit vous débrouillerez votre problème en utilisant le code de mercatog, et en changeant scripting.runtime par object

Code:

---

dim dossier as object

---