Passer au contenu principal

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 Extrayez les adresses réelles des hyperliens avec Kutools for Excel rapidement et facilement

Voici un outil pratique, appelé Kutools for 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 for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours.

Si vous avez installé Kutools for 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 : extrayez les adresses réelles des hyperliens avec Kutools for Excel

Kutools for 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?

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
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...

Description


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 (44)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour
Auriez vous une solution pour mettre en place le fonctionnement par la formule sur Excel 365 sur Mac ?
This comment was minimized by the moderator on the site
Hello, Edouard,
Sorry, the methods in this article are only applied to Microsoft Excel.
Thank you!
This comment was minimized by the moderator on the site
Ola colegas ,

Tenho uma planilha com mais de 2000 linhas, preciso exportar o documento que esta no hiperlink estas celulas, para um diretório da maquina, alguém sabe como fazer ?

agradeço a atenção

at..
cássia
This comment was minimized by the moderator on the site
Thank you it solve my problem
This comment was minimized by the moderator on the site
Thank you, the VBA code worked like a charm :)
This comment was minimized by the moderator on the site
Thank you for the tip to Extract Actual Addresses From Hyperlinks in Excel With VBA Code. It was exactly what I needed!
This comment was minimized by the moderator on the site
How does this apply to Excel on Mac?
This comment was minimized by the moderator on the site
I think it's nice to have an option that doesn't require macros since so many haven't used VBA at all.
This comment was minimized by the moderator on the site
If you're not comfortable with VBA, the key step to getting this done is the FORMULATEXT() formula that is included with excel. For example, if cell A1 has this...
=HYPERLINK("https://www.google.com","Google Homepage")
...then it would display "Google Homepage" but you want to extract "https://www.google.com". You can use =FORMULATEXT(A1) to get the output of "=HYPERLINK("https://google.com","Google Homepage")".

Then you use the find and mid functions to find the double quotes (which is CHAR(34)) and pull the string between the first two double quotes. Nesting it all together, you can use this formula to get the URL without any VBA required...
=MID(FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1,FIND(CHAR(34),FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1)-FIND(CHAR(34),FORMULATEXT(A1))-1)
This comment was minimized by the moderator on the site
Thankyou for an easy method to extract the complete URL from a weblink. I looked at other methods that were too nebulous but yours was straightforward and easy. Thanks.
This comment was minimized by the moderator on the site
Thanks for the " Extract actual addresses from hyperlinks with VBA code" VBA and clear instructions. It worked great for me.
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