Transformez une adresse mail en nom et prénom

[Evinrude]

Bonjour

J'ai importé un fichier texte ds EXCEL. Dans celui-ci figure une colonne avec les adresse mails de personnes sous la forme pierre.durand@XXX.fr : je souhaite simplement conserver, si possible par le biais d'une macro, le nom et prénom de ces personnes dans une cellule (une par personne bien sûr !), comment puis-je faire ?

Merci de votre expérience !

 

[Jocelyn]

Re : Transformez une adresse mail en nom et prénom

Bonjour le Forum,
Bonjour Evinrude,

En macro je ne sais pas faire mais par formule voila un exemple

Jocelyn

 

[Pierrot93]

Re : Transformez une adresse mail en nom et prénom

Bonjour Evinrude

essaye le code ci-dessous, pour traiter la colonne A de la feuille active :

Sub test()
Dim c As Range
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    c.Value = Split(c.Value, "@")(0)
Next c
End Sub

bon après midi
@+

Edition : bonjour Jocelyn

 

[C@thy]

Re : Transformez une adresse mail en nom et prénom

Bonjour,

j'espère que ceci correspond à ce que tu souhaites.

C@thy

 

[C@thy]

Re : Transformez une adresse mail en nom et prénom

Oups! On dirait qu'on s'est téléscopés, Jocelyn!🙂

Biz

C@thy

 

[C@thy]

Re : Transformez une adresse mail en nom et prénom

je rajoute ca qu'a fait Jocelyn à ce que j'ai fait comme ça ce sera complet

Biz

C@thy

 

[Evinrude]

Re : Transformez une adresse mail en nom et prénom

Ben c'est un bon début merci ! Pour ne rien cacher je démarre en VBA : j'ai reçu une formation EXPRESS cette semaine mais dure de savoir par où commencer !
En tout cas merci!

 

[Evinrude]

Re : Transformez une adresse mail en nom et prénom

Bonjour Evinrude

essaye le code ci-dessous, pour traiter la colonne A de la feuille active :

Sub test()
Dim c As Range
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    c.Value = Split(c.Value, "@")(0)
Next c
End Sub

bon après midi
@+

Edition : bonjour Jocelyn

Ben merci à vous trois, avec tout ça je devrais y arriver ! Et merci pour la rapidité de réponse, quand j'en serai là....bonne soirée