Automatiser une extraction de nom de domaine d'une adresse URL
Résolu/Fermé
papachat
Messages postés
3
Date d'inscription
mardi 12 février 2013
Statut
Membre
Dernière intervention
12 février 2013
-
12 févr. 2013 à 21:24
papachat - 19 févr. 2013 à 15:50
papachat - 19 févr. 2013 à 15:50
A voir également:
- Automatiser une extraction de nom de domaine d'une adresse URL
- Adresse url - Guide
- Darkino nouvelle adresse - Guide
- Nom de l'adresse - Forum Consommation & Internet
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Créer une adresse hotmail - Guide
2 réponses
aziz_alg80
Messages postés
378
Date d'inscription
vendredi 12 février 2010
Statut
Membre
Dernière intervention
30 mars 2020
22
12 févr. 2013 à 21:45
12 févr. 2013 à 21:45
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
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
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
12 févr. 2013 à 21:53
12 févr. 2013 à 21:53
Bonsoir,
une petite fonction personnalisée qui traite les cas que tu as cité :
Mais comme tu as gardé le meilleur... ;-)
https://www.cjoint.com/?CBmv1Ckcl4b
eric
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
papachat
Messages postés
3
Date d'inscription
mardi 12 février 2013
Statut
Membre
Dernière intervention
12 février 2013
12 févr. 2013 à 22:23
12 févr. 2013 à 22:23
Merci pour vos propositions (aziz_alg80 et toi) !
Je mets en application de ce pas :)
Je mets en application de ce pas :)
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
12 févr. 2013 à 23:28
12 févr. 2013 à 23:28
ok, n'oublie pas de mettre en résolu si c'est le cas.
eric
eric
Bonjour eriiic,
Désolé pour le retour tardif, je n'étais pas dispo ces derniers jours ...
Au risque de paraître ridicule, je n'arrive pas à intégrer ta proposition de fonction dans ma macro ...
si j'ai bien compris :
1-on nomme la zone de "nomDomaine";
2-ensuite je m'enregistre une macro quelconque sur le sujet et je remplace les commandes par celles que tu m'as proposé (je sais, c'est un peu de la bidouille ... :)).
Par contre, la fonction s'insère après :
Sub Macro1
'
et se termine avant :
'
End Sub ?
Merci pour ton aide :)
A+
Désolé pour le retour tardif, je n'étais pas dispo ces derniers jours ...
Au risque de paraître ridicule, je n'arrive pas à intégrer ta proposition de fonction dans ma macro ...
si j'ai bien compris :
1-on nomme la zone de "nomDomaine";
2-ensuite je m'enregistre une macro quelconque sur le sujet et je remplace les commandes par celles que tu m'as proposé (je sais, c'est un peu de la bidouille ... :)).
Par contre, la fonction s'insère après :
Sub Macro1
'
et se termine avant :
'
End Sub ?
Merci pour ton aide :)
A+
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
19 févr. 2013 à 08:43
19 févr. 2013 à 08:43
Bonjour,
non, pas vraiment.
Pas besoin de Sub... End Sub puisqu'une fonction se déclare entre Function et End Function.
Tu copie-colles le code fourni, c'est tout.
Ensuite sur la feuille ça s'utilise comme une fonction d'excel.
Dans une cellule tu écris =nomDomaine(ta_cellule_URL)
Tu peux aussi faire 'insertion / fonction' et la choisir dans la catégorie 'fonctions personnalisées'.
eric
non, pas vraiment.
Pas besoin de Sub... End Sub puisqu'une fonction se déclare entre Function et End Function.
Tu copie-colles le code fourni, c'est tout.
Ensuite sur la feuille ça s'utilise comme une fonction d'excel.
Dans une cellule tu écris =nomDomaine(ta_cellule_URL)
Tu peux aussi faire 'insertion / fonction' et la choisir dans la catégorie 'fonctions personnalisées'.
eric
12 févr. 2013 à 22:22
Je mets en application de ce pas :)