Automatiser une extraction de nom de domaine d'une adresse URL Résolu/Fermé

Question

Bonjour, 

Je souhaiterais pouvoir automatiser l'extraction de noms de domaines des adresses URL que j'ai copiées en colonne dans Excel.
L'un des problèmes auquel je suis confronté est que toutes ces adresses n'ont pas la même "forme" initiale.

J'ai essayé :
- les macros en VBA, mais je bloque sur la rédaction de la boucle "do...while" et le "rechercher / remplacer" s'avère être trop lourd;
- de "convertir" en remplaçant les "." par des espaces pour ventiler dans différentes colonnes, mais les différentes "formes initiales" posent problème ... idem avec les fonctions "gauche" ou "droite".

Exemples:

Adresse de départ => ce que je souhaite obtenir
www.bing.com => bing
go.microsoft.com => microsoft
static2.pagesjaunes.fr => pagesjaunes
www.taratatatsointsoin.com => taratatatsointsoin
taratatatsointsoin.com => taratatatsointsoin

J'en passe et des meilleures ...

Si quelqu'un pouvait me donner un coup de main ...

Merci par avance ! :)




Configuration: Mac OS X Leopard (10.5.8) / Safari 5.0.6

aziz_alg80 · Answer

Salut;

En supossant que le nom du domaine se situt entre deux points : (exemple:     .Bing.   &  .Microsoft.   )  et que cette forme est la plus utilisée, tu peux extraire le nom du domaine en utilisant la Fonction: CONVERTIR (Menu Données / Zone outils de donnés / convertir

pour le faire :
Sélectionner la plage de cellules contenant les URLs
cliquer sur convertir 
et suivre l'assistant en choisissant le point (.) comme séparateur

Avant de sélectionner la plage, mettre à part les URLs de forme différents que celle qui délimite le nom entre les deux points, pour les traiter séparément.

Bon courage

eriiic · Answer

Bonsoir,

une petite fonction personnalisée qui traite les cas que tu as cité :
Function nomDomaine(adr As String) As String
    Dim part As Variant
    part = Split(adr, ".")
    Select Case UBound(part)
    Case 0, 1
        nomDomaine = part(0)
    Case 2
        nomDomaine = part(1)
    End Select
End Function 
Mais comme tu as gardé le meilleur... ;-)
https://www.cjoint.com/?CBmv1Ckcl4b

eric

Automatiser une extraction de nom de domaine d'une adresse URL

2 réponses

Discussions similaires