Publié le: 3 septembre 2013 Publié par: Alain Commentaires: 0
VBA Excel

Besoin assez rare jusqu’à ce qu’il se présente, l’extraction de liens hypertexte d’une cellule sous Excel est simple en principe, mais non prévue par le logiciel.

Pour lister l’adresse vers lesquels pointent vos liens, un moyen est de créer une fonction VBA

Alt+F11 > Insertion > Module > Coller la fonction > Alt+Q

La fonction VBA à copier :

Function AdrHyperlien(cell As Range)
AdrHyperlien = cell.Hyperlinks(1).Address
End Function

Ce qui vous crée la formule

=AdrHyperlien( )

Que vous copiez et incrémentez dans une colonne pour un résultat comme ça :

Extraction d'URL par Excel
Source : excelabo.net