Tester existence fichier

Bonsoir,

J'ai constitué un code (et je ne suis pas peu fier) qui me permet d'enregister des photos rapidement.

La macro teste l'existence d'une photo portant le même nom, si c'est le cas, demande si je veux la remplacer.

Si oui efface l'ancienne photo et enregistre la nouvelle.

Le plus compliqué est fait enfin je pense.

Par contre si la photo n'existe pas, après test, je voudrais tout simplement la créer, l'enregistrer t c'est là où je but.

J'ai essayé quelques méthodes sans succés...

Peut être faut-il que je change ma façon de tester en utilisant la fonction "Dir"?

Sub GestPhotos
Dim AncienNom As String, sNomFichier As String
AncienNom = " "
sNomFichier = " "
If ExistenceFichier (sNomFichier) Then
If MsgBox("Cette photo existe déjà vouvez-vous la remplacer ?", vbYesNo, "Demande de confirmation") = vbYes Then
Kill sNomFichier
Name AncienNom As sNomFichier
MsgBox "bla"
End If
End If
End Sub

J'ai essayé

Else
If Not ExistenceFichier (sNomFichier) Then

ça ne me semble pas bien compliqué, mais...

Merci pour votre aide

En utilisant "Dir" ça fonctionne bien.