Bonjour,

Je cherche à automatiser le traitement d'un mail dans mon excel en VBA en l'important.
Le mail que je reçois est sous la forme suivante:
- du texte
- un tableau
- du texte

J'ai réussi ouvrir mon fichier ".msg" puis à supprimer le texte du départ (je pense que je peux faire de même pour la fin) mais c'est sur le tableau du milieu que je bloque.
J'arrive à récupérer et à la mettre dans une cellule via "message.body", mais je perd la tabulation du tableau et tout se "colle" dans la cellule A1.

Avez-vous des idées, je tourne en rond ?
Merci d'avance pour votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub import_tableaumail()
 
Dim OutApp As Outlook.Application
Dim Message As Outlook.MailItem
Dim Cible As String
 
    ' Fichier à importer
    Cible = ThisWorkbook.Path & "\dossier\fichier.msg"
 
    Set OutApp = New Outlook.Application
    Set Message = OutApp.CreateItemFromTemplate(Cible)
 
    Sheets.Add.Name = "tableauIMP"
    Range("A1").Select
    Range("A1").Value = Mid(Message.Body, 695)
 
    OutApp.Quit
    Set OutApp = Nothing
End Sub