J'ai fait un petit prg qui génère un fichier par jour de la semaine. Si on doit écrire dans le même fichier au bout d'une semaine, on l'efface d'abords pour le vider.
J'espère que cela va t'aider.
Dim lNomFic As String
Dim lFile As File
Dim lDateFichier As DateTime
' Fichier ecrasé chaque nouvelle semaine
If File.Exists(lNomFic) Then
lDateFichier = File.GetLastAccessTime(lNomFic).Date
If lDateFichier <> Now.Date Then
File.Delete(lNomFic)
End If
End If
Rq ne pas oublier de mettre Imports System.IO.
