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é