Comment extraire des adresses Web dans Excel ?

Supposons que vous receviez un classeur Excel de votre collègue dans lequel vous avez une liste de liens hypertexte dans une colonne. Maintenant, à partir de cette liste, vous souhaitez extraire toutes les adresses URL des liens hypertexte.

La méthode manuelle est un véritable casse-tête, vous devez copier-coller chaque URL une par une. La meilleure façon est donc de créer une UDF dans VBA . Et, aujourd’hui, j’aimerais partager avec vous un code simple pour cette UDF.

Code VBA pour extraire les URL de lien hypertexte

Function GiveMeURL(rng As Range) As String
On Error Resume Next
GiveMeURL = rng.Hyperlinks(1).Address
End Function

Comment utiliser ce code

Pour utiliser cette UDF, vous devez suivre ces étapes :

1. Ouvrez l’éditeur Visual Basic à partir de l’onglet développeur ou utilisez le raccourci clavier ALT + F11.
2. Insérez un nouveau module, collez-y le code ci-dessus et fermez-le.
3. Maintenant, dans votre feuille de calcul, entrez la fonction =GiveMeURL(A1) et appuyez sur Entrée.