XL 2016 Liens hypertextes qui se modifient tous seuls

[Bandoulier]

Bonjour à tous,

Dans un fichier Excel, j'ai plusieurs liens hypertextes qui lancent d'autres fichiers Excel. Tout ça marche très bien. Mais après enregistrement et fermeture du fichier, quand j'ouvre à nouveau, mes liens se sont transformés.
En effet, mes liens sont tous du type "File:///C:\Users\Patrick\Desktop\Fiches\nomdefichier.xlsx" mais après réouverture du fichier, ils deviennent "File:///C:\Users\Patrick\AppData\Roaming\Microsoft\Excel\Fiches\nomdefichier.xlsx" et bien entendu, les liens ne fonctionnent plus !
1) Comment éviter cela ?
2) Auriez-vous une combine pour modifier d'un coup tous les liens hypertextes ? (j'en ai 300 qui pointent dans le même dossier (Fiches)
Merci d'avance pour ce que vous pourrez faire
Cordialement
Patrick

 

[job75]

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 :

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+

 

[Bandoulier]

Merci Job75 ! J'essaie dès demain.
Cordialement

 

[Bandoulier]

Désolé Job75, mais ça ne fonctionne pas. Au lancement de la macro ... rien ne se passe (du moins visuellement) mais quand je vais consulter mes liens, ils n'ont pas changé.
Pas grave, je les changerais manuellement à temps perdu.
Merci tout de même pour le temps que vous avez passé à mon problème
Cordialement

 

[job75]

Bonjour Bandoulier,

Si les liens erronés commencent bien par chemin1, donc par "C:\Users\Patrick\AppData\Roaming\Microsoft\Excel\Fiches\" je ne vois pas pourquoi ils ne se modifieraient pas.

A+

 

[Boop1977]

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 :

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+

Merciiiiiii Tu viens de me sauver avec cette macro

 

[job75]

Merci Boop1977 d'avoir complété ce fil.