Lien hypertexte dans un userform

[Nanir]

Bonjour le forum,

J'aimerai sur un userform pourvoir insérer un lien hypertexte mais je ne sais pas comment faire (en tout cas c'est plus compliqué qu'un lien hypertexte sur une feuille)...
Quelqu'un aurait la gentillesse de m'expliquer?
Merci.

 

[Shock]

Re : Lien hypertexte dans un userform

Bonjour Nanir,
j'ai peut-etre une solution :
mettre un "Label" dans ton userform, et via une macro tu ouvres IE à la bonne adresse?
Tu mets un code du genre :

Private Sub Label1_Click()
ThisWorkbook.FollowHyperlink = adresse
End Sub
et tu adaptes l'adresse que tu veux.

 

[Nanir]

Re : Lien hypertexte dans un userform

Ok Shock,

C'est exactement ce que je voulai. Grâce à ton début de réponse et l'aide j'ai réussi.
En cadeau voici ce que j'ai fais.
Merci.

 

[Shock]

Re : Lien hypertexte dans un userform

salut,
content de t'avoir aidé, mais un petit truc quand même... (faut bien qd même) :
moi je l'aurai mis en bleu souligné le lien (ça fait plus lien quoi... 😉 )

bye

 

[_Thierry]

Re : Lien hypertexte dans un userform

Bonjour Shock, Nanir, le Forum

Just for the fun 😉 ...

Private Sub CommandButton1_Click()
    Unload UserForm1
End Sub
 
Private Sub Label1_Click()
    ThisWorkbook.FollowHyperlink Address:="[URL]https://www.excel-downloads.com/[/URL]", NewWindow:=True
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With Label1
        .ForeColor = &HFF0000
        .Font.Underline = True
        .MousePointer = fmMousePointerCustom
        .MouseIcon = LoadPicture("C:\WINDOWS\Cursors\harrow.cur") [COLOR=green]'A vérifier si le fichier "Cursor" est dispo
[/COLOR]    End With
End Sub
 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With Label1
        .ForeColor = &H80000012
        .Font.Underline = False
    End With
End Sub

Bon Aprèm

@+Thierry
​

 

[Shock]

Re : Lien hypertexte dans un userform

salut Thierry,
Cool!
😀
On va réinventer un navigateur avec ça!! 😉

🙄

 

[Nanir]

Re : Lien hypertexte dans un userform

Bonjour Shock, Thierry,

Génial ce code Thierry! Ca complète vraiment ce que je cherche à faire dans mon application.
Rien à dire, c'est parfait...