Passer au contenu principal

Comment modifier plusieurs chemins d'hyperliens à la fois dans Excel?

Dans certains cas, vous pouvez créer plusieurs liens hypertexte pour vos données dans la feuille de calcul, et tous les liens hypertexte sont liés au même chemin de fichier ou adresse, mais maintenant, vous devez remplacer ce chemin de lien hypertexte par une autre adresse à la fois. Changer le chemin des hyperliens individuellement peut perdre beaucoup de temps, existe-t-il un moyen rapide de résoudre ce problème?

Modifier plusieurs chemins de lien hypertexte à la fois dans une feuille de calcul avec le code VBA

Changez plusieurs chemins de lien hypertexte à la fois dans une feuille de calcul / classeur / plusieurs feuilles / sélection avec une fonctionnalité étonnante


Modifier plusieurs chemins de lien hypertexte à la fois dans une feuille de calcul avec le code VBA

En supposant que vous ayez une liste de données avec les mêmes hyperliens que la capture d'écran suivante, et avec un code VBA, vous pouvez rapidement remplacer l'ancien chemin d'accès ou l'adresse de fichier dans une feuille de calcul par un nouveau.

1. Maintenez la touche ALT + F11 clés, et il ouvre le Fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez insérer > Moduleet collez la macro suivante dans le Fenêtre du module.

Code VBA: modifiez plusieurs chemins d'hyperliens à la fois

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3. Puis appuyez F5 pour exécuter ce code et une boîte de dialogue vous permettant de saisir votre ancienne adresse de lien hypertexte dans le Ancien texte boîte. Voir la capture d'écran:

4Cliquez sur OK, et une autre boîte de dialogue apparaît pour vous rappeler de saisir la nouvelle adresse de lien hypertexte que vous souhaitez utiliser.

5. Et puis cliquez OK, toutes les anciennes adresses d'hyperliens ont été remplacées par la nouvelle à la fois. Voir les captures d'écran:


Changez plusieurs chemins de lien hypertexte à la fois dans une feuille de calcul / classeur / plusieurs feuilles / sélection avec une fonctionnalité étonnante

Si vous souhaitez remplacer les chemins de lien hypertexte d'une sélection, de plusieurs feuilles, d'un classeur actuel ou de plusieurs classeurs, comment pouvez-vous faire? Avec Rechercher et remplacer caractéristique de Kutools for Excel, vous pouvez rapidement vous acquitter de cette tâche.

Remarque:Appliquer cette Rechercher et remplacer utilitaire, tout d'abord, vous devez télécharger le Kutools for Excel, puis appliquez la fonction rapidement et facilement.

Après l'installation de Kutools for Excel, veuillez faire comme ceci:

1Cliquez sur Kutools > Navigation, voir capture d'écran:

2. Dans le ouvert Navigation Cliquez sur Trouver et remplacer onglet, dans le Rechercher et remplacer Cliquez sur remplacer onglet, puis effectuez les opérations suivantes:

  • Entrez l'ancien texte du lien hypertexte que vous souhaitez trouver dans le Trouvez ce que zone de texte, puis tapez le nouveau texte du lien hypertexte par lequel vous souhaitez remplacer dans le Remplacez-le par zone de texte;
  • Spécifiez l'étendue dans laquelle vous souhaitez rechercher et remplacer le chemin du lien hypertexte à partir du Dans la liste déroulante;
  • Ensuite, sélectionnez Hyperliens dans la liste déroulante Regarder dans;
  • Enfin, cliquez Trouver tout bouton, toutes les cellules correspondantes contenant le texte du lien hypertexte spécifique ont été répertoriées dans la zone de liste inférieure.

3. Puis clique Remplacer tout bouton, les anciens chemins de lien hypertexte ont été remplacés par les nouveaux à la fois, voir capture d'écran:

Cliquez pour télécharger Kutools for Excel pour un essai gratuit !


Articles plus relatifs:

  • Extraire les adresses réelles des hyperliens
  • Supposons que vous ayez une plage de cellules contenant des hyperliens et que vous deviez maintenant voir la destination réelle des hyperliens et les extraire des hyperliens comme illustré ci-dessous. Existe-t-il des moyens simples de résoudre rapidement ce problème?
  • Convertir les URL d'image en images réelles dans Excel
  • Si vous avez une liste d'adresses URL d'image dans la colonne A, et maintenant, vous souhaitez télécharger les images correspondantes à partir des URL et les afficher dans la colonne B adjacente comme capture d'écran de gauche. Dans Excel, comment pouvez-vous extraire rapidement et facilement les images réelles des URL d'images?
  • Convertir le texte de l'URL en lien hypertexte cliquable dans Excel
  • Supposons que vous ayez plusieurs URL dans votre feuille de calcul, mais qu'elles ne soient pas liées, et que vous devez maintenant convertir toutes les URL non liées en liens hypertexte cliquables, comme illustré ci-dessous. Bien sûr, vous pouvez double-cliquer dessus un par un pour les rendre cliquables, mais cela prendra du temps s'il y a beaucoup d'URL. Comment pouvez-vous convertir automatiquement plusieurs URL non liées en liens hypertexte cliquables dans Excel?

Meilleurs outils de productivité bureautique

Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

onglet kte 201905


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
Comments (47)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
This might be an older article, but was exactly what I needed. Thank you!
This comment was minimized by the moderator on the site
hi
thanks man you helped me a lot
This comment was minimized by the moderator on the site
I downloaded this and gave it a try and it did nothing. My hyperlinks look like this: file///\\server\shared\PO\CY2021\25079.pdf. I'm trying to change "server" to "server1" after a migration. I do the find/replace and choose Hyperlink, execute it, and... nothing happens. 
Any ideas?
This comment was minimized by the moderator on the site
Hello John,Sorry to hear that. The reason why the find/replace function didn't work is that your hyperlink file///\\server\shared\PO\CY2021\25079.pdf is not valid. According to the Excel dialog box, it shows the address of this site is not valid. Check the address and try again.
Then when I change your hyperlink to http://file///\\server\shared\PO\CY2021\25079.pdf, the find/replace function works perfectly. Please have a try. Have a nice day.
Sincerely,Mandy
This comment was minimized by the moderator on the site
Muchas gracias, me ahorraste mucho tiempo actualizando hipervinculos!
This comment was minimized by the moderator on the site
Muito obrigado! Você me salvou dezenas de horas de sono que seriam perdidas atualizando links.
This comment was minimized by the moderator on the site
Would it be possible to have a version to set a macro in power point for update links to excel, happens that monthly we need to link the power point presentation to a new excel in a new location. I have to do it one by one and it takes hours! MANY THANKS!!!!

This comment was minimized by the moderator on the site
Thankyou so much for the vba fix. I knew there had to be an easy way to fix my hyperlink problem and you provided it :) I am extremely grateful.
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Hello, Schweppy,
The below code can help you to replace the hyperlinks in all sheets, please try.

Sub ReplaceHyperlinks()
Dim xWs As Worksheet
Dim xWss As Sheets
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set WS = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
Set xWss = Application.ActiveWorkbook.Worksheets
For Each xWs In xWss
For Each xHyperlink In xWs.Hyperlinks
xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Next xWs
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
This is amazing!!! Thank you for posting the code that works for all of the worksheets. I had the hardest time finding this and couldn't figure out how to create it myself. Thank you so much for sharing your code with the world!!!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Your code helped me update hundreds of hyperlinks in a blink of an eye. Thank you soo much for you help.
This comment was minimized by the moderator on the site
Thanks a lot, works perfectly fine. Highly appreciated.
This comment was minimized by the moderator on the site
Glad it helps. Any questions, please feel free to contact us. Have a nice day!
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Had a spreadsheet with over 200 items that had hyperlinks that needed to be edited. This just saved me SO MUCH TIME. THANK YOU!!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations