Re : Extraire des emails d'un fichier excel
Bonjour,
Voici une façon simple (sous office 2007) sans boucle pour extraire l'adresse mail (juste sur une cellule).
Sub extraction()
Dim mail, new_mail As String
Dim depart, lg_chaine As Integer
mail = Range("A1").Value
depart = InStr(mail, ":") + 2 'ici j'ajoute 2 car il y a une espace entre les : et le début de l'adresse mail, si il n'y en avait pas eu, j'aurai fait +1
lg_chaine = Len(mail)
new_mail = Mid(mail, depart, lg_chaine)
MsgBox "nouveau mail : " & new_mail, vbOKOnly + vbInformation, "Extraction effectuée"
End Sub
Bonne journée.
John