Salut, je suis débutant en programmation et bien sûr, j'ai un problème :
j'ai trouvé un programme qui écrit dans un fichier texte ce que l'on a déjas écrit dans un "inputBox". Le problème est que si je réouvre le programme et que je réécrit dessus, tout ce qui était dans le fichier texte s'efface pour laisser place aux nouvelles données. Si vous pouvez m'aider Merci !
voici le code :
dim fso, fichier
Msg = "Programme"
MsgBox(Msg)
r = inputbox("écrivez votre phrase :")
Set Fso = CreateObject("Scripting.FileSystemObject")
Set fso = Fso.createTextFile("C:\testout.txt")
With fso 'Pour écrire dans le fichier texte
.writeLine "Fichier ouvert le" & date 'Mettre write pour ne pas sauter à la ligne
.writeLine "à : " & time
.writeLine "Message " & r
.writeLine " "
end with