Pour activer Microsoft Scripting RuntimeRésolu

Question

Bonjour &#224; tous, 
Je viens tout jutse de comprendre qu'il faut cocher Microsoft Scripting Runtime  pour utiliser FileSystemObject. Mais est-il possible de l'activer automatiquement via une ligne de code ?
Merci &#224; vous.
rstefr

cs_wape · Accepted Answer

Bonjour,

Si tu d&#233;coches la r&#233;f&#233;rence "Microsoft Scripting Runtime" tu ne peux plus utiliser,
dans la d&#233;claration des variables, les types de donn&#233;es "FileSystemObject" et "Drive", qui sont propres &#224; la r&#233;f&#233;rence en question.
 
Dans ce cas, il faut utiliser le type de donn&#233;es "Object" :

Dim fso As Object
Dim Drive As Object

wape

Paladin2107 · Answer

non je ne pense po que se soi possible

Couscous

aieeeuuuuu · Answer

tu peux utiliser la methode CreateObject, ca t'evite de devoir cocher la case dans les references sous VB
mais le probleme c'est que d'une part si le composant est manquant, tu aura une erreur seulement au moment ou tu essaie de cr&#233;er ton objet
et en plus tu n'aura pas la compl&#233;tion, c dommage :)

rstefr · Answer

En effet, j'avais cru comprendre qu'on pouvait utiliser cette commande :
Set fs = CreateObject("Scripting.FileSystemObject")
mais le problème est que ca ne fonctionne tjs pas. Peut etre ne l'ai-je pas placée au bon endroit, mais alors où ?

aieeeuuuuu · Answer

qu'est ce que tu as comme erreur ?

rstefr · Answer

En fait, lorsque je coche manuellement le Scripting Runtime, mon code fonctionne, donc pas de pb:
    Dim fso As FileSystemObject
    Dim DongLettre As Integer
    Dim Drive As Drive

Mais lorsque je le decoche pour utiliser ce code:
    Set fs = CreateObject("Scripting.FileSystemObject")
    Dim fso As FileSystemObject
    Dim DongLettre As Integer
    Dim Drive As Drive
J'ai le message suivant pour le fso.
    User-defined type not defined
Et si je supprime la ligne du fso, c pour le drive que j ai le message. Donc je pense que je n ai pas bien compris la ligne "set fs ..."

rstefr · Answer

ok merci j'ai compris

Pour activer Microsoft Scripting Runtime

7 réponses

Discussions similaires