test présence fichier repertoire

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