Problème lien hypertext

[Lone-wolf]

Bonjour à tous,

j'ai un problème avec ce code:

Private Sub CommandButton4_Click()
If UserForm1.TextBox7 = "" Then
MsgBox ("Veuillez inserer le lien !")
Else
ActiveWorkbook.FollowHyperlink Address:=UserForm1.TextBox7.Value, NewWindow:=True
End If
End Sub

Il y a la flèche jaune sur la ligne du lien hypertexte.
J'ai regardé sur le site de boisgontier, la ligne à l'air d'être correcte.

 

[job75]

Re : Problème lien hypertext

Bonjour Lone-wolf,

Le code est correct mais il faut que le lien aboutisse sur quelque chose :

Private Sub CommandButton4_Click()
If UserForm1.TextBox7 = "" Then
MsgBox ("Veuillez inserer le lien !")
Else
[COLOR="Red"]On Error Resume Next[/COLOR]
ActiveWorkbook.FollowHyperlink Address:=UserForm1.TextBox7, NewWindow:=True
[COLOR="red"]If Err Then MsgBox "Le lien n'a pas abouti..."[/COLOR]
End If
End Sub

A+

 

[Lone-wolf]

Re : Problème lien hypertext

Bonsoir job75,

merci d'avoir répondu.

Si j'ai bien compris, il faut ajouter la ligne d'erreur?

PS: je viens de tester, ça roule cette fois-ci.

 

[Lone-wolf]

Re : Problème lien hypertext

J'ai encore un petit problème.

Quand je clique sur le bouton, la page web s'ouvre, c'est normal.
Mais elle s'affiche aussi dans Excel (ça fait une copie je pense).

Voici le fichier.