Exportation vers fichier TXT et XLS

Résolu
phk18
Messages postés
4
Date d'inscription
vendredi 15 octobre 2004
Statut
Membre
Dernière intervention
19 octobre 2004
- 18 oct. 2004 à 17:30
thierrydelepine
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
- 18 oct. 2004 à 17:52
Bonjour,

Je suis à la recherche de la commande me permettant d'exporter le résultat d'un Vbs dans un fichier Txt ou Xls.

Merci pour votre aide

Philippe

1 réponse

thierrydelepine
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
6
18 oct. 2004 à 17:52
Const ForAppending = 2

MyString = "le message a ecrire"

objFSO.CreateTextFile("c:\ttresult.txt")
set objTextFile = objFSO.OpenTextFile ("c:\ttresult.txt", ForAppending, True)
objTextFile.WriteLine(MyString)
objTextFile.Close

Set objFSO = Nothing
3