bonjour
j'ai une fonction qui convertie les liens des sites vers la page d'aceuil, exemple
http://www.excel-downloads.com/forum/newthread.php?do=newthread&f=7
devient
http://www.excel-downloads.com
mais certains sites sont de cette forme
http://forum.site.com/xxxx/xxxx/
ma macro la rend comme ça
http://forum.site.com
je voudrai la modifier pour qu'elle ne garde que ce qu'il y aprés le premier point
c'est à dire que
http://forum.site.com/xxxx/xxxx/
devient
site.com
j'ai une fonction qui convertie les liens des sites vers la page d'aceuil, exemple
http://www.excel-downloads.com/forum/newthread.php?do=newthread&f=7
devient
http://www.excel-downloads.com
Code:
Function FunctionURL(URL)
Dim Char As Variant
Dim Var As Integer
For i = 1 To Len(URL)
Char = Mid(URL, i, 1)
If Char = "/" Then
Var = Var + 1
End If
If Var = 3 Then
FunctionURL = Left(URL, i - 1)
If FunctionURL = "" Then
FunctionURL = URL
Exit Function
End If
Exit Function
End If
Next i
FunctionURL = FunctionURL
End Function
mais certains sites sont de cette forme
http://forum.site.com/xxxx/xxxx/
ma macro la rend comme ça
http://forum.site.com
je voudrai la modifier pour qu'elle ne garde que ce qu'il y aprés le premier point
c'est à dire que
http://forum.site.com/xxxx/xxxx/
devient
site.com
Dernière édition: