Hyperlien - [PatCatNat's]

Hyperlien

Article mis en ligne le 8 janvier 2026

dernière modification le 12 janvier 2026

par Patrice MOREL

Sommaire

Récupérer l’URL d’un texte dans une cellule.
Voir aussi

Récupérer l’URL d’un texte dans une cellule.

LibreOffice_Calc

Si dans une cellule j’ai un texte qui possède un lien hypertexte et que je veuille récupérer l’URL dans une autre cellule, il n’existe pas de fonction native (pour l’instant !).
Une solution a été trouvée grâce au forum LibreOffice (merci à fpy). Il faut créer soit même la fonction en Visual Basic.

Outils/Macros/Gérer les macros/Basic...
Cliquer sur le bouton [Gérer...].
Dans l’onglet [Modules] développer "Mes macros" et cliquer sur "Standard".
Cliquer sur bouton [Nouveau...].
Donner un nom explicite comme "Recuplien" à la place de "Module1" proposé.
Cliquer sur le bouton [OK].

Remplacer
Sub Man End Sub
par
Function Recuplien(sheetNum as Integer, cellRef as String) sheet = ThisComponent.sheets.getByIndex(sheetNum-1) ' skip CurrentController.ActiveSheet cell = sheet.getCellRangeByName(cellRef) if cell.getTextfields.count > 0 then Recuplien = cell.getTextfields.getByIndex(0).URL else Recuplien = "" endif End Function
Enregistrer votre macro (Fichier/Enregistrer).

Votre fonction Recuplien est faite

Maintenant vous savez mettre en place une macro qui, en l’occurrence est une nouvelle fonction (Function) appelée "Recuplien" !
Note : la fonction a été placée dans le dossier "Standard" afin de pouvoir être utilisée dans tous les nouveaux fichiers aussi, sur votre ordinateur.

Cette fonction ne fonctionne pas complètement (sauf si le module est placé dans ceux des Macros de l’Application et de la Feuille elle-même) : à la réouverture du fichier, les cellules seront vide (mais la fonction sera présente). Il faut alors la réinitialiser en l’incrémentant une nouvelle fois. Conseil : une fois utilisée, faites un copier/collage spéciale : Nombre et Texte pour remplacer alors le travail obtenu avec la fonction par le lien ainsi trouvé en format texte. Explication obtenue avec l’intelligence artificielle (Chat GPT) : il n’est pas possible de faire une fonction sur Calc pour extraire l’URL créée à partir de Ctrl+k. Ce n’est pas possible de l’extraire à partir sur une cellule créée avec la fonction =LIEN.HYPERTEXTE(“URL” ;“texte”). Je ne vois pas trop l’intérêt car dans ce dernier cas, j’ai donc l’URL directement… Il convient alors d’utiliser un module BASIC (voir le lien de la construction de Miguel Pineau ci-dessous). (Création avec LibreOffice en version 25.2.7.2 (X86_64) mise à jour le 10/01/2026)

La fonction simple est =RECUPLIEN("D3")si votre texte cliquable est en cellule D3.
Pour que cela puisse s’incrémenter de ligne en ligne écrire =RECUPLIEN(FEUILLE();"D"&LIGNE())