Aurélien Bardon

Macro Excel : extraire URL / Lien d’une cellule

Si dans la feuil1, colonne A, il y a 20 lignes contenant 1 texte qui est un lien (ex : Ceci est un lien)et qu’on souhaite extraire les URL dans la colonne B, alors voici la macro parfaite Sub URL() Dim c As Range For Each c In Sheets(« Feuil1 »).Range(« A1:A20 »).Cells c.Offset(0, 1).Value = c.Hyperlinks(1).Address Next End