Comment exporter un tableau figurant dans le corps d’un e-mail vers Excel depuis Outlook ?

Lorsque vous recevez un e-mail contenant plusieurs tableaux dans son corps, il peut s’avérer utile de les exporter tous vers une feuille de calcul Excel. Bien qu’il soit possible de les copier-coller manuellement, je vous propose ici une méthode bien plus efficace pour gérer cette tâche en présence de nombreux tableaux.

Exporter tous les tableaux du corps d’un message Outlook vers une feuille Excel à l’aide d’un code VBA

---

Exporter tous les tableaux du corps d’un message Outlook vers une feuille Excel à l’aide d’un code VBA

Veuillez appliquer le code VBA suivant pour exporter tous les tableaux contenus dans le corps d’un message vers une feuille Excel.

1. Ouvrez le message contenant les tableaux que vous souhaitez exporter, puis appuyez simultanément sur les touches « ALT » + « F11 » pour lancer la fenêtre « Microsoft Visual Basic for Applications ».

2. Cliquez sur « Insertion » > « Module », puis collez le code suivant dans la fenêtre du module.

Code VBA : Exporter tous les tableaux du corps d’un message vers une feuille Excel

Sub ImportTableToExcel()
Dim xMailItem As MailItem
Dim xTable As Word.Table
Dim xDoc As Word.Document
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim I As Integer
Dim xRow As Integer
On Error Resume Next
Set xExcel = New Excel.Application
Set xWb = xExcel.Workbooks.Add
xExcel.Visible = True
Set xWs = xWb.Sheets(1)
xRow = 1
For Each xMailItem In Application.ActiveExplorer.Selection
    Set xDoc = xMailItem.GetInspector.WordEditor
    For I = 1 To xDoc.Tables.Count
        Set xTable = xDoc.Tables(I)
        xTable.Range.Copy
        xWs.Paste
        xRow = xRow + xTable.Rows.Count + 1
        xWs.Range("A" & CStr(xRow)).Select
    Next
Next
End Sub

3. Après avoir collé le code ci-dessus, toujours dans la fenêtre « Microsoft Visual Basic for Applications », cliquez sur « Outils » > « Références » pour ouvrir la boîte de dialogue « Références – Projet1 », puis cochez les options « Microsoft Word Object Library » et « Microsoft Excel Object Library » dans la liste « Références disponibles », comme illustré ci-dessous :

4. Cliquez ensuite sur le bouton « OK » pour fermer la boîte de dialogue, puis appuyez sur la touche « F5 » afin d’exécuter le code. Tous les tableaux contenus dans le corps du message sont alors exportés vers un nouveau classeur, comme illustré dans la capture d’écran suivante :