XL 2016 Liens hypertextes qui se modifient tous seuls

job75 à dit:

Bonjour Bandoulier,

Pour éviter ce genre de problème il suffit normalement de ne pas modifier l'emplacement des fichiers.

Pour modifier les liens hypertextes exécutez cette macro :

Code:

Sub ModificationLiens()
Dim chemin1$, chemin2$, w As Worksheet, h As Hyperlink, x$
chemin1 = "C:\Users\Patrick\AppData\Roaming\Microsoft\Excel\Fiches\"
chemin2 = "C:\Users\Patrick\Desktop\Fiches\"
For Each w In ActiveWorkbook.Worksheets
    For Each h In w.Hyperlinks
        x = IIf(h.Address Like "?:\*", "", ThisWorkbook.Path & "\") & h.Address
        If x Like chemin1 & "*" Then h.Address = Replace(x, chemin1, chemin2)
Next h, w
End Sub

A+

Cliquez pour agrandir...