Modification en masse de lien hypertexte sur excel
cousinhub29 Messages postés 1112 Date d'inscription Statut Membre Dernière intervention -
Bonjour, suite à une modification (ajout d'un répertoire dans une arborescence) , mes liens hypertexte de mon tableur Excell ne suivent plus, car ils vont ouvrir un fichier qui a changé de répertoire.
Je suis trés novice en macro, j'ai essayé plein de chose et je dois avouer que je bloque un peu (beaucoup même)!!
Voilà mon lien hypertexte d'avant où étaient stockés mes fichiers:
C :\Users\XXXX\SynologyDrive\ZZ-AAAA\Chrono admin et tech\Chrono admin\" . D
Voilà mon lien hyper texte nouveau où étaient stockés maintenant mes fichiers:
C :\Users\XXXX\SynologyDrive\ZZ-AAAA\Chrono admin et tech\Chrono admin\2022". Mes fichiers sont maintenant tous dans ce nouveau répertoire "2022", en fait j'ai trié mes fichiers par année pour distinguer 2021 et 2022
J'ai environ 5000 liens hypertexte à modifier, pourriez vous svp m'orienter sur un moyen pour modifier chaque lien afin que quand je clique dessus, le lien s'ouvre bien, sans être obligé des les modifier un à un.
Je vous remercie infiniment pour votre aide.
Bien respectueusement
Stéphane
Windows / Chrome 103.0.0.0
5 réponses
-
-
Bonsoir, merci pour ce lien. Cela fonctionne, cependant en modifiant il modifie l'ensemble des lienqui sont dans les autres feuilles du classeur.
J'avais déjà essayé en vain.
J'étais parti plutot sur une macro , cependant j'avoue ne pas du tout maitriser les macros
-
Bonjour
essayer en faisant Rechercher /Remplacer
chercher
Chrono admin\
remplacer par
Chrono admin\2022
-
bonjour, merci pour cette info, je l'ai essayé mais la fonction rechercher remplacer ne va pas lire dans le lien hypertexte et donc ne trouve pas le terme à changer
.
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour,
Essaie en :
- Ouvrant l'éditeur VBA (Alt + touche F11)
- Insertion/Module
- Collant ce code dans le nouveau module :
Sub modif_liens() Dim Hpl As Hyperlink Dim Old_Chm As String, New_Chm As String 'Ancien chemin et Nouveau chemin Old_Chm = "Chrono admin\": New_Chm = "Chrono admin\2022\" For Each Hpl In Sheets("Feuil1").Cells.Hyperlinks 'Attention au nom de l'onglet Hpl.Address = Replace(Hpl.Address, Old_Chm, New_Chm) Next Hpl End SubPuis, après avoir cliqué au milieu du code, appuyer sur la touche F8 (mode pas à pas) et F5 (dérouler tout le code)
Fais un essai sur une copie, bien sûr
Bon courage
