Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

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.

2. Cliquez 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.

2. Cliquez 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.

2. Cliquez 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-bouton1bouton 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ée...
  • 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 gammes...
  • 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 cellules...
  • 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 PDF...
  • 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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jon · 2 months ago
    Thank you, the VBA code worked like a charm :)
  • To post as a guest, your comment is unpublished.
    Kristy Neckowicz · 6 months ago
    Thank you for the tip to Extract Actual Addresses From Hyperlinks in Excel With VBA Code. It was exactly what I needed! 
  • To post as a guest, your comment is unpublished.
    Emily · 8 months ago
    How does this apply to Excel on Mac?
  • To post as a guest, your comment is unpublished.
    dduluk · 9 months ago
    I think it's nice to have an option that doesn't require macros since so many haven't used VBA at all.
  • To post as a guest, your comment is unpublished.
    dduluk · 9 months ago
    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)
  • To post as a guest, your comment is unpublished.
    Stardust2150 · 9 months ago
    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.
  • To post as a guest, your comment is unpublished.
    Thankful · 1 years ago
    Thanks for the " Extract actual addresses from hyperlinks with VBA code" VBA and clear instructions. It worked great for me.
  • To post as a guest, your comment is unpublished.
    apodsim@gmail.com · 3 years ago
    Trying to save time creating multiple Hyperlinks and hoped this program would help with the task. I have combined several columns containing text into a single cell and then used the Edit/Link to create a working URL. Is there a tool to modify the URL to display text characters of the URL.
  • To post as a guest, your comment is unpublished.
    sujan9991@gmail.com · 3 years ago
    Hi, How to do the same in google sheets
    • To post as a guest, your comment is unpublished.
      skyyang · 3 years ago
      hello, sujan,
      To extract all real addresses from hyperlinks in Google sheets, the following script code can help you:

      function linkURL(reference) {
      var sheet = SpreadsheetApp.getActiveSheet();
      var formula = SpreadsheetApp.getActiveRange().getFormula();
      var args = formula.match(/=\w+\((.*)\)/i);
      try {
      var range = sheet.getRange(args[1]);
      }
      catch(e) {
      throw new Error(args[1] + ' is not a valid range');
      }
      var formulas = range.getFormulas();
      var output = [];
      for (var i = 0; i < formulas.length; i++) {
      var row = [];
      for (var j = 0; j < formulas[0].length; j++) {
      var url = formulas[i][j].match(/=hyperlink\("([^"]+)"/i);
      row.push(url ? url[1] : '');
      }
      output.push(row);
      }
      return output
      }

      After copying and pasting the above code, go back to your sheet, and apply this formula:=linkURL(A2).
      Please try it, hope it can help you, thank you!
      • To post as a guest, your comment is unpublished.
        sujan9991@gmail.com · 3 years ago
        Hi,thank you for reply. I'm getting following error. and LinkUrl is not detecting as function
        • To post as a guest, your comment is unpublished.
          skyyang · 3 years ago
          Hi, sujan,
          The script code is worked correctly in my google sheet, see screenshot:
          • To post as a guest, your comment is unpublished.
            sujan9991@gmail.com · 3 years ago
            Hi Can you share with me a sample link please. The function is not detecting in my file
            • To post as a guest, your comment is unpublished.
              skyyang · 3 years ago
              Hi,
              Can you give your email account, and i will share the file with you!
              Thank you!
              • To post as a guest, your comment is unpublished.
                sujan9991@gmail.com · 3 years ago
                Sujan9991@gmail.com
                • To post as a guest, your comment is unpublished.
                  skyyang · 3 years ago
                  Sujan, I have shared the file with you, please check.
  • To post as a guest, your comment is unpublished.
    Victor Nieto · 3 years ago
    Thanks!!!!!
  • To post as a guest, your comment is unpublished.
    Neeks · 4 years ago
    Ah, amazing! Thank you!
  • To post as a guest, your comment is unpublished.
    sei · 4 years ago
    pretty..and nice...and fantabulouslyfntastikittilybumpershumperazardubiliousipaparazziastically yummy :P
    huh!
  • To post as a guest, your comment is unpublished.
    Stephanie · 4 years ago
    You have no idea how much time you saved me!!!
    Thank you so much!!!!!!!!!!!!!!!!!!!
  • To post as a guest, your comment is unpublished.
    Seocheckout.com · 5 years ago
    Very nice tool! I converted 16K+ links. Tool worked fast and flawless.
  • To post as a guest, your comment is unpublished.
    Alex T · 6 years ago
    Thanks so much!


    Saved me big time of having to do 800+ of these cells!
  • To post as a guest, your comment is unpublished.
    Nimrod · 6 years ago
    For some reason this doesn't work for me.
    I created the defined function just as you described, but it doesn't do anything :\
    I also want to merge it with the Hyperlink function, like so:
    =HYPERLINK(=getURL(A1), [A1])

    So that the final result will copy A1's URL and display it as A1's text string (i.e. just copy A1 to another cell, including both its text and hyperlink. A simple thing which Excel doesn't seem to be able to do for some reason...).
  • To post as a guest, your comment is unpublished.
    Zach Solomon-Beloin · 6 years ago
    This saved me a ton of time! I extracted 500 profile IDs from 500+ names linked to their profiles. This code worked extremely well and was easy to follow. Thanks so much!
  • To post as a guest, your comment is unpublished.
    AJITA · 6 years ago
    Superb! reduced my work to less than a minute.
  • To post as a guest, your comment is unpublished.
    Tj · 6 years ago
    thanks for saving me 15mins
  • To post as a guest, your comment is unpublished.
    Arun Kumar · 6 years ago
    This is the first ever macro based excel tip that worked for me. Thank you very much for making the lives of excel dummies better.
  • To post as a guest, your comment is unpublished.
    Monica · 6 years ago
    Thank you so much :lol: I used the VBA method and it worked like a charm in Excel 365 on a Windows 8.1 OS
  • To post as a guest, your comment is unpublished.
    chris · 6 years ago
    thanks a ton. like everyone else here. this is very helpful and easy.
  • To post as a guest, your comment is unpublished.
    Eva · 7 years ago
    Super! So easy. Thanks!
  • To post as a guest, your comment is unpublished.
    Tzally · 7 years ago
    Thanks a lot! Very helpful yet simple and clear. Just as Albert meant :roll:
  • To post as a guest, your comment is unpublished.
    JC · 7 years ago
    Thankyou so much. it really helped me
  • To post as a guest, your comment is unpublished.
    Thank You · 7 years ago
    Thanks buddy.It really work in seconds.
  • To post as a guest, your comment is unpublished.
    fab · 7 years ago
    You are the best, so easy to follow!
  • To post as a guest, your comment is unpublished.
    Awesome · 7 years ago
    Thank you so much this saved my ass and make me look good.
    8)
  • To post as a guest, your comment is unpublished.
    Respected · 7 years ago
    Thank You SO SO much!
  • To post as a guest, your comment is unpublished.
    vish · 7 years ago
    thnx u made my work so easy
  • To post as a guest, your comment is unpublished.
    PO · 7 years ago
    This just saved me! Thanks
  • To post as a guest, your comment is unpublished.
    mari · 7 years ago
    thanks so much!!! :D
  • To post as a guest, your comment is unpublished.
    bla bla · 8 years ago
    Thankyou so much. it really helped me