Extraire nom de domaine d'une url

[Kijer]

Bonjour,

Je suis entrain de me rentre fou, entre les recherches infructueuses et les tests désespérés, j'en fini par venir poser la question..

J'ai admettons des urls comme ceci :

http://www.taxi.fr/taxi/montpellier-1
http://www.qype.fr/fr813-montpellier/categories/159-compagnies-de-taxis-in-montpellier
http://www.qype.fr/place/141944-TAXI-MONTPELLIER-Montpellier

J'aimerai obtenir sur une colone de droite

www.taxi.fr
www.qype.fr
www.qype.fr

et sur une autre

/taxi/montpellier-1
/fr813-montpellier/categories/159-compagnies-de-taxis-in-montpellier
/place/141944-TAXI-MONTPELLIER-Montpellier

Est-ce possible ?

J'ai cherché avec du DROITE, GAUCHE, TROUVE, etc sans succès...

Mille merci d'avance...

 

[ROGER2327]

Re : Extraire nom de domaine d'une url

Variante…

Domaine :

=GAUCHE(STXT(A2;CHERCHE("://";A2;1)+3;9^9);CHERCHE("/";STXT(A2;CHERCHE("://";A2;1)+3;9^9)&"/")-1)

Page :

=STXT(STXT(A2;CHERCHE("://";A2;1)+3;9^9);CHERCHE("/";STXT(A2;CHERCHE("://";A2;1)+3;9^9)&"/")+1;9^9)

(Traite aussi : "http://www.google.be")​

ROGER2327
#5219

Lundi 9 Palotin 138 (Saints Boleslas et Ladislas, polonais, SQ)
9 Floréal An CCXIX
2011-W17-4T13:10:49Z

 

[JNP]

Re : Extraire nom de domaine d'une url

Bonsoir le fil 🙂,

ps : N'est pas possible de réaliser des expressions regulières (regex) sous excel ? car de ce coté là, je me défend pas trop mal.

Tu dois vouloir parler des RegExp de Word, que l'on peux utiliser via Remplacer en cochant "Utiliser les caractères génériques" 🙄 ?
Non, il ne sont pas accessibles (en tout cas à ma connaissance) via formule Excel 😱...
Par contre via VBA, pas de problème 😛...
Une petite fonction personnalisée

Function Kijer(MaChaîne As String, Optional Domaine As Integer = 1) As String
Application.Volatile
With CreateObject("vbscript.regexp")
    .Global = False
    .Pattern = "(http://)([^/]+)(.*)"
    If .Test(MaChaîne) Then Kijer = .Replace(MaChaîne, "$" & Domaine + 1)
End With
End Function

Pour le domaine

=kijer(A1)

ou

=kijer(A1;1)

pour la suite

=kijer(A1;2)

Bonne continuation 😎