Verifier validité lien HTML

Bonjour,

J'ai un fichier qui contient des liens HTML vers des images.

Je dois vérifier si les liens sont corrects. CAD si ils sont valide.

Je suis débutant sous excel :/

J'ai ce code VBA mais ça ne fonctionne pas :

Function Lien_Valide(MonUrl As String) As Boolean

Lien_Valide = Dir(MonUrl) <> ""

End Function

Il me donne #VALEUR! sauf pour les cases qui ne contienne pas de lien (juste du texte) auquel cas il me donne la réponse attendu : "FAUX"

J'ai alors transformé les liens des photos en =LIEN_HYPERTEXTE("xxx") mais ça ne marche toujours pas :/

Un grand merci pour votre aide.

8photo.xlsm (14.91 Ko)

Bonjour,

Là tu prends un code comme si les photos étaient sur ton PC.

C'est un peu plus complexe quand même !

Public Function Lien_Valide(MonUrl As String) As Boolean
On Error GoTo Erreur
Dim oXHTTP As Object
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")

    oXHTTP.Open "HEAD", MonUrl, False
    oXHTTP.Send
    Lien_Valide = (oXHTTP.Status = 200)
    Exit Function

Erreur:
    Lien_Valide = CVErr(xlErrValue)
End Function
6photo.xlsm (14.94 Ko)

Un immense merci !

je t'en prie

Rechercher des sujets similaires à "verifier validite lien html"