Rechercher/remplacer liens hypertexte dans doc excel.
Résolubrucine Messages postés 24862 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Dans un document excel dans lequel j'ai plusieurs onglets, j'ai fait plusieurs liens hypertexte vers l'onglet feuil1 puis je me suis rendu compte qu'il serait mieux de renommer Feuil1 en Série1. Je l'ai fait mais mes liens hypertexte n'ont pas suivi. J'ai donc sélectionné les cellules dans lesquels sont mais lien fait ctl+H rechercher/remplacer mais excel me dit qu'il ne trouve rien à remplacer. Mes liens apparaissent en infobulle mais pas dans la ligne de formule.
Auriez-vous une solution à me proposer?
Merci.
Windows / Firefox 110.0
4 réponses
-
Bonjour,
Essaie en utilisant ce code :
Sub Rempl_Liens() Dim Sh As Worksheet Dim Hpl As Hyperlink Dim Anc_Lien As String, Nouv_Lien As String Anc_Lien = "Feuil1" 'Nom de l'ancien onglet Nouv_Lien = "Serie1" 'Nom du nouvel onglet For Each Sh In Sheets For Each Hpl In Sh.Cells.Hyperlinks Hpl.SubAddress = Replace(Hpl.SubAddress, Anc_Lien, Nouv_Lien) Next Hpl Next Sh End SubBonne journée
-
Bonjour,
Une solution est proposée ici, enregistrer sous xml, faire son rechercher-remplacer, revenir à Excel:
https://transformationdigitale.coach/index.php/2020/06/23/modifier-des-liens-hypertextes-en-masse-dans-excel/ -
Merci, j'avais essayé cette solution mais ç'est incompatible avec certains formats et après essai les liens sont bien changés mes ne fonctionnent plus.
Merci quand même.
-
Merci à tous, et surtout à cousinhub29,
J'avais déjà essayé plusieurs macro et ça ne fonctionnait pas. Cela me répondait que mon lien n'était pas valide. Avec votre macro aussi d'ailleurs. Mais ça m'a poussé à me demander si ce n'était pas le nom de ma feuille qui posait un problème. J'ai donc changé "Série1 GB" par "S1_GB" et ça a fonctionné.
Moralité : il ne faut pas hésiter à remettre en cause ses pratiques avant de solliciter le forum.
Merci à tous.
