Lien hypertexte actif dans UF ?

Bonjour,

Ci-dessous un exemple de code pour créer un lien hypertexte dans un UserForm

Il faut au préalable:
1 UserForm dont la propriété (Name) = "UserForm1"
1 Label dont la propriété (Name) = "Label1"

Voici le code à copier dans le code du UserForm
******************************
Option Explicit
'_____________________________
Private Sub Label1_Click()
Dim lien$
On Error GoTo Erreur_connexion
Me.Hide
lien$ = "http://www.interstat.fr"
ActiveWorkbook.FollowHyperlink Address:=lien$, NewWindow:=True
Exit Sub
Erreur_connexion:
MsgBox prompt:="Echec du lien " & lien$, Buttons:=vbOKOnly + vbExclamation
Me.Hide
End Sub
'_____________________________
Private Sub UserForm_Activate()
With Label1
.Caption = "Consulter notre site"
.Font.Underline = True
.ForeColor = &HFF0000
End With
End Sub
******************************

Il faudra adapter le code à votre usage et en particulier l'URL

Cordialement.

PMO
Patrick Morange

Bonjour
Pour faire toujours plus compliqué !
Est il possible d'avoir dans un UserForm un lien hypertexte actif ?
Merci d'avance
Cordialement