Discussion :

[Jero_mmmm]

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

[mach1974]

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 :

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

[Jero_mmmm]

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,