Importer le tableau d'un fichier mail .msg dans Excel

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:

---

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

---

Bonsoir,

Certainement possible via le bodyHtml du mail.
Import du tableau html vers Excel.

Sans exemple d'email c'est difficile de t'aiguiller.

Bat,
MFoxy

Désolé, je dois cacher les données, c'est pro.

Mais le Mail est sous cette forme:
Pièce jointe 574186

Hello,

Désolé pour le retour tardif,
mais pas mal de boulot pour le moment.

Cette procédure importe la table contenue dans le premier mail de l'inbox

Pour l'appliquer à ton problème, il faut remplacer par le mail actif, ce que tu sais déjà faire 😉

oMail est à remplacer par ton objet email.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

' get html table from email object Dim oHTML As MSHTML.HTMLDocument Dim x As Long, y As Long   Set oHTML = New MSHTML.HTMLDocument Dim oElColl As MSHTML.IHTMLElementCollection   With oHtml .Body.innerHTML = oMail.HTMLBody Set oElColl = .getElementsByTagName("table") End With   'import in Excel   For x = 0 To oElColl(0).Rows.Length - 1 For y = 0 To oElColl(0).Rows(x).Cells.Length - 1 Range("A1").Offset(x, y).Value = oElColl(0).Rows(x).Cells(y).innerText Next y Next x

---