Hello,
Je fais un nouveau topic pour un sujet sur lequel je bloque.
Je souhaite vérifier que mon fichier existe sur internet avant de le télécharger. J'ai un code qui me ressort toujours que le fichier existe, même lorsqu'il n'existe pas.. embêtant donc !!
Des idées? merci !
Option Compare Database
Public Function URLexiste(URLaVerifier As String) As Boolean
On Error GoTo Erreur
Dim oXHTTP As Object
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "HEAD", URLaVerifier, False
oXHTTP.send
URLexiste = (oXHTTP.status = 200)
Exit Function
Erreur:
URLexiste = CVErr(xlErrValue)
End Function
Sub VerificationFichierSurInternet()
Dim FichierTest As String
nf = Format(Date, "yyyy") & "_H" & Format(Date, "ww") & "_TEST.xlsx"
FichierTest = "http://.../filename:" & nf & "/archives:0"
If URLexiste(FichierTest) = True Then
MsgBox "Le fichier existe..."
Else
MsgBox "Le fichier n'existe pas ou n'est pas accessible..."
End If
End Sub