VBA Extraire chaîne de caractères

[C@thy]

Bonjour le forum,

je récupère une chaîne de caractères du style :
/O=EXCH-ADC/OU=GA1/CN=RECIPIENTS/CN=TOTO-ADC49645217
ici je souhaiterais récupérer TOTO-ADC
/O=EXCH-ADC/OU=GA1/CN=RECIPIENTS/CN=DUPOND-ADC59333583
ici je souhaiterais récupérer DUPOND-ADC

En fait, l'instruction AdressMail = OLmail.SenderEmailAddress ne me renvoie pas du tout l'adresse e-mail avec l'@ mais une chaîne de caractères du style :
/O=EXCH-ADC/OU=GA1/CN=RECIPIENTS/CN=TOTO-ADC49645217

La vraie adresse mail avec l'@ ça aurait été super, mais à défaut, je vais rechercher l'identifiant
donc j'ai essayé ceci :
v = Split(AdressMail, "/")
AdressMail = v(4) 'j'obtiens CN=TOTO-ADC49645217
lg = Len(AdressMail)
ident = Mid(AdressMail, 4, lg - InStr(AdressMail, "-ADC") + 6)
mais ça ne fonctionne pas comme je veux...

avez-vous une idée pour récupérer l'identifiant (qui se termine toujours par -ADC)
ou bien l'adresse e-mail avec l'@???

Merci à vous

C@thy

 

[C@thy]

Re : VBA Extraire chaîne de caractères

Yaisse!!!!

Bises et merci

C@thy

 

[C@thy]

Re : VBA Extraire chaîne de caractères

Je suis parti du principe que...AdressMail = v(4)

Ah ben dans ce cas, voui...

C@thy