Discussion :

[choko62]

ok sa marche merci bien !!

[ced600]

peux tu poster ton code si cela marche ? Cela interessera certainement d'autres personnes

[avigeilpro]

Aller, moi je met la méthode avec le kill (pour ceux qui préfèrent) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim FileAdr As String
Dim FNum As Integer
 
FileAdr = "C:\MonFichier.txt"   'fichier à vider
FNum = FreeFile 'Numéro de fichier libre
 
On Error Resume Next 'évite l'erreur si le fichier n'existe pas
Kill FileAdr
On Error GoTo 0 'rétabli l'affichage des erreurs
 
'Recréé le fichier, sans y mettre quoi que ce soit dedans
Open FileAdr For Binary As FNum
Close FNum

Voila