Renommé un lien hypertexte en VBA

Bonjour à tous,

je souhaiterais modifier le nom d'un lien hypertexte par "Read" d'une cellule en VBA

comment faire ? (impossible pour ma part de modifier les noms manuellement, cela deviendrais trop compliquer)

Cordialement

Bonsoir,

Le nom ou plutôt le texte affiché ?

Sub test()
    Dim hpl As Hyperlink
    For Each hpl In ActiveSheet.Hyperlinks
        hpl.TextToDisplay = "Read"
    Next hpl
End Sub

Merci pour ce code qui m'aidera beaucoup et qui est fonctionnel, cependant j'ai encore un petit problème,

lorsque j'importe une adresse internet dans une cellule, celle ci ne se met pas directement sous forme de lien,

je suis obligé de double cliqué dessus pour que le lien s'active.

auriez vous un solution ce problème ?

car au final votre code ne fonctionne pas tant que le lien n'est pas activé.

cordialement

Bonjour,

Créer le lien lors de l'import !