Macro : Extraire une donnée dans un message

[roidurif]

Bonjour,

Je souhaite extraire dans mon message mail, la date d’envoi « À : Creati-Fiche-Central (ENTREPRISE SA) » indiqué dans le texte vers mon fichier Excel.

Pour cet exemple ce sera «mardi 29 mars 2011 18:09».

Je …. Xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Xxxxxxxxxxx
Xxx
X



De : Laurent Michel (ENTREPRISE SA) 
Envoyé : mardi 29 mars 2011 18:09
À : Creati-Fiche-Central (ENTREPRISE SA)
Objet : TR: FICHE 


Je …. Xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Xxxxxxxxxxx
Xxx
X

Je bloque sur ce code. Pourriez vous svp m’aider ?

Sub LitMessagerie()
  Set olApp = CreateObject("Outlook.Application")
  Set olns = olApp.GetNamespace("MAPI")
  Set olxFolder = olns.GetDefaultFolder(6) ' olns.GetDefaultFolder(olFolderInbox)
  Sheets("Litmessagerie").Select
  
  Set myDestFolderADM = olns.GetDefaultFolder(6).Folders("3- TRAITER")
  On Error Resume Next
  n = 2
  For Each i In myDestFolderADM.Items 'olxFolder.Items
 Cells(n, 1) = i.Subject

MonBody = i.Body

Crea = Mid(MonBody, InStr( MonBody, " Creati-Fiche-Central (ENTREPRISE SA)") ,- 20)
Cells(n, 4) = Crea

 Next

End Sub

Merci d’avance.