Remplacer une partie de lien hypertexte par une autre...

Fermé
hcasok Messages postés 109 Date d'inscription mardi 23 octobre 2007 Statut Membre Dernière intervention 15 novembre 2019 - 13 août 2013 à 12:06
Bonjour,

J'ai un fichier excel qui contient une quinzaine d'onglets, contenant au total un millier de liens hypertextes. Or le chemin de ces liens a changé.

Pour éviter de tout modifier un par un, j'ai vu qu'il existait la possibilité de faire une macro pour tout changer d'un coup.

Voici ma macro (largement inspirée de ce que j'ai pu trouver sur le web)

Sub ht()
txt1 = "file:///C:\Users\8707068e\AppData\Roaming\Microsoft\Excel"
txt2 = "file:///\\xdkamnct141\users\geg\bte"
For Each ws In Sheets
For Each lnk In ws.Hyperlinks
If lnk.Address Like "*" & txt1 & "*" Then lnk.Address = Replace(lnk.Address, txt1, txt2)
Next
Next
End Sub

Est-ce correct ? Comment l'implanter dans mon fichier excel ? comment la lancer ensuite ?

Merci mille fois d'avance...