mise à jour lien hypertexte

[thib]

Bonjour

j'ai un fichier quelconque où j'indique le lieu de stockage de ce fichier dans l'ordinateur (C:\\.....)
Comment faire pour que ce lien se mette à jour tout seul si je déplace le fichier?

De plus, avec un lien hypertexte comment faire pour qu'il se mette à jour automatiquement si le fichier est déplacé?

Merci

 

[Zon]

Salut,

à ma connaissance il n'est pas possible de le faire automatiquement.

Par contre, voici une piste avec le code ci-dessous qui mettra tes lien à jours:ici dans la feuille active la plage A1:C15

Sub Princ()
Hyperf [A1:C15], 'C:\\Test\\', 'D:\\Forum\\'
End Sub


Sub Hyperf(Plage As Range, ByVal Dossier$, ByVal Nouveau$)
Dim H As Hyperlink
For Each H In Plage.Hyperlinks
With H
.Address = Application.Substitute(.Address, Dossier, Nouveau)
.TextToDisplay = Application.Substitute(.TextToDisplay, Dossier, Nouveau)
End With
Next H
End Sub


A+++