Function Lien(c As Range) As String
Lien = c.Hyperlinks.Item(1).Address
End Function
=Lien(A1)
Right(Left(c.Hyperlinks.Item(1).Address,50),10)
Sub test()
Dim tt
tt = c.Hyperlinks.Item(1).Address
Lien = Mid(tt, 50, WorksheetFunction.Find("%", tt, 1) - 50)
End Sub
Function lien(c As Range) As String
Dim tt
tt = c.Hyperlinks.Item(1).Address
lien = Mid(tt, 50, WorksheetFunction.Find("%", tt, 1) - 50)
End Function
Function lien(c As Range) As String
Dim tt
tt = c.Hyperlinks.Item(1).Address
tt = WorksheetFunction.Substitute(tt, "%3D", "&")
lien = Mid(tt, 74, WorksheetFunction.Find("&", tt, 74) - 74)
End Function