XL 2016 LIEN_HYPERTEXTE; VBA & URL

[D.D.]

Bonjour

J'ai une cellule avec un lien hypertexte fait via la formule LIEN_HYPERTEXTE.
Je souhaite récupérer l'URL en VBA.

Avez-vous une idée ?
Merci.

 

[job75]

Bonjour D.D.,

Si l'url est entre guillemets dans la formule :

Sub Lien()
Dim c As Range, url
Set c = ActiveCell
If c.Formula Like "=HYPERLINK(*)" Then url = Split(c.Formula, """")(1)
MsgBox url 'pour tester
End Sub

A+

 

[job75]

Re,

Ceci fonctionnera que l'url soit entre guillemets ou dans une cellule en référence :

Sub Lien()
Dim c As Range, f$, p%
Set c = ActiveCell
f = c.Formula
If f Like "=HYPERLINK(*)" Then
    p = InStr(f, ",")
    If p = 0 Then p = InStr(f, ")")
    url = Evaluate(Mid(f, 12, p - 12))
    MsgBox url 'pour tester
End If
End Sub

A+

 

[D.D.]

Re,

Merci pour ta réponse. Je pensais à un moyen plus simple que d'aller décortiquer le texte dans la formula, mais visiblement il n'y en a pas.
Bah, ca marchera quand même.
Merci beaucoup.