ActiveWorkbook.FollowHyperlink et lien incorrect.

Bonjour a tous,

J'utilise dans un userForm un bouton qui ouvre un lien de cette façon :

Code:

---

1 2 3 4 5 6

Private Sub btnLien1_Click() If txtLien1.Value <> "" Then ActiveWorkbook.FollowHyperlink Address:=txtLien1.Value End If End Sub

---

Si le lien est bon, c'est nickel. Par contre si je test avec un lien incorrect, par exemple j'ai fait des tests avec "https://unfauxlien.be" et ou encore "un faux lien" et dans les deux cas j'ai droit au message d'erreur "Un problème de sécurité s'est produit".

Comment faire pour vérifier avant que le lien est ok et si pas ok ouvrir une box pour signaler à l'utilisateur que c'est un lien incorrect ?

D'avance merci pour l'aide apportée ! :)

En cherchant un peu sur le net j'ai trouvé ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public Function URLexiste(URLaVerifier As String) As Boolean 'par Excel-Malin.com ( https://excel-malin.com )   On Error GoTo Erreur   Dim oXHTTP As Object Set oXHTTP = CreateObject("MSXML2.XMLHTTP")   oXHTTP.Open "HEAD", URLaVerifier, False oXHTTP.Send   URLexiste = (oXHTTP.Status = 200) Exit Function   Erreur: 'URLexiste = CVErr(xlErrValue) MsgBox "Le Lien indiqué n'exite pas ou est incorrect" End Function

---

Code:

---

1 2 3 4 5 6 7 8

Private Sub btnLien1_Click() If txtLien1.Value <> "" Then If URLexiste(txtLien1.Value) = True Then ActiveWorkbook.FollowHyperlink Address:=txtLien1.Value End If End If End Sub

---

ça a l'air de fonctionner :)

ça vous parait ok comme méthode ?