remplacer un texte qui a un lien par son lien

Bonjour

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

désolé pour la duplication de mon message, c'est un bug provoqué par le bouton 'reculer d'une page' présent sur ma souris après le postage ....

:woohoo: si ce que je demande n'est pas réalisable avec Excel, dites moi le et dans ce cas là j'écrirai un parseur...... merci

[MichelXld]

bonjour

j'espere que ce lien pourra t'aider

http://www.excel-downloads.com/html/...7274_87274.htm


bon apres midi
MichelXld

Merci !!!!!!!!!!!!!!!!!!
Elle est vraiment bien cette macro !!!!!!!!

encore merci

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