Comment extraire le nom de domaine à partir d'une URL dans Excel ?

Si vous travaillez souvent avec de nombreuses URL dans votre classeur, il peut arriver que vous souhaitiez extraire uniquement le nom de domaine de chaque page web. Dans Excel, comment pourriez-vous rapidement obtenir les noms de domaines à partir des URL ?

Extraire le nom de domaine à partir d'une URL avec une formule

Extraire le nom de domaine à partir d'une URL avec une fonction définie par l'utilisateur

Extraire le nom de domaine à partir d'une URL avec une formule

La formule longue suivante peut vous aider à retourner le nom de domaine à partir d'une page web selon vos besoins. Veuillez procéder comme suit :

1. Dans une cellule vide à côté de votre cellule contenant la page web, entrez la formule suivante ; dans cet exemple, je vais taper la formule dans la cellule B2 : =IF(ISNUMBER(FIND("www.",A2)),MID(A2,FIND("www.",A2)+4,IF(ISNUMBER(FIND("/",A2,9)),FIND("/",A2,9),LEN(A2)+1)-FIND("www.",A2)-4),MID(A2,FIND("//",A2)+2,IF(ISNUMBER(FIND("/",A2,9)),FIND("/",A2,9),LEN(A2)+1)-FIND("//",A2)-2)).

Remarque : dans la formule ci-dessus, A2 indique la cellule qui contient la page web dont vous souhaitez extraire le nom de domaine, vous pouvez la modifier selon vos besoins.

2. Appuyez ensuite sur la touche Entrée, sélectionnez la cellule B2, faites glisser la poignée de recopie vers le bas sur la plage où vous souhaitez appliquer cette formule, et tous les noms de domaine seront extraits de chaque URL. Voir capture d'écran :

Extraire le nom de domaine à partir d'une URL avec une fonction définie par l'utilisateur

Si vous êtes intéressé par le code VBA, vous pouvez créer une Fonction Définie par l'Utilisateur pour extraire le nom de domaine à partir des URL.

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : extraire le nom de domaine à partir d'une URL

Function ExtractDomain(ByVal URL As String) As String
'Update 20140904
    If InStr(URL, "//") Then
        URL = Mid(URL, InStr(URL, "//") + 2)
    End If
    If Left(URL, 4) Like "[Ww][Ww][Ww0-9]." Then
        URL = Mid(URL, 5)
    End If
    ExtractDomain = Split(URL, "/")(0)
End Function

3. Ensuite, enregistrez et fermez le code, revenez à la feuille de calcul, et entrez cette formule =Extractdomain(A2) dans une cellule vide à côté de la page web, voir capture d'écran :

4. Appuyez ensuite sur la touche Entrée, sélectionnez la cellule B2, et faites glisser la poignée de recopie vers le bas jusqu'aux cellules où vous souhaitez appliquer cette formule, et tous les noms de domaine seront extraits de chaque cellule contenant une page web.

Articles connexes :

Comment extraire des domaines à partir de plusieurs adresses e-mail dans Excel ?

Comment extraire rapidement une adresse e-mail à partir d'une chaîne de texte ?