Discussion :

[Camu_guigui]

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

[mfoxy]

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

[Camu_guigui]

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

Mais le Mail est sous cette forme:

[mfoxy]

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 :

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
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