Note: The other languages of the website are Google-translated. Back to English
English English

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 pour 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 pour Excel, puis appliquez la fonction rapidement et facilement.

Après l'installation de Kutools pour 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?

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
bas de cabine
Commentaires (45)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Incroyable, cela m'a épargné beaucoup d'efforts.
Ce commentaire a été minimisé par le modérateur sur le site
J'adore, tu me sauves une tonne de travail.
Ce commentaire a été minimisé par le modérateur sur le site
Salut, pourriez-vous me donner le code VB si j'ai besoin de changer les liens dans Powerpoint au lieu d'excel ? Merci
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, cela semble fonctionner très bien mais certains caractères (par exemple "\" et "%"). Dans mon cas, j'ai des adresses hyperliens comme [../../../../../../Application%20Data/Microsoft/2012/Relacom%20Uki-Kantvik-Tallinna-Pietari-Uki_saate151012.xls] et J'ai besoin d'obtenir le début [../../../../../../Application%20Data/Microsoft/] loin de l'adresse de centaines de liens. Le début des liens est le même, mais les extrémités sont différentes. Avez-vous de bons conseils?
Ce commentaire a été minimisé par le modérateur sur le site
Merci!!!! :lol: ça m'a beaucoup aidé.
Ce commentaire a été minimisé par le modérateur sur le site
Comment changer cela afin de mettre à jour les hyperliens qui renvoient à des références dans un classeur plutôt qu'à des adresses Web externes ?
Ce commentaire a été minimisé par le modérateur sur le site
Juste besoin de la même chose, essayez ces modifications : Sub ReplaceHyperlinks() 'Updateby20140220 Dim Wb As Workbook Dim Ws As Worksheet Dim xHyperlink As Hyperlink Dim xOld As String, xNew As String xTitleId = "CambiaLink" 'Set Ws = Application.ActiveSheet Set Wb = Application.ActiveWorkbook xOld = Application.InputBox("Ancien texte :", xTitleId, "", Type :=2) xNew = Application.InputBox("Nouveau texte :", xTitleId, "", Type :=2) Pour chaque Ws Dans Wb.Worksheets 'Application.ScreenUpdating = False For Each xHyperlink In Ws.Hyperlinks Debug.Print ("voy " & xHyperlink.SubAddress) xHyperlink.SubAddress = Replace(xHyperlink.SubAddress, xOld, xNew) Next Next Application.ScreenUpdating = True Sous-titre de fin
Ce commentaire a été minimisé par le modérateur sur le site
mauricio - tu es génial ! Merci! De plus, pour un autre rapport, j'en aurai besoin pour mettre à jour les liens uniquement sur les onglets spécifiés, est-ce possible ?
Ce commentaire a été minimisé par le modérateur sur le site
Merci merci merci !!!!!!! tu m'as sauvé 2 jours de travail ici
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen de modifier plusieurs liens hypertexte "texte à afficher" en même temps ?
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour un brillant morceau de programme. Fonctionne comme un charme... "WLC"
Ce commentaire a été minimisé par le modérateur sur le site
Génial! Merci beaucoup!!!!
Ce commentaire a été minimisé par le modérateur sur le site
Hé les gars, qu'est-ce qui me manque, j'obtiens 'Erreur de compilation - Variable non définie' pour le XTitleId dans Excel 2013 :cry:
Ce commentaire a été minimisé par le modérateur sur le site
Pas de soucis, je l'ai compris et défini comme une chaîne
Ce commentaire a été minimisé par le modérateur sur le site
ça m'a beaucoup aidé merci beaucoup
Ce commentaire a été minimisé par le modérateur sur le site
C'est l'article Excel le plus utile que j'aie jamais rencontré. J'ai eu de nombreux problèmes où les liens hypertexte dans un fichier sont corrompus, ou je veux déplacer l'emplacement de certains fichiers hyperliens, et la mise à jour a toujours été un problème majeur. Mon programmeur Excel n'avait pas de solution simple. Cela fonctionne sans faute. Je suis très reconnaissant - merci!
Ce commentaire a été minimisé par le modérateur sur le site
Ouah! Cela m'a fait gagner TELLEMENT DE TEMPS. Vous êtes génial. Merci d'avoir partagé!
Ce commentaire a été minimisé par le modérateur sur le site
C'est génial. Vous m'avez fait gagner TELLEMENT DE TEMPS. aujourd'hui. Merci d'avoir partagé!
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup pour ce développement ! J'ai eu un utilisateur qui a créé un tas d'hyperliens sur plusieurs onglets (au moins plusieurs centaines) et d'une manière ou d'une autre, ils avaient un chemin de fichier vers son dossier AppData\Roaming sur son lecteur c au lieu du dossier réseau. J'ai pu utiliser votre script VBA pour supprimer cette partie du code du lien et maintenant tout fonctionne. Cela nous a probablement fait gagner une semaine de mise à jour et cela m'a pris moins de 2 minutes à mettre en œuvre !
Ce commentaire a été minimisé par le modérateur sur le site
Étonnante. A fonctionné comme un charme sur Excel 2013, aucun ajustement requis, contrairement aux correctifs similaires que j'ai vus pour ce problème. MERCI beaucoup. Économisé un énorme mal de tête et des heures de temps.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai essayé de l'exécuter sur des liens hypertexte contenant d'autres références de dossiers, mais cela n'a pas fonctionné. Comment changer cela afin de mettre à jour les hyperliens qui pointent vers des dossiers d'un disque dur plutôt que vers des adresses Web externes ?
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés