Discussion :

[hbc87]

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

[mercatog]

Code :

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

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

[hbc87]

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

Code :

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

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

[mercatog]

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

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

Code :

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

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

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

[hbc87]

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

[mercatog]

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

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

[BenjGe]

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 :

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

dim dossier as object