test présence fichier repertoire

[cortadillo]

j'aimerais faire un test sur la présence du fichier avant la création:

Peut on m'aider

Fichier = "Suivi du projet ONP " & Format(Date, "dd-mm-yyyy") & ".htm"
Si test dans le répertoire \\Srvdatava\Publier\ pas de présence de fichier Alors
ThisWorkbook.SaveAs _
"\\Srvdatava\Publier\Suivi des prix " & Format(Date, "dd-mm-yyyy") & ".htm", xlHtml
Else
Msgbox("le fichier existe déjà", exit sub)

End If

 

[Pierrot93]

Re : test présence fichier repertoire

Bonjour,

regarde dans l'aide vba du coté de la fonction DIR, devrait répondre à ton besoin.

bonne journée
@+

 

[job75]

Re : test présence fichier repertoire

Re cortadillo, salut Pierrot

En effet, j'ai répondu sur l'autre fil :

https://www.excel-downloads.com/thr...ublier-un-classeur-en-html-merci-help.181091/

A+