Extraire prénom et nom d'une adresse mail

Bonjour à tous

Comment éclater une adresse mail

Au format :

prénom.nom@entreprise.com

L'entreprise en question comporte 10 lettres

Il y a un point entre le prénom et le nom

Vers

Des colonnes différentes de prénom et de nom

Merci beaucoup d'avance

Bonjour Monsieurexcel, bonjour le forum,

Comme il y a plusieurs méthodes possible, un petit fichier exemple permettrait de te soumettre la plus appropriée...

Bonjour

En supposant ton adresse mail en A3 en B3 tu mets cette formule

=GAUCHE(A3;TROUVE("@";A3)-1)

Cordialement

Bonjour le fil, bonjour le forum,

Ta formule, Joco, ne sépare pas les prénoms et les noms. J'imagine qu'en la combinant ça le fera mais je suis trop nul en formules...

Une proposition VBA avec le code ci- dessous qui suppose que les données soient dans la Colonne A à partie de A1...

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim TNP() As Variant 'déclare la variable TNP (Tableau Nom Prénom)
Dim NP As String 'déclare la variable NP (Nom Prénom)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs
ReDim TNP(1 To UBound(TV, 1), 1 To 2) 'redimensionne le tableau TPN des nom prénoms (autant de lignes que TV, 2 colonnes)
For I = 1 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV
    NP = Split(TV(I, 1), "@")(0) 'définit la variable NP (extrait le texte avant l'arobase)
    TNP(I, 1) = Split(NP, ".")(0) 'récupère le prénom la dans colonne 1 (texte avant le point de NP)
    TNP(I, 2) = Split(NP, ".")(1) 'récupère le nom la dans colonne 2 (texte après le point de NP)
Next I 'prochaine ligne de la boucle
O.Range("C1").Resize(UBound(TV, 1), 2).Value = TNP 'renvoie le tableau TNP dans la cellule C1 redimensionnée de l'onglet O
End Sub

Bonjour à tous,

par formules :
=GAUCHE(A2;CHERCHE(".";A2)-1)
et
=STXT(A2;CHERCHE(".";A2)+1;CHERCHE("@";A2)-CHERCHE(".";A2)-1)
eric

bonjour

un essai "directement "

cordialement

Merci infiniment