Formule excel pour transformer une URL complète en nom de domaine unique

Hello ,

Second post, je me suis cassé la tête ce matin à comment faire transformer une URL scrappé de Google Maps en url unique pour enrichir avec les adresses emails.
il faut supprimer tout les espaces

https:// pastebin. com/ZH0PBHjN ici vous avez la version sans les espaces de la requette

=SI(GAUCHE(A2;7)=« http:// »;STXT(A2;8;TROUVE(« / »;A2;8)-8);SI(GAUCHE(A2;8)=« https:// »;STXT(A2;9;TROUVE(« / »;A2;9)-9);A2))

Cette fonction transforme une url de type https://www. site.com /hello => www.site.com

Pour que ça fonctionne il faut mettre en input un fichier excel comme ça

J’ai utiliser cette formule.

L’idée est d’enlever Http ou https si c’est mal rempli dans google my business et d’en faire un URL unique pour compléter les info mais aussi d’enlever toutes les informations d’accès à la page après le slash /

A qui sera utile.

Bonne journée,
Si vous avez des idées d’amélioration de la formule.

Alexandre

2 « J'aime »

top ca merci beaucoup :slight_smile:
ca peut servir du du dropcontact par exemple

Bonjour @orionp,

Sur Google Sheets, tu peux aussi utiliser les Regex, je crois que tu as la même chose sur Excel.

Un exemple :

Et pour supprimer les espaces dans la cellule de base, tu as :

=REGEXEXTRACT(SUBSTITUE(A1; " "; «  »); « ^(?:https?://)?([^:/\n]+) »)

1 « J'aime »

bonjour, sinon il y a aussi les macros.

Sub adresse()
'
' adresse Macro
'
    Cells.Select
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Selection.Replace What:=".com/*", Replacement:=".com", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
     Selection.Replace What:="https://", Replacement:="www.", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="http://", Replacement:="www.", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
End Sub

bonne journée