lien hypertexte

Ceci devrait t'aider je pense

Private Sub cmdFollowLink_Click()
dim strbase as string
dim shyp as string
strbase='\\Documents and Settings\\Mes documents\\IMAGES\\'
shyp= strbase & activecell.value & '.jpg'
CreateHyperlink Me!cmdFollowLink, shyp

End Sub

Sub CreateHyperlink(ctlSelected As Control, _
strSubAddress As String, Optional strAddress As String)
Dim hlk As Hyperlink
Select Case ctlSelected.ControlType
Case acLabel, acImage, acCommandButton
Set hlk = ctlSelected.Hyperlink
With hlk
If Not IsMissing(strAddress) Then
.Address = strAddress
Else
.Address = ''
End If
.SubAddress = strSubAddress
.Follow
.Address = ''
.SubAddress = ''
End With
Case Else
MsgBox 'The control '' & ctlSelected.Name _
& '' does not support hyperlinks.'
End Select
End Sub

Message édité par: maxoverfred, à: 03/09/2005 11:38

Bonsoir damien, Maxoverfred, le Forum.

Heu... je n'ai peut-être pas tout compris mais pour ma part, je ferais tout simplement :

Private Sub CommandButton1_Click()
      ThisWorkbook.FollowHyperlink 'C😀ocuments and Settings\ADJ OPS\Mes documents\IMAGES\' & _
                                                ActiveCell.Value & '.jpg'
End Sub

Cliquez pour agrandir...

Cordialement,