modification en masse de lien hypertexte sur excel Fermé

Question

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

The_boss_68 · Answer

Bonsoir,

Voir peut-être ce lien ICI

Slts

thijama67 · Answer

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

yclik · Answer

Bonjour

essayer en faisant Rechercher /Remplacer

chercher

Chrono admin\

remplacer par

Chrono admin\2022

thijama67 · Answer

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

.

cousinhub29 · Answer

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 Sub

Puis, 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

Modification en masse de lien hypertexte sur excel

5 réponses

Discussions similaires