Bonjour a tous,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 !