Voila comment je procède
If FileExists(App.Path & "\" & NomDuFichier) Then
Call Kill(App.Path & "\" & NomDuFichier)
End If
Private Function FileExists(ByRef Fichier As String) As Boolean
On Error Resume Next
FileExists = ((GetAttr(Fichier) And vbDirectory) = 0)
End Function
Duracelle
