Fonction dir

bonjour,

je cheche à remplacer dans mon code:

Sub supprimertxtmail()

If Dir(M:\excel mail\brioche 1810.txt) <> "" Then

Kill Range("e2")

End If

End Sub

par le nom de cellule dans laquelle se trouve cette adresse, du genre:

en e2: M:\excel mail\brioche 1810.txt

ma macro:

Sub supprimertxtmail()

If Dir = range ("e2") <> "" Then

Kill Range("e2")

End If

End Sub

mais je ne trouve pas la bonne syntaxe.

une idée ?

merci

Bonjour,

proposition de correction

attention ta macro supprime le fichier, vérifie bien que e2 contient le fichier que tu veux supprimer

Sub supprimertxtmail()
If Dir ( range ("e2")) <> "" Then
Kill Range("e2")
End If

tout simplement !

merci

à+