Rechercher/remplacer liens hypertexte dans doc excel. Résolu/Fermé

Question

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

brucine · Answer

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/

Ricco911 · Answer

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.

cousinhub29 · Answer

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 Sub

Bonne journée

Ricco911 · Answer

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.