copie des pieces jointes en mails depuis excel VBA

[nina71287]

Bonjour,

je souhaiterai copier des pieces jointes de mails recus sous outlook depuis excel en VBA sur mon ordinateur.

J'ai un code qui fait ce que je veux mais depuis Outlook et non depuis excel. comment l'adapter si possible svp merci d'avance.


Sub exportPiecesJointes_BoiteReception()
Dim OutlookApp As New Outlook.Application
Dim olSpace As Outlook.NameSpace
Dim olInbox As Outlook.MAPIFolder
Dim pceJointe As Outlook.Attachment
Dim j As Integer, i As Integer, x As Integer

Set OutlookApp = CreateObject("Outlook.Application")
Set olSpace = OutlookApp.GetNamespace("MAPI")
Set olInbox = olSpace.GetDefaultFolder(olFolderInbox)

'boucle sur tous les messages de la boite de réception
For j = 1 To olInbox.Items.Count

If Not olInbox.Items.Item(j).Attachments.Count = 0 Then

For i = 1 To olInbox.Items.Item(j).Attachments.Count
Set pceJointe = olInbox.Items.Item(j).Attachments(i)

If pceJointe.FileName = "10-11-08-22_00-stats_inter_detaillee_ATFAI.xls" Or pceJointe.FileName = "ANOHSTRD.xls" Then
x = x + 1
pceJointe.SaveAsFile "D:\10-11-08-22_00-stats_inter_detaillee_ATFAI.xls"
End If

Set pceJointe = Nothing
Next i

End If
Next j

End Sub