création d'une adresse mail avec un nom

[gilles]

salut à tous,

voilà, je souhaite faire une macro qui prend une chaine contenant le nom et le prénom et qui me retourne une adresse mail

Ex:

chaine='Maurice Lapin'
extension_mail='@poufpouf.com'

aprés la macro on doit avoir:

chaine_final='maurice.lapin@poufpouf.com'

merci pour votre aide

 

[Staple1600]

Bonjour


avec une formule
=MINUSCULE(SUBSTITUE(A1;' ';'.'))&'@poufpouf.com'

 

[jeromegmc]

Salut,

Une macro est possible, mais je te propose une fonction Excel:

Ecris ça en D1:

=A1&'.'&B1&C1


Et écris en:
A1: Maurice
B1: Lapin
C1: @poufpouf.com


(ou encore remplace C1 dans la formule de D1 par '@poufpouf.com'

ce qui donne pour la formule dans D1: =A1&'.'&B1&'@poufpouf.com')


Ca te vas?

A+

Message édité par: jeromegmc, à: 01/09/2005 15:47

 

[myDearFriend!]

Bonjour gilles, Staple1600,

En complément de la formule de Staple1600, comme j'ai cru comprendre que tu souhaitais une macro... tu peux essayer :

      chaine = 'Maurice Lapin'
      extension_mail = '@poufpouf.com'
     
      chaine_final = LCase(Replace(chaine, ' ', '.')) & extension_mail
     
      MsgBox chaine_final

Cordialement,

EDITION
Bonjour jeromegmc, je ne t'avais pas vu venir...

Message édité par: myDearFriend!, à: 01/09/2005 15:49

 

[Staple1600]

Ce qui en VBA peut donner

Sub Macro2()
ext = '@poufpouf.com'
For Each C In Selection
C.Value = LCase(Application.WorksheetFunction.Substitute(C, ' ', '.')) & ext
Next C
End Sub