Discussion :

[ddeee]

Bonjour,

comment faire pour tester une URL ?
mon code doit vérifier si un fichier image existe sur un autre serveur

[Immobilis]

XMLHTTP

[ddeee]

merci je n'aurais jamais trouvé !!

ci-dessous ma fonction qui marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Function URLexiste(urlStr)
  Dim xmlHttp
  Dim retStr
 
  Set xmlHttp = CreateObject("Msxml2.XMLHTTP")
  On Error Resume Next
 
  xmlHttp.Open "GET", urlStr, False
 
  xmlHttp.setRequestHeader "Content-Type", _
          "application/x-www-form-urlencoded"
  xmlHttp.Send
 
  If Err.Number = 0 Then
  lapage=   xmlHttp.responseText
  if instr(lcase(lapage),"404")<>0 then
      URLexiste = false
  else
      URLexiste = true
  end if
 
  Else
    URLexiste = false
  End If
  Set xmlHttp = nothing
 
End Function