Donc, pour effacer le contenu d'un fichier, tu déclares
Dim oFSO As New FileSystemObject
Dim oFSTR As Scripting.TextStream
et ensuite, tu écris
'Set oFSTR = oFSO.CreateTextFile("TonFichier.txt", True)
Le true permet d'écraser le contenue de ton fichier.
Voila
N'hesite pas à me demander si tu ne comprend pas
Biscuit

Pensez à accepter les réponses si elles vous conviennent ^^
Il y a des jours où il ne faut pas m'embeter.
Il y a des jours... Tous les jours.
