Excel formule

Question

Bonjour à tout le monde,
Je voulais savoir si quelqu'un sait comment extraire avec Excel d'une adresse web seulement le domaine, sans le sous-domaine.
Pratiquement si nous avons un sous-domaine.site1.com et site2.com avec http ou https et éventuellement www devant, ou même avec sous-dossier, page ou slash à la fin, je voudrais pouvoir extraire simplement site1.com et site 2.com sans le sous-domaine, en sachant qu'il existe aussi les site3.co.uk ou site4.org.nz etc,etc...
Merci beaucoup


__________________
agenzia web reggio emilia et province http://www.ghisirds.com/

jordane45 · Answer

Bonjour,

voici une petite fonction qui récupère le domaine d'une url (A condition que l'URL contienne toujours un Sous-Domaine)

Function GetDomaine(Url As String)
    Dim i As Integer
    Dim URLTMP As String
    Dim SousDomaine As String
    'On supprime le http:// ou https://
    URLTMP = Replace(Url, "http://", "")
    URLTMP = Replace(URLTMP, "https://", "")
    'on coupe la chaine en utilisant les "/" comme séparateurs
    splitURL = Split(URLTMP, "/")
    'on coupe en utilisant le point comme séparateur
    SplitUrl2 = Split(splitURL(0), ".")
    'Si la premiere valeur du split est www, on prend la suivante
    If SplitUrl2(0) = "www" Then i = 1
    SousDomaine = SplitUrl2(i)
    For x = i + 1 To UBound(SplitUrl2)
    tmp = tmp & "." & SplitUrl2(x)
    Next
    GetDomaine = Right(tmp, Len(tmp) - 1)
End Function

'Pour utiliser la fonction :
Sub test()
MonDomaine = GetDomaine("https://CodesSources.ccm.net/uneMacro")
Debug.Print MonDomaine
End Sub

 


enfin voila, en tout cas c'est un exemple de manipulation des chaines de caractères... pour le reste, je vous laisse chercher

 
Cordialement,
Jordane
_____________________________________________________
Règles du forum à lire avant de poster une question : [ ICI]

Excel formule

1 réponse

Discussions similaires