Vbscript: poser une question et l'enregistrer
Résolu/Fermé
A voir également:
- Vbscript: poser une question et l'enregistrer
- Erreur d'exécution microsoft vbscript erreur '800a0046' - Forum VB / VBA
- Vbscript compiler - Forum VB / VBA
- Vbscript split ✓ - Forum VB / VBA
- Vbscript curl ✓ - Forum VB / VBA
- Erreur d'exécution microsoft vbscript erreur '800a01a8' ✓ - Forum Programmation
2 réponses
tu dois écrire cela:
Dim variable
variable = Inputbox ("texte cellule" , "titrefenetre" , "textepardéfaut")
Const ForReading = 1, ForAppend = 8
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\Documents and Settings\anonyme\Bureau\Rapport.txt", ForAppend,true)
f.write(variable)
au passage, le chemin,tu peut le changer a volonté,et le nom de fichier texte aussi idem pour l'extension,ouvert avec bloc notes tu as toujours le même résultat !!!
d'autres trucs tels que texte cellule peuvent être modifiés à volonté
Dim variable
variable = Inputbox ("texte cellule" , "titrefenetre" , "textepardéfaut")
Const ForReading = 1, ForAppend = 8
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\Documents and Settings\anonyme\Bureau\Rapport.txt", ForAppend,true)
f.write(variable)
au passage, le chemin,tu peut le changer a volonté,et le nom de fichier texte aussi idem pour l'extension,ouvert avec bloc notes tu as toujours le même résultat !!!
d'autres trucs tels que texte cellule peuvent être modifiés à volonté