Sub ModifierLiens()
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
h.Address = Replace(h.Address, "D:\Profils\lakota\APPDATA\LOCAL\TEMP\wz0f9a\", "\\FR00001\Bureau\Projet\")
Next
End Sub
Sub ModifierLiens()
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
h.Address = Replace(h.Address, "\2017\", "\2018\")
Next
End Sub
Bonjour à tous !Re : Modification chemin sur plusieurs liens Hypertexte
bonjour à tous,
avec une macro du style:
1 - je parcours toutes les cellules avec les liens
2 - dans chaque cellule, je récupère toutes les infos du lien (ou pas c'est selon le besoin)
3 - je modifie hyperlink.address avec "\\FR00001\Bureau\Projet\" ...
4 - je réécris le nouveau lien dans la cellule
5 - je passe à la suivante
dans l'aide VBA, en tapant "hyperlink", il y a pas mal d'info sur les membre de l'objet
voilà, à +
Sub ModifierLiens()
Dim w As Worksheet, h As Hyperlink
For Each w In Worksheets
For Each h In w.Hyperlinks
h.Address = Replace(h.Address, "\2017\", "\2018\")
Next h, w
End Sub