Récupérer lien hypertexte

[Patousky44]

Bonjour,
Je souhaiterais extraire le lien hypertexte contenu dans un texte d’une cellule.
J’ai bien vu une fonction dans Excel, mais elle me renvoie une erreur dans Calc

ERREUR DE LIBRE OFFICE
Une erreur de structure de script s’est produite lors de l’exécution du script Standard.Recuplien.Recuplien en Basic.
Message : wrong number of parameters!

Ma macro ::
Function Recuplien(rng As Range)
'Extraire l’URL d’un hyperlien
On Error Resume Next
Recuplien = rng.Hyperlinks(1).Address
If Recuplien = 0 Then Recuplien = “”
End Function

L’appel de la fonction dans ma cellule
=recuplien(D31)

Merci pour l’aide (ou une autre idée !)
Patrice

[valioud]

Je ne vois pas comment cela pourrait marcher :

@Patousky44

Function Recuplien(rng As Range)

Range n’est pas un type de donnée en Basic. Où avez-vous été chercher ce code ?

En cherchant “récup* hyperlien cellule calc”, je trouve :
https://forum.openoffice.org/fr/forum/viewtopic.php?t=59565&hilit=calc+hyperlien+cellule+récup*

[Patousky44]

- YouTube

[fpy]

@valioud

trouve

pas très digeste; mais c’est un début.

encore une fois, l’IA est plutot pertinente :

@Patousky44

autre

→ Convert clickable hyperlink to viewable URL - #3 by PYS

sinon par UDF :

Function Recuplien(cellRef as String)
  cell = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName(cellRef)
  if cell.getTextfields.count > 0  then
    Recuplien = cell.getTextfields.getByIndex(0).URL
  else
    Recuplien = ""
  endif
End Function

[Patousky44]

@fpy

Function Recuplien(cellRef as String)
  cell = ThisComponent.CurrentController.ActiveSheet.getCellRangeByName(cellRef)
  if cell.getTextfields.count > 0  then
    Recuplien = cell.getTextfields.getByIndex(0).URL
  else
    Recuplien = ""
  endif
End Function

Cela récupère le lien, mais quand “je fais glisser” ma cellule pour passer à la cellule du dessous cela reste en A1 et ne passe pas en en A2, etc.
Sinon c’est exactement çà !
Merci

[fpy]

@Patousky44

reste

y aurait bcp de façon de ruser;
la plus simple à glisser → =RECUPLIEN( "A" & ROW() )

[Patousky44]

Trop bien !
Je tournais autour d’une ruse mais je ne l’avais pas !
=RECUPLIEN(“D”&LIGNE())
Merci beaucoup.
Patrice
(PS : je ne sais pas comment clôturer la discussion sur ce forum)

[fpy]

@Patousky44

clôturer

Guide - Comment utiliser le site Ask - The Document Foundation Wiki #Mark_an_answer_as_Solution

[Patousky44]

Merci encore : Hyperlien - [PatCatNat's]