Discussion :

[rems02]

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 :

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

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

[Daniel.C]

Bonjour,

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

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
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

[rems02]

Merci,
C'est exactement ça