Forum Discussion
Liens hypertextes
Bonjour, J'ai un fichier Excel avec une colonne qui contient un lien hypertexte différent par cellule. Mais le lien est remplacé par un numéro d'id unique: F1270-001, 002... Je souhaiterai remplac...
Hi,
Sub ChangeHyperlinks()
Dim MyRange As Range
Dim h As Hyperlink
Set MyRange = Worksheets("Sheet1").Range("A1:A100")
For Each h In MyRange.Hyperlinks
h.TextToDisplay = h.Address
Next h
End Sub
Change sheet name and range as required.
Regards
Jos_Woolley, thank you so much,
Have a good day
