Bjr,
J'ai un fichier excel rempli uniquement sur la colonne A qui contient des informations dont des adresses mails.
ex:
jfioejzfizioejj .. 13153 toto@gmail.com f,keozf,z
fesfesff1s5efsf1sef5se
fse fsef sef<hello@world.com>
Je voudrais faire une macro ou une fonction qui extraie l'adresse mail. Lorsque l'adresse mail est entourée de <ex@gmail.com> ou (ex2@gmail.com) j'ai trouvé comment les extraire.
=MID(A1;FIND("<";A1;1)+1;(FIND(">";A1;1)-FIND("<";A1;1)-1))
Lorsque je veux extraire les adresses mails entourées uniquement d'espaces, j'ai trouvé cette solution mais qui ne m'affichent que 19 caractères au maximum, je ne comprends pas pourquoi:
=MID(A1;FIND("µ";SUBSTITUTE(A1;" ";"µ";LEN(LEFT(A1;FIND("@";A1)))-LEN(SUBSTITUTE(LEFT(A1;FIND("@";A1));" ";""))))+1;FIND("µ";SUBSTITUTE(A1;" ";"µ";LEN(LEFT(A1;FIND("@";A1)))-LEN(SUBSTITUTE(LEFT(A1;FIND("@";A1));" ";""))))+FIND("@";A1)-FIND(" ";MID(A1;FIND("@";A1);99))-2)
Ex:
SendTo: <aaaaa.ssssssss@infineon.com>
est extraie par:
aaaaa.ssssssss@infi
Je pense qu'en macro se serait plus simple, mais il faut trouver un moyen d'identifier les espaces avant et apres la chaine de caratère contenant le "@" pour pouvoir extraire correctement celle-ci.
Auriez vous des idées ?
Cdt,
J'ai un fichier excel rempli uniquement sur la colonne A qui contient des informations dont des adresses mails.
ex:
jfioejzfizioejj .. 13153 toto@gmail.com f,keozf,z
fesfesff1s5efsf1sef5se
fse fsef sef<hello@world.com>
Je voudrais faire une macro ou une fonction qui extraie l'adresse mail. Lorsque l'adresse mail est entourée de <ex@gmail.com> ou (ex2@gmail.com) j'ai trouvé comment les extraire.
=MID(A1;FIND("<";A1;1)+1;(FIND(">";A1;1)-FIND("<";A1;1)-1))
Lorsque je veux extraire les adresses mails entourées uniquement d'espaces, j'ai trouvé cette solution mais qui ne m'affichent que 19 caractères au maximum, je ne comprends pas pourquoi:
=MID(A1;FIND("µ";SUBSTITUTE(A1;" ";"µ";LEN(LEFT(A1;FIND("@";A1)))-LEN(SUBSTITUTE(LEFT(A1;FIND("@";A1));" ";""))))+1;FIND("µ";SUBSTITUTE(A1;" ";"µ";LEN(LEFT(A1;FIND("@";A1)))-LEN(SUBSTITUTE(LEFT(A1;FIND("@";A1));" ";""))))+FIND("@";A1)-FIND(" ";MID(A1;FIND("@";A1);99))-2)
Ex:
SendTo: <aaaaa.ssssssss@infineon.com>
est extraie par:
aaaaa.ssssssss@infi
Je pense qu'en macro se serait plus simple, mais il faut trouver un moyen d'identifier les espaces avant et apres la chaine de caratère contenant le "@" pour pouvoir extraire correctement celle-ci.
Auriez vous des idées ?
Cdt,