J'utilse Excel 2003 SP2.
J'ai un tableau excel qui contient dans ma colonne 1 du hypertexte, je voudrais remplacer cet hypertexte par le lien lui même, c'est à dire par l'adresse http.
J'ai 800 lignes dans mon tableau donc je veux pas le faire ligne par ligne.
merci
Merci !!!!!!!!!!!!!!!!!!
Elle est vraiment bien cette macro !!!!!!!!
encore merci
Code:
Sub ExtractionLiensHypertextes()
Dim Cell As Range
On Error Resume Next
For Each Cell In Range('A1:A' & Range('A65536').End(xlUp).Row)
Cell.Offset(0, 1) = Cell.Hyperlinks(1).Address
Next Cell
End Sub