Récupérer la cible du lien hypertexte

Bonjour les excellents

je cherche une méthode permettant de récupérer la cible du lien hypertexte du cellule donnée,

quelque chose qui serait la version fonctionnelle de ça:

Range("B1")=Range("A1").Hyperlinks.adresse

pour donner du contexte mon projet est le suivant:

1-dans une plage donnée (dans plusieurs worksheets) regarder quelle cellules ont un lien hypertexte

2-verifier si dans ce lien je trouve la suite de caractère \2022\ et remplacer par \2023\

3-réintergrer l'adresse modifiée

Bonsoir,

A faire sur une copie, ou ne pas enregistrer dans le doute..

Essaie ainsi :

Sub change_an_hpl()
Dim Sh As Worksheet
Dim Hpl As Hyperlink
Dim Old_Str As String, New_Str As String
Old_Str = "2022"
New_Str = "2023"
For Each Sh In Sheets
    For Each Hpl In Sh.Hyperlinks
        Hpl.Address = Replace(Hpl.Address, Old_Str, New_Str)
    Next Hpl
Next Sh
End Sub

Bonne soirée

Je vais tester,

je ne risque pas une erreur si le code ne trouve pas Old str?

Bonjour,

Non, si 2022 n'est pas trouvé, il ne se passe rien