Supprimer le contenue d'un ficher texte via VBA

[saadmechiche]

Bonjour ,

J'ai besoin de supprimer le contenue d'un fichier texte via vba Excel pour chaque lancement d'une autre macro , j'ai reussi a creer une Macro mais elle me laisse un ou deux charactere en trop (code ascii de delete).
Pouvez vous me dire comment faire pour que mon fichier soit totalement vide (soit 0 kb)
Merci à vous.
voici mon code.

Sub WriteIt()
'requires a reference to the Windows Script Host Object Model
On Error Resume Next
Dim FSO As FileSystemObject
Dim tsInput As TextStream
Dim strFile As String
Dim strLine As String
Dim i As Integer
i = 0
strFile = "C:\fichier.txt"
Set FSO = New FileSystemObject
Set tsInput = FSO.OpenTextFile(strFile, ForWriting)

tsInput.Write (Chr$(127))

tsInput.Close
Set FSO = Nothing
End Sub

 

[camarchepas]

Re : Supprimer le contenue d'un ficher texte via VBA

Bonsoir,

Pourquoi ne pas le supprimer et simplement recréer un fichier vide