W
Willmaz
Guest
Bonjour,
J'ai ce petit bout de code qui me permet de modifier des liens hypertextes dans une feuille de calcul, mais ce code s'applique à toute la feuille à chaque fois qu'il se lance. je souhaiterai qu'il s'applique uniquement à la dernière cellule de la colonne A (qui comporte évidement un lien cliquable) . N'étant pas très doué, je n'y arrive pas...
Sub modif_liens()
Dim Hpk As Hyperlink
Dim strLien As String
For Each Hpk In Worksheets("Feuil1").Hyperlinks
strLien = Hpk.Address
Debug.Print strLien
Hpk.Address = Replace(strLien, "\", "/")
Next Hpk
MsgBox ("terminé")
End Sub
Cordialement,
J'ai ce petit bout de code qui me permet de modifier des liens hypertextes dans une feuille de calcul, mais ce code s'applique à toute la feuille à chaque fois qu'il se lance. je souhaiterai qu'il s'applique uniquement à la dernière cellule de la colonne A (qui comporte évidement un lien cliquable) . N'étant pas très doué, je n'y arrive pas...
Sub modif_liens()
Dim Hpk As Hyperlink
Dim strLien As String
For Each Hpk In Worksheets("Feuil1").Hyperlinks
strLien = Hpk.Address
Debug.Print strLien
Hpk.Address = Replace(strLien, "\", "/")
Next Hpk
MsgBox ("terminé")
End Sub
Cordialement,