Vérifier connection à une page web

Bonjour

Je suis actuellement en train de créer une macro pour aller chercher des information sur une page web générée par un automate.

Tout se passe bien par contre je souhaiterai pouvoir vérifier la connexion avant de poursuivre la procédure afin de générer un message pour l'utilisateur.

J'ai fait un premier test avec :

On Error GoTo Errliaison

Le problème c'est que toutes les erreurs sont transmises à la fonction Errliaison.

Avez vous un bout de code qui me permettrait de vérifier la connexion à la page html souhaitée.

J'ai essayé ça :

If LienVersLaPage = "" Then
GoTo Errliaison
Else : Msgbox "Connexion établie"
End If

Mais ça ne fonctionne pas car ma variable LienVersLaPage n'est jamais vide.

Merci pour votre aide

Erreur:
    If Err.Number = 1004 Then
        MsgBox "L'automate n'est pas joignable" & vbLf & vbLf & "Vérifier les connexions,puis générer à nouveau le rapport."
    Else
        MsgBox "Une erreur est présente dans le code: " & Err.Number & vbCrLf & Err.Description, vbMsgBoxHelpButton, , Err.HelpFile, Err.HelpContext
    End If