cortadillo
XLDnaute Nouveau
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
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