transfo email en nom de domaine

[sonyz]

bonjour,

ma question va vous sembler certainement bête mais je n'ai pas trouvé toute seule la solution alors je profite de ce forum

voilà : j'ai exporté mon carnet d'adresses sur excel pour pouvoir faire plus rapidement des modif sur plusieurs comptes à la fois

mon problème est le suivant : j'ai les emails de mes destinataires, je voudrais automatiquement extraire de ces email le nom de domaine qui en résulte
exemple :
j'ai des adresses : sonyz@durand.com
et je voudrais obtenir : http://www.durand.com dans une autre colonne

j'ai copié collé la colonne email et je pensais utiliser la fonction 'remplacer' mais je ne sais pas quelle formule utiliser pour remplacer 'sonyz@' par 'http://www.' de manière générique...

je suppose qu'il doit y avoir un truc du style '****@' à remplacer par 'http://www.' mais je ne trouve pas ...

merci pour votre aide

 

[@Christophe@]

Bonjour,

Voici une formule que tu peux utiliser:

='http://www.' & RIGHT(A1;LEN(A1)-SEARCH('@';A1))

Bonne journée

 

[sonyz]

merci beaucoup...

mais ça ne marche pas...

ou bien je suis trop nulle (c aussi possible 😉)

 

[@Christophe@]

Re,

lol,

Peux être que tu as excel en français. modifie le nom des fonctions:

='http://www.' & DROITE(A1;NBCAR(A1)-CHERCHE('@';A1))

bonne chance

Message édité par: @Christophe@, à: 29/03/2005 18:23

 

[_Thierry]

Bonsoir cher amis @Xtof@, Bonsoir Sonys, Bonsoir le Forum

Une mini macro au cas où (pour Excel 2000 et plus)

Option Explicit

Const TheURL As String = 'http://www.'

Sub TheEmailToWebURL()
Dim Cell As Range
Dim TheDomain As Variant

    For Each Cell In Range('A1:A100') ' à adapter à ta plage de cellules
&nbsp; &nbsp; &nbsp; &nbsp; If InStr(Cell, Chr(64)) <> 0 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TheDomain = Split(Cell.Text, Chr(64))
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Offset(0, 1) = TheURL & TheDomain(1) 'à adapter Offset(0, 1) = 1ere cellule à Droite (ici B)
&nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; Next

End Sub

Sinon sous Excel 97 et plus...

Option Explicit

Const TheURL As String = 'http://www.'

Sub TheEmailToWebURLXL97()
Dim Cell As Range
Dim TheDomain As String

&nbsp; &nbsp; For Each Cell In Range('A1:A100') ' à adapter à ta plage de cellules
&nbsp; &nbsp; &nbsp; &nbsp; If InStr(Cell, Chr(64)) <> 0 Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TheDomain = Mid(Cell.Text, InStr(Cell.Text, Chr(64)), Len(Cell))
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Cell.Offset(0, 1) = TheURL & TheDomain 'à adapter Offset(0, 1) = 1ere cellule à Droite (ici B)
&nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; Next

End Sub

Bonne Soirée
@+Thierry

 

[sonyz]

géant ! ça marche !

j'avais bien mis en français au cas o&ugrave; mais mal traduit search par RECHERCHE...

pour la macro, je note, car c'est pas vraiment ma spécialité, mais faut bien apprendre un peu tous les jours !

merci à tous, c la 1ere fois que j'utilise ce forum et je le trouve très efficace que ce soit pour moi ou pour les autres posts que j'ai pu lire