transfo email en nom de domaine

sonyz · 29 Mars 2005

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@ · 29 Mars 2005

Bonjour,

Voici une formule que tu peux utiliser:

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

Bonne journée

sonyz · 29 Mars 2005

merci beaucoup...

mais ça ne marche pas...

ou bien je suis trop nulle (c aussi possible )

@Christophe@ · 29 Mars 2005

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 · 29 Mars 2005

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
        If InStr(Cell, Chr(64)) <> 0 Then
            TheDomain = Split(Cell.Text, Chr(64))
            Cell.Offset(0, 1) = TheURL & TheDomain(1) 'à adapter Offset(0, 1) = 1ere cellule à Droite (ici B)
        End If
    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

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

End Sub

Bonne Soirée
@+Thierry

sonyz · 29 Mars 2005

géant ! ça marche !

j'avais bien mis en français au cas où 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

transfo email en nom de domaine

sonyz

Guest

@Christophe@

XLDnaute Occasionnel

sonyz

Guest

@Christophe@

XLDnaute Occasionnel

_Thierry

XLDnaute Barbatruc

sonyz

Guest

Discussions similaires