Exporter des tableaux du corps du message Outlook vers Excel

Bonjour,
Je suis débutant en vba. Je souhaite exporter des tableaux qui se trouve dans le CORPS d’un mail Outlook vers un fichier Excel en utilisant vba Excel.
Je reçoit le même mail chaque mois qui contient le même sujet/objet. Donc j’ai besoin de filtrer pour prendre les données du dernier mail.
Merci d’avance pour votre attention, si vous avez de plus de detail, demandez 🙏.

Sous excel, il faut ouvrir la barre de tâche de développement et coller le code VB ci-après .
Il est possible d'automatiser encore plus en créant un fichier BAT

Pour ce faire, il faut taper ici pour rechercher taper Command
une fenêtre noire apparaît
après
> copy con >exec.bat
excel.exe chemin du fichier excel

Il faut aller dans le panneau de configuration et chercher les tâches pour déclarer la date et l'heure d'arrivée du mail et demande l'exécution du fichier

Sinon sous Office il faut déclarer une règle pour exécuter une Macron et sous office créer une macro

Code:

---

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 42 43 44 45 46 47

Sub auto() runas vba... end sub       Sub GetFromInbox()   Dim olApp As Outlook.Application Dim olNs As Outlook.Namespace Dim olFldr As Outlook.MAPIFolder Dim olItms As Outlook.Items Dim olMail As Variant Dim i As Long Dim xTable As Word.Table Dim xDoc As Word.document Dim xRow As Integer   Set olApp = New Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set olFldr = olNs.GetDefaultFolder(olFolderInbox) Set olItms = olFldr.Items   olItms.Sort "Subject"   i = 1 On Error Resume Next   xRow = 1 For Each olMail In olItms If InStr(1, olMail.Subject, "Supplier 2 Pipeline Schedule - 26 Mar 2021") > 0 Then Set xDoc = olMail.GetInspector.WordEditor For i = 1 To xDoc.Tables.Count Set xTable = xDoc.Tables(i) xTable.Range.Copy ThisWorkbook.Sheets("Sheet2").Paste xRow = xRow + xTable.Rows.Count + 1 ThisWorkbook.Sheets("Sheet2").Range("A" & CStr(xRow)).Select Next End If Next olMail   Set olFldr = Nothing Set olNs = Nothing Set olApp = Nothing   End Sub

---

Merci pour ton retour mach,

Je ne sais pas comment ça marche un BAT, je vais regarder ça…

J’ai essayé ton code, mais j’ai une erreur au niveau de l’objet. En fait, je reçois un mail automatique qui a un object comme ; «*Raport hebdomadaire - 18/07/2022*». Le problem est dans la date qui se modifie chaque jour automatiquement. J’ai essayé de metre dans subject :*«*Raport **» mais ça ne marche pas.

Si tu peux m’orienter plus..
merci d’avance,