Discussion :

[Almenor]

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 !

[Almenor]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?