Afficher les mails de Outlook vers Excel

Bonjour,

J'ai ce code pour afficher les mails d'une certaine boite de réception Outlook vers un tableau Excel
Sauf que je reçois une erreur 1004 quand je l'exécute comme le montre la capture d'écran ci-dessous.

Sub GetFromOutlook()

Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer

Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("test")

i = 1

For Each OutlookMail In Folder.Items
    If OutlookMail.ReceivedTime >= Range("From_date").Value Then
        Range("eMail_subject").Offset(i, 0).Value = OutlookMail.Subject
        Range("eMail_date").Offset(i, 0).Value = OutlookMail.ReceivedTime
        Range("eMail_sender").Offset(i, 0).Value = OutlookMail.SenderName

        i = i + 1
    End If
Next OutlookMail

Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing

End Sub

bonjour,

sur quelle instruction reçois-tu ce message d'erreur ?

Bonjour,

J'ai créé une sous-inbox avec le nom "test" comme indiqué dans le code,

J'ai configuré la destination de cette inbox à partir de l'onglet Règles et Alertes,

J'ai activé l'outil Microsoft Outlook 16.0 à partir de la fenêtre Outils>Références,

J'ai créé une feuille avec le nom "test" puis dans cette feuille, j'ai préparé un tableau de 3 colonnes: Subject, Date et Sender,

Puis j'ai essayé d'exécuter ce code VBA mais j'ai eu cette erreur.

re-bonjour,

peux-tu mettre ton classeur, car personnellement je n'ai pas d'erreur quand j'exécute cette macro.

Re-bonjour

re-bonjour,

il n'y a pas de macro dans ce classeur

Re,

C'est parce que à chaque fois j'enregistre le macro et je ferme et relance le fichier Excel, il disparait,
Comment je peux faire pour ne pas le perdre à chaque fois?
Peut-être que je dois l'écrire dans un nouveau module au lieu de l'écrire dans la section de la feuille "test" ?

Bonjour,

pour sauver les macros, choisir sauver sous puis choisir avec les macros (.xlsm)