Verifier qu'un fichier existe sur internet

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

Bonjour,

J'ai trouvé ce code :

Function Test_URLExists()
Dim url As String

url = "https://archive.org/download/ConanNP/ConanNP.xlsm"
If url = True Then
MsgBox "SpreadSheet Updated!"
Else
MsgBox "SpreadSheet Needs Upgdate!"
End If
End Function

Function URLExists(url As String) As Boolean
Dim Request As Object
Dim ff As Integer
Dim rc As Variant

On Error GoTo EndNow
Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")

With Request
.Open "GET", url, False
.Send
rc = .StatusText
End With
Set Request = Nothing
If rc = "OK" Then URLExists = True

Exit Function
EndNow:
End Function

Hello,

Alors du coup il me met toujours que le fichier est inexistant, pourtant il existe

Voici le code entier:

Des pistes ? merci !!

Option Compare Database

Function URLExists(url As String) As Boolean
Dim Request As Object
Dim ff As Integer
Dim rc As Variant

On Error GoTo EndNow
Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")

With Request
.Open "GET", url, False
.send
rc = .statusText
End With
Set Request = Nothing
If rc = "OK" Then URLExists = True

Exit Function
EndNow:
End Function

Sub VerificationFichierSurInternet()

Dim url As String

url = "http://.../filename:2019_H27_TEST.xlsx/archives:0"

If URLExists(url) = True Then
    MsgBox "Le fichier existe..."
Else
    MsgBox "Le fichier n'existe pas ou n'est pas accessible..."
End If

End Sub

bonjour,

enlève le on error goto Endnow et regarde le message d'erreur que tu reçois.