remplacer un texte qui a un lien par son lien

[Ickou]

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

 

[Ickou]

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

Lien supprimé


bon apres midi
MichelXld

 

[Ickou]

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