Verifier si URL existe

Version imprimable

Bonjour,
Quelqu'un connais un exemple de code (plus simple possible) pour vérifier si une image existe sur une page web.
J'ai essayé avec dir() mais ça marche pas
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub VerifExistePhoto() Dim Nom_Fichier As String Nom_Fichier = "http://site.fr/MonImage.jpg" If Dir(Nom_Fichier) > "" Then MsgBox "le fichier " & Nom_Fichier & " existe" Else MsgBox "le fichier " & Nom_Fichier & " n'existe pas" End If End Sub
merci pour votre aide

Bonjour,

J'ai trouvé ça sur internet; adapte à tes besoins :

Code:

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
29
Function Test_URLExists()
  Dim url As String
 
  url = "http://www.mrexcel.com/forum/showthread.php?t=567315"
  MsgBox url, vbInformation, URLExists(url)
 
  url = "http://xwww.mrexcel.com/forum/showthread.php?t=567315"
  MsgBox url, vbInformation, URLExists(url)
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

14/05/2012, 09h27
rems02

Merci,
C'est exactement ça;)