Lien html sur UF

[paul87]

Bonjour à tous, bonjour le forum
Comment faire pour inserer un lien html dans un uf..?
afin d'ouvrir par exemple un fichier.doc...
est-ce possible...?
merci par avance

 

[MichelXld]

Re : Lien html sur UF

bonsoir

Tu peux utiliser

Private Sub CommandButton1_Click()
ThisWorkbook.FollowHyperlink "C:\dossier\nom document.doc", , True
End Sub

Bonne soirée
MichelXld

 

[BOISGONTIER]

Re : Lien html sur UF

Bonsoir,

Les formulaires

Private Sub MonLien_Click()
On Error Resume Next
ActiveWorkbook.FollowHyperlink Address:=Me.MonLien.Caption, NewWindow:=True
If Err <> 0 Then MsgBox "Erreur"
End Sub

Changement de la couleur au survol:

Private Sub Monlien_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < 2 Or X > Monlien.Width - 2 Or Y < 5 Or Y > Monlien.Height - 5 Then
Me.Monlien.ForeColor = RGB(0, 0, 0)
Else
Me.Monlien.ForeColor = RGB(255, 0, 0)
End If
End Sub

JB

 

[MichelXld]

Re : Lien html sur UF

Bonsoir Jacques

Bonsoir,
Les formulaires
Private Sub MonLien_Click()
On Error Resume Next
ActiveWorkbook.FollowHyperlink Address:=Me.MonLien.Caption, NewWindow:=True
If Err <> 0 Then MsgBox "Erreur"
End Sub
Changement de la couleur au survol:
Private Sub Monlien_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < 2 Or X > Monlien.Width - 2 Or Y < 5 Or Y > Monlien.Height - 5 Then
Me.Monlien.ForeColor = RGB(0, 0, 0)
Else
Me.Monlien.ForeColor = RGB(255, 0, 0)
End If
End Sub

Je ne vois pas l'interet de ton message si c'est pour proposer la meme solution, à moins que ce soit uniquement pour faire de la pub pour ta page perso ...



Bonne soirée
MichelXld

 

[paul87]

Re : Lien html sur UF

Bonsoir et merci à tous...
grace à vous, j'ai pile ce qu'il me faut...
encore merci...
Paul