Impossible d'activer Microsoft Scripting Runtime

**titi_038** · 30/03/2017, 14h00

Bonjour,

je voudrais écrire dans un fichier texte et je voudrais utiliser ce code pour tester (je n'en suis pas l'auteur) :

Code :

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

1
2
3
4
5
6
7
8
Sub ecrire_dans_fichier()
    Dim GestionFichier As New Scripting.FileSystemObject
    Dim FichierTexte As Scripting.TextStream
    Set FichierTexte = GestionFichier.OpenTextFile("C:\test\test.txt", ForAppending)
        FichierTexte.WriteLine ("test")
    FichierTexte.Close
    Set GestionFichier = Nothing
End Sub

Or, j'ai un message d'erreur : "Erreur de compilation : Type défini par l'utilisateur non défini"
En faisant de nombreuses recherches sur le net, j'ai vu qu'il pourrait s'agit de Microsoft Scripting Runtime non coché.

Or, le souci est que quand je vais sur Options/Préférences, ce dernier est grisé et je ne peux donc rien activer !

Pour info, je suis sous windows 10 et Excel 2016.

Comment faire pour activer Microsoft Scripting Runtime ?
Merci d'avance,

**joe.levrai** · 30/03/2017, 14h11

Bonjour,

c'est un ordinateur sur réseau d'entreprise ? Une stratégie de groupe n'aurait-elle pas inhibé ces bibliothèques ?

essaye de travailler en liaison tardive, procédé qui ne demande pas à ce que la référence soit cochée

si ça passe, c'est bien
si ça passe pas, alors oui c'est neutralisé sur la machine, et tout le parc informatique probablement

Code :

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

1
2
3
4
5
6
7
8
Sub ecrire_dans_fichier()
Dim FichierTexte As Object
    With CreateObject("Scripting.FileSystemObject")
        Set FichierTexte = .OpenTextFile("C:\test\test.txt", ForAppending)
        FichierTexte.WriteLine ("test")
        FichierTexte.Close
    End With
End Sub

Après, Est-ce bien utile de passer par FSO pour ouvrir un fichier texte et y écrire une ligne ?
http://warin.developpez.com/access/fichiers/#LII-A

**Marc-L** · 30/03/2017, 15h03

Bonjour !

Envoyé par titi_038

je voudrais écrire dans un fichier texte et je voudrais utiliser ce code pour tester …
… j'ai vu qu'il pourrait s'agit de Microsoft Scripting Runtime non coché.

De toute manière pas besoin de cocher quoique ce soit pour gérer un fichier texte
entre le B-A-BA d'Excel et le B-A-BA du VBA (voir par exemple l'exemple de Print # dans l'aide VBA interne) !

___________________________________________________________________________________________________________
Je suis Paris, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

**titi_038** · 30/03/2017, 16h45

Merci pour votre retour.
Oui, effectivement, c'est bien sur un PC d'entreprise... C'est surement ça le problème...
Du coup je suis passé par Print# comme évoqué et ça marche tout aussi bien (et plus simple pour moi qui suis débutant en prog...)
Merci. Je clos le sujet du coup