Déplacer base de données sans rompre line hypertextes

[stagiaire222]

Bonjour,

je me tourne vers vous car je viens de mettre en place une base de données dans laquelle j'ai intégré des liens hypertextes vers des dossiers. Le problème est que si je souhaite changer l'emplacement de la base de données, il faudra que je refasse tous les liens car ceux-ci ne fonctionneront plus.
Il y a-t-il un moyen de déplacer la dossier excel sans que cela ne rompe les liens hypertextes qu'il contient?

En vous remerciant par avance.

Bonne journée.

 

[MJ13]

Re : Déplacer base de données sans rompre line hypertextes

Bonjour

Cela me paraît difficile à moins de gérer le chemin.

Le mieux seraît de le prévoir une macro dans le Workbook_open et de refaire les liens avec le nouveau chemin.

 

[BOISGONTIER]

Re : Déplacer base de données sans rompre line hypertextes

Bonjour,

Sub ModifieAdresse()
  NvRepertoire = "c:\Mesdoc\ExcelMacroNouveau\1001exemples\"
  For Each h In ActiveSheet.Hyperlinks
    a = Split(Replace(h.Address, "\", "/"), "/")
    nf = a(UBound(a))
    h.Address = NvRepertoire & nf
  Next h
End Sub

JB
http://boisgontierjacques.free.fr/

 

[MJ13]

Re : Déplacer base de données sans rompre line hypertextes

Bonjour Jacques


Eh bien voilà, sitôt dit, sitôt fait.

Merci, il faut que je le garde celui la de code. Et Hop, dans mon planning.