Ouvrir un fichier (*.msg) puis enregistrer la pièce jointe (*.xls)

Bonjour le Forum,

Je reviens vous embêter avec le même fichier ;D

(https://forum.excel-pratique.com/viewtopic.php?f=2&t=114475&p=689194#p689194)

(https://forum.excel-pratique.com/viewtopic.php?f=2&t=114766&p=691464#p691464)

Ce fichier touche bientôt à la fin

Maintenant, j'ai une très belle liste de tout mes chemins vers mes mails enregistrées (donc je dois boucler sur chacun de ces mails).

J'arrive aussi à ouvrir ces mails un par un puis à les refermer mais je n'arrive pas à enregistrer la pièce jointe (*.xls) au passage !

Est-ce que vous pourriez m'aider ?

Ci-joint un fichier exemple de la où j'en suis avec les quelques macros qui concerne ce que j'aimerais faire

AddFolder : Créer un dossier

OpenMail : Ouvre le premier mail de la cellule A2

A partir de la, ce que je n'arrive pas à faire :

SaveAttachement : Sauvegarde la pièce jointe du mail ouvert vers le dossier précédemment créé

CloseMail : Ferme le mail ouvert

BoucleMail : Supprime la ligne A2 de ma liste en colonne A puis boucle sur la nouvelle ligne A2

SaveAttachement : On recommence jusqu’à ce que la colonne A sois vide

BlendFiles : Une fois toute les pièces jointes dans le dossier, on ouvre les fichiers, on récupère les données en Feuil1 puis on colle tout sa sur un nouveau Classeur en regroupant les mêmes Cie par onglet

A partir de la, ce que j'arrive à faire :

DelFile : On supprime les fichiers du dossier

DelFolder : On supprime le dossier