Macro changer chemin lien hypertexte

[Elodie195]

Bonjour,

j'ai un problème avec mon fichier excel.

Il est composé de plusieurs lien hypertexte qui pointe sur un serveur.

Parfois, sans aucune raison, le chemin des liens pointent sur mon dossier Excel et non plus sur mon serveur.

Peut-on faire une macro qui corrige ce problème ?

c'est à dire que :

quand le chemin est C:\Users\Moi\AppData\Roaming\Microsoft\Excel\

cela se transforme par \\serveur1\dossier1\ ?

Merci d'avance de votre aide.

Elo

 

[_Thierry]

Re : Macro changer chemin lien hypertexte

Bonsoir Elodie195, le Forum

Ton problème d'hyperlink qui se font la malle, me rappelle un truc que j'ai eu il y a longtemps, sous Office XP, et j'étais allé dans les Propriété du Fichier pour définir le Hyperlink Base, sous office 2007 il faut voir par Bouton Office (ou File sur 2010) / Préparer / Propriété et ensuite aller dans dans la petite flèche (à droite de Propriétés du Document) pour accèder aux Propriétés Avancées pour atteindre cette fenêtre (qui date des vieux Excel):




Sinon par VBA pour réparer l'existant tu peux faire un truc de la sorte :


Option Explicit

Sub HyperlinkUpdate()
Dim h As Hyperlink
Dim BadAddr As String, GoodAddr As String
BadAddr = "../../Moi/AppData/Roaming/Microsoft/Excel/"
GoodAddr = \\serveur1\dossier1\

For Each h In Worksheets("Feuil1").Hyperlinks
Debug.Print h.Address
h.Address = Replace(h.Address, BadAddr, GoodAddr)
Debug.Print h.Address

Next

End Sub




Si tu ouvres la fenêtre d'exécution tu verras les adresses défiler, avant après...

Bonne soirée et bonjour à Niko 🙂
@+Thierry

 

[Elodie195]

Re : Macro changer chemin lien hypertexte

Merci beaucoup de votre réponse.

Ca marche parfaitement.

Mon mari vous salue également 🙂