Lien hypertexte

[julian08]

Bonjour à tout le forum,

Voila j'au un classeur excel avec des liens hypertexte qui pointent sur des fichiers se trouvant dans un dossier bien definit.
alors voila ma structure :
1 classeur excel
1 dossier comprenant 5 fichiers ( word, tif, jpeg. etc..)
dans mon classeur excel j'ai crée des liens qui ouvre ses fichiers avec le programme aproprié.

Mon probleme est le suivant.
Tout marche bien jusquau moment ou je decide de changer de place mon dossier.
ex: il se trouve sur c:\\documents et je le met dans c:

Quand je rouvre mon classeur excel et que je clic sur mon lien,patatra il a perdu le chemin, normal me direz vous.

Ya t'il un moyen pour que quand je change mon dossier de place, les liens hypertexte suivent le changement du dossier.
Ou ya t'il un autre moyen que les liens hypertexte.

j'ai essayé en inserant mes fichiers comme des objets.
Ca marche impecable mais mon fichier excel passe de 148Ko à 50Mo.

Merci de votre aide.

 

[Zon]

Salut,

Vite fait, j'ai bricolé ceci tirée d'une vielle appli que je ne peux mettre en ligne ...
à coller dans un module standard

'C:\\test ets le chemin qu'on veut modifier par D:\\Zon

Sub Princ()
Hyperf [A1:C15], 'C:\\Test\\', 'D:\\Zon\\'
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

si soucis n'hésites à demander...

A+++