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