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

Comment extraire des adresses réelles d'hyperliens dans Excel?

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? Cet article vous guidera pour extraire les adresses réelles de plusieurs hyperliens.


flèche bleue bulle droite Extraire les adresses réelles des hyperliens avec la fonction Modifier l'hyperlien

Ici le Modifier l'hyperlien peut vous aider à extraire l'URL sous-jacente pour chacun de ces hyperliens et à placer cette adresse réelle dans une cellule différente. Vous pouvez faire comme ceci:

1. Sélectionnez la cellule avec lien hypertexte et cliquez avec le bouton droit, dans le menu contextuel, choisissez Modifier l'hyperlien, voir capture d'écran:

2. Et un Modifier l'hyperlien boîte de dialogue apparaîtra, sélectionnez et copiez (Ctrl + C) l'URL entière du Adresse champ de la boîte de dialogue.

3. Fermez ensuite la boîte de dialogue et collez l'adresse réelle dans la cellule de votre choix.

Notes: Avec cette méthode, vous ne pouvez extraire qu'une seule adresse d'hyperlien à chaque fois, mais si vous avez plusieurs hyperliens à extraire, vous devez appliquer cette fonction à plusieurs reprises.


flèche bleue bulle droite Extraire les adresses réelles des hyperliens avec le code VBA

Pour de nombreux hyperliens, la méthode ci-dessus sera fastidieuse et prend du temps, de sorte que le code VBA suivant peut vous aider à extraire rapidement plusieurs adresses des hyperliens à la fois.

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans la fenêtre Module.

Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3. Puis appuyez F5 clé pour exécuter le code, et une boîte de dialogue apparaît pour vous permettre de sélectionner les liens hypertexte que vous souhaitez extraire les adresses réelles, voir capture d'écran:

4. Puis clique OK, et le contenu de la cellule sélectionnée a été converti en adresses de lien hypertexte réelles dans la plage d'origine. Voir les captures d'écran:


flèche bleue bulle droite Extraire les adresses réelles des hyperliens avec la fonction User Definde

La fonction définie par l'utilisateur suivante peut également extraire l'URL réelle des hyperliens.

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3. Enregistrez le code et fermez la fenêtre, sélectionnez une cellule vide pour taper cette formule = GetURL (A2) (A2 est la cellule dans laquelle se trouve le lien hypertexte), et appuyez sur Entrer bouton. Vous pouvez voir que la véritable adresse du lien hypertexte est extraite.


flèche bleue bulle droite Extraire les adresses réelles des hyperliens avec Kutools for Excel rapidement et facilement

Voici un outil pratique, appelé Kutools pour Excel, Avec son Convertir les hyperliens fonctionnalité, vous pouvez rapidement traiter les opérations suivantes:

  • Extraire les adresses réelles des hyperliens;
  • Convertir le texte de l'URL en hyperliens cliquables.
Kutools pour Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours.

Si vous avez installé Kutools pour Excel, procédez comme suit:

1. Sélectionnez la plage contenant les hyperliens à extraire.

2Cliquez sur Kutools > Lien > Convertir les hyperliens, voir capture d'écran:

3. Dans le Convertir les hyperliens boîte de dialogue, sélectionnez Les adresses des hyperliens remplacent le contenu des cellules option, et cliquez doc-bouton1 bouton de Gamme de résultats pour spécifier une cellule pour mettre le résultat.

4. Et puis cliquez OK, les adresses réelles ont été extraites des hyperliens. Voir la capture d'écran:

Notes: Si vous souhaitez mettre les adresses réelles dans la plage d'origine, veuillez vérifier Convertir la plage source.

Cliquez Convertir les hyperliens pour en savoir plus sur cette fonctionnalité.

Téléchargez et essayez gratuitement Kutools for Excel Now!


flèche bleue bulle droite Démo: extraire les adresses réelles des hyperliens avec Kutools for Excel

Kutools pour Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!

Article connexe:

Comment convertir le texte d'une URL en lien hypertexte cliquable 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 (44)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup. ça m'a vraiment aidé
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup!!! :RÉ
Ce commentaire a été minimisé par le modérateur sur le site
Cela vient de me sauver ! Merci
Ce commentaire a été minimisé par le modérateur sur le site
merci tu as rendu mon travail si facile
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup!
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup, cela m'a sauvé le cul et m'a fait bien paraître. 8)
Ce commentaire a été minimisé par le modérateur sur le site
Vous êtes le meilleur, si facile à suivre !
Ce commentaire a été minimisé par le modérateur sur le site
Merci mon pote. Ça marche vraiment en quelques secondes.
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup. ça m'a vraiment aidé
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup! Très utile mais simple et clair. Comme Albert voulait dire :roll:
Ce commentaire a été minimisé par le modérateur sur le site
Super! Si facile. Merci!
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup. comme tout le monde ici. c'est très utile et facile.
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup :lol: J'ai utilisé la méthode VBA et cela a fonctionné comme un charme dans Excel 365 sur un système d'exploitation Windows 8.1
Ce commentaire a été minimisé par le modérateur sur le site
C'est la toute première astuce Excel basée sur des macros qui a fonctionné pour moi. Merci beaucoup d'avoir amélioré la vie des mannequins Excel.
Ce commentaire a été minimisé par le modérateur sur le site
merci de m'avoir fait gagner 15 minutes
Ce commentaire a été minimisé par le modérateur sur le site
Superbe! réduit mon travail à moins d'une minute.
Ce commentaire a été minimisé par le modérateur sur le site
Cela m'a fait gagner une tonne de temps! J'ai extrait 500 identifiants de profil de plus de 500 noms liés à leurs profils. Ce code fonctionnait extrêmement bien et était facile à suivre. Merci beaucoup!
Ce commentaire a été minimisé par le modérateur sur le site
Pour une raison quelconque, cela ne fonctionne pas pour moi. J'ai créé la fonction définie comme vous l'avez décrit, mais elle ne fait rien :\ Je veux aussi la fusionner avec la fonction Hyperlink, comme ceci : =HYPERLINK(=getURL(A1), [A1]) Pour que la finale le résultat copiera l'URL de A1 et l'affichera sous la forme de la chaîne de texte de A1 (c'est-à-dire qu'il suffit de copier A1 dans une autre cellule, y compris son texte et son lien hypertexte. Une chose simple qu'Excel ne semble pas pouvoir faire pour une raison quelconque...).
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup! M'a sauvé beaucoup de temps d'avoir à faire plus de 800 de ces cellules !
Ce commentaire a été minimisé par le modérateur sur le site
Très bel outil ! J'ai converti plus de 16 XNUMX liens. L'outil a fonctionné rapidement et sans défaut.
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