Comment extraire les adresses URL réelles des liens hypertexte dans Excel ?
Supposons que vous ayez une plage de cellules contenant des liens hypertexte et que vous souhaitiez désormais visualiser leur destination réelle, puis les extraire comme le montre la capture d’écran ci-dessous. Existe-t-il des méthodes simples pour résoudre ce problème rapidement ? Cet article vous explique comment extraire facilement les adresses réelles de plusieurs liens hypertexte.
Extrayez les adresses réelles des liens hypertexte à l’aide de la fonction Modifier le lien hypertexte
Ici, la fonction Modifier le lien hypertexte vous permet d’extraire l’URL sous-jacente de chacun de ces liens hypertexte et de placer cette adresse réelle dans une autre cellule. Procédez ainsi :
1. Sélectionnez la cellule contenant le lien hypertexte, cliquez avec le bouton droit, puis choisissez Modifier le lien hypertexte dans le menu contextuel (voir capture d’écran) :
2. La boîte de dialogue Modifier le lien hypertextes’ouvre alors. Sélectionnez et copiez ()Ctrl+C) l’URL complète depuis le champ Adresse de cette boîte de dialogue.
3. Fermez ensuite la boîte de dialogue, puis collez l’adresse réelle dans la cellule de votre choix.
Remarque : Avec cette méthode, vous ne pouvez extraire qu’une seule adresse à partir d’un lien hypertexte à la fois. Si vous devez extraire plusieurs liens hypertexte, vous devrez appliquer cette fonction de manière répétée.
Extrayez les adresses réelles des liens hypertexte avec Kutools pour Excel rapidement et facilement
Voici un outil pratique appelé Kutools pour Excel, doté de sa fonctionnalité Convertir les hyperliens, qui vous permet de traiter rapidement les opérations suivantes :
- Extrayez les adresses réelles des liens hypertexte;
- Transformez le texte d’URL en liens hypertexte cliquables.
Si vous avez installé Kutools pour Excel, procédez comme suit :
1. Sélectionnez la plage contenant les liens hypertexte à extraire.
2. Cliquez sur Kutools > Lien > Convertir les hyperliens (voir capture d’écran) :
3. Dans la boîte de dialogue Convertir les hyperliens, sélectionnez l’option Convertir l‹adresse d›hyperlien en contenu de cellule, puis cliquez sur le bouton 
dans la zone Plage de résultats pour indiquer la cellule où placer le résultat.
4. Cliquez ensuite sur OK. Les adresses réelles ont été extraites des liens hypertexte (voir la capture d’écran) :
Remarque : si vous souhaitez insérer les adresses réelles directement dans la plage d’origine, cochez l’option Convertir la plage source.
Téléchargez et testez gratuitement Kutools pour Excel dès maintenant !
Extrayez les adresses réelles des liens hypertexte à l’aide d’un code VBA
Lorsqu’il s’agit de nombreux liens hypertexte, la méthode précédente devient fastidieuse et chronophage. Le code VBA ci-dessous vous permet d’extraire simultanément plusieurs adresses à partir de ces liens.
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre du 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 Sub3. Appuyez ensuite sur la touche F5 pour exécuter le code. Une boîte de dialogue s’ouvre alors afin que vous puissiez sélectionner les liens hypertexte dont vous souhaitez extraire les adresses réelles (voir capture d’écran) :
4. Cliquez ensuite sur OK. Le contenu des cellules sélectionnées a été converti en adresses de liens hypertexte réelles dans la plage d’origine (voir captures d’écran) :
 |  |  |
Extrayez les adresses réelles des liens hypertexte à l’aide d’une fonction définie par l’utilisateur
La fonction personnalisée suivante permet également d’extraire l’URL réelle à partir des liens hypertexte.
1. Maintenez enfoncées les touches ALT + F11pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la 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 cette fenêtre. Sélectionnez une cellule vide et saisissez la formule suivante : =GetURL(A2) (A2 étant la cellule contenant le lien hypertexte), puis appuyez sur la touche Entrée. L’adresse du lien hypertexte réel s’affiche alors.
Article associé :
Comment transformer un texte d’URL en lien hypertexte cliquable dans Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels