Bonjour à tous,
J'utilise un fichier excel comme base de données documentaire afin de faciliter l'ouverture de spécifications techniques. Ce fichier contient des 100ène de liens vers des pdf et chaque ligne du tableau renvoie vers le document en question via un lien hypertexte. Ces documents sont stockés sur un serveur dans un dossier spécifique. Ce dossier spécifique contenant le fichier excel et tous les dossiers présents dans ce dossier ont été déplacés et donc les liens hypertextes ne sont plus bons.
Je souhaiterai développer une macro pour modifier tous mes liens afin de ne pas les modifier un par un avec clic droit, modifier le lien hypertexte, etc...
Seule une partie des liens n'est plus correct du fait du déplacement du dossier spécifique. Le reste du chemin pointant vers les fichiers reste identique.
J'ai recherché sur le forum avant de réaliser ce post et différents utilisateurs ont des problèmes similaires au miens.
J'ai essayé les solutions proposées en réponse en l'adaptant à mon cas mais sans succès.
https://www.excel-downloads.com/thr...te-automatiquement-nom-serveur-change.206916/
Je suis tombé sur le site de jacques boisgontier et une macro est proposée.
Les liens hyper-textes
Sub ModifieAddresse()
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
Cette macro remplace tout le chemin des liens. Je souhaiterai remplacer uniquement une partie du lien. Est-il possible de rajouter une condition a cette macro ?
En vous remerciant par avance de vos réponse.
J'utilise un fichier excel comme base de données documentaire afin de faciliter l'ouverture de spécifications techniques. Ce fichier contient des 100ène de liens vers des pdf et chaque ligne du tableau renvoie vers le document en question via un lien hypertexte. Ces documents sont stockés sur un serveur dans un dossier spécifique. Ce dossier spécifique contenant le fichier excel et tous les dossiers présents dans ce dossier ont été déplacés et donc les liens hypertextes ne sont plus bons.
Je souhaiterai développer une macro pour modifier tous mes liens afin de ne pas les modifier un par un avec clic droit, modifier le lien hypertexte, etc...
Seule une partie des liens n'est plus correct du fait du déplacement du dossier spécifique. Le reste du chemin pointant vers les fichiers reste identique.
J'ai recherché sur le forum avant de réaliser ce post et différents utilisateurs ont des problèmes similaires au miens.
J'ai essayé les solutions proposées en réponse en l'adaptant à mon cas mais sans succès.
https://www.excel-downloads.com/thr...te-automatiquement-nom-serveur-change.206916/
Je suis tombé sur le site de jacques boisgontier et une macro est proposée.
Les liens hyper-textes
Sub ModifieAddresse()
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
Cette macro remplace tout le chemin des liens. Je souhaiterai remplacer uniquement une partie du lien. Est-il possible de rajouter une condition a cette macro ?
En vous remerciant par avance de vos réponse.