Problème lien hypertext

Lone-wolf · 14 Avril 2010

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 · 14 Avril 2010

Re : Problème lien hypertext

Bonjour Lone-wolf,

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

Code:

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 · 14 Avril 2010

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 · 14 Avril 2010

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.

Problème lien hypertext

Lone-wolf

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Problème lien hypertext

Lone-wolf

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency