Discussion :

[goninph]

Bonjour,

je deviens fou !!! J'ai essayé mille combine

En VBA, comment extraire l'adresse mail help@blabla.com et la suite de mot :

Philippe Gonin +410000000 help@blabla.com

help@blabla.com peut varier si c'est une autre adresse mail

Merci pour votre aide

Philippe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Extraire_Adresse_Mail()
 
    Dim AdresseMail As Variant
    Dim NomTelMail As Variant
    Dim Espace As Variant
 
    Range("E3").Select
    NomTelMail = Range("E3").Value
 
    AdresseMail = Right(NomTelMail, 20)
 
 
End Sub

[Philippe Tulliez]

Bonjour,
Le titre de ta discussion ne correspond pas à ta demande.
Si tu cherches la chaîne se trouvant à droite de l'arobase, il faut d'abord la trouver. Les fonctions InStr et InStrRev renvoie la position d'une chaîne cherchée dans une autre.
Avec cette position tu utiliseras la fonction Mid qui te permettra d'extraire la chaîne à droite de l'arobase.
La fonction Split est une autre solution.

Je te conseille la lecture de ce tutoriel Manipuler les chaînes de caractères en VB6 et VBA Excel

[goninph]

Merci, pour le lien transmis que j'avais déjà visité, mais qui ne m'aide pas à résoudre ma demande.

Je veux toute l'adresse email, rechercher le premier espace depuis la droite et copier tout le texte depuis l'espace jusqu'à la fin de la phrase

Bonne journée

[unparia]

Bonjour

Merci, pour le lien transmis que j'avais déjà visité, mais qui ne m'aide pas à résoudre ma demande.

Je veux toute l'adresse email

Hé bien ! --->> recherche donc le dernier espace en lieu et place de l'arobase !
Et la seconde méthode (par Split) ?
Les deux solutions que t'a données Philippe Tulliez sont bonnes (les deux).

[goninph]

Yes, ça fonctionne

Merci à tous

Pas compris la méthode SPLIT ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Extraire_Adresse_Mail()
 
    Dim AdresseMail As Variant
    Dim NomTelMail As Variant
    Dim Position As Byte
 
    NomTelMail = Range("E3").Value
 
            Position = InStrRev(NomTelMail, " ") 'Recherche le dernier espace de la phrase
            AdresseMail = Mid(NomTelMail, Position + 1, 10000)
 
Range("A3") = AdresseMail
 
End Sub

[unparia]

1) Le , 10000 est totalement inutile dans :

AdresseMail = Mid(NomTelMail, Position + 1, 10000)

Tu devrais ouvrir ton aide interne VBA à la rubrique Mid, fonction et y lire ce qu'est le paramètre Lenght
2)

Pas compris la méthode SPLIT ...

La "méthode" Split ? Elle n'existe pas !
Existe par contre la fonction Split.

Elle est exposée de manière claire dans ton aide VBA, à la rubrique Split, fonction

Tu l'ouvres de temps à autres, cette aide interne ? Pour ton information : même les plus avancés d'entre nous l'ouvrent et la consultent régulièrement . Tu es prié d'en faire au moins autant.
3) si ta difficulté est résolue, il convient (règle de ce forum) de libérer cette discussion b(un clic sur le tag RESOLU). Merci de faire au moins cela.

[goninph]

Merci pour les conseils, mais si je supprime le 10000, le résultat est nul

Concernant le paramètre Lenght, je n'ai pas compris comment le placer malgré l'aide dont vous parlez

Excellente soirée

Philippe

1) Le , 10000 est totalement inutile dans :
AdresseMail = Mid(NomTelMail, Position + 1, 10000) Tu devrais ouvrir ton aide interne VBA à la rubrique Mid, fonction et y lire ce qu'est le paramètre Lenght

[unparia]

Merci pour les conseils, mais si je supprime le 10000, le résultat est nul

Concernant le paramètre Lenght, je n'ai pas compris comment le placer malgré l'aide dont vous parlez

Ah oui ? (Le placer où alors que je t'ai dit qu'il n'était pas nécessaire ?)
montre nous donc (juste pour voir)
1) ce que tu as lu dans l'aide VBA à propos du paramètre length
2) le code que tu as finalement écrit après cette lecture

[Philippe Tulliez]

Bonjour;

Pas compris la méthode SPLIT ...

On te donne le lien d'un tutoriel à lire et tu réponds

Merci, pour le lien transmis que j'avais déjà visité, mais qui ne m'aide pas à résoudre ma demande.

Manifestement tu ne l'as pas lu correctement car au chapitre I-I. Scinder une chaîne tu as un bel exemple sur la fonction Split correspondant exactement à ta demande en ce qui concerne les caractères espacés.
Evidemment cela demande de faire un Copier/Coller du code de la procédure, lancer l'exécution de celle-ci, regarder et comprendre le résultat renvoyé.