Discussion :

[AntoineGDX]

Bonjour à tous,

Je reçois quotidiennement des mails contenants un tableau, j'aimerai l'exporter vers Excel mais je n'arrive qu'à récupérer le texte (Item.Body).

Auriez vous une idée ?

Merci

[Oliv-]

Bonjour,
Voici une façon de faire

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub export_Table_excel()
    Dim Oitem As Outlook.MailItem
    Dim ohtml As HTMLDocument
    Dim xlapp As Object
    Dim WK As Object
    Dim Ws As Object
 
    'on utilise l'email ouvert
    Set Oitem = ActiveInspector.CurrentItem
 
 
    'ici on lance excel
    Set xlapp = CreateObject("Excel.application")
 
    'ici on ajoute un classeur
    Set WK = xlapp.Workbooks.add
    Set Ws = WK.ActiveSheet
    xlapp.Visible = True
 
    Set ohtml = New HTMLDocument
    ohtml.Body.innerHTML = Oitem.HTMLBody
    Set mesHREF = ohtml.getElementsByTagName("TABLE")
    i = 1
    j = 1
 
    For t = 0 To mesHREF.Length - 1
        Set TableHTML = mesHREF(t)
        For Each trBoucle In TableHTML.Rows
            For Each cellBoucle In trBoucle.Cells
                'MsgBox cellBoucle.outerText
                Ws.Cells(i, j).Value = cellBoucle.outerText
                j = j + 1
            Next
            i = i + 1
            j = 1
 
        Next
 
    Next
 
End Sub