Modification en masse de lien hypertexte sur excel

thijama67 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -  
cousinhub29 Messages postés 1074 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

The_boss_68 Messages postés 952 Date d'inscription   Statut Membre Dernière intervention   182
 

Bonsoir,

Voir peut-être ce lien ICI

Slts

0
thijama67 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 

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

0
yclik Messages postés 3872 Date d'inscription   Statut Membre Dernière intervention   1 561
 

Bonjour

essayer en faisant Rechercher /Remplacer

chercher

Chrono admin\

remplacer par

Chrono admin\2022

0
thijama67 Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 

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

.

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cousinhub29 Messages postés 1074 Date d'inscription   Statut Membre Dernière intervention   361
 

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

0