VBA récupérer des pièces jointes de mail outlook

Bonjour à tous !

Un petit coup de pouce de votre part serait le bienvenu

Voici ma problématique: j'ai une macro qui récupère des données dans différents fichiers excel et qui rassemble toutes ces données dans un seul fichier excel. Jusqu'ici j'allais chercher les données dans un répertoire contenant tous les fichiers excels contenant les données qui m'intéressaient. Maintenant j'aimerais changer un peu la chose, je souhaiterais aller récupérer ces données dans des fichiers excel qui seraient en pièce jointe de différents mail, tous rangés dans un dossier nommé "Test".

Ma macro (enfin le début, la seule partie qui nous intéresse ici puisque c'est uniquement l'emplacement où je vais prendre mes données qui m'importe) est la suivante:

Sub Consolider_Click()

Dim S_Commande As Worksheet

Dim Chemin As String

Dim Extension As String

Dim Nb As Integer

Set S_Commande = ThisWorkbook.Sheets("Commande")

Chemin = S_Commande.Cells(3, 2).Value

Extension = S_Commande.Cells(4, 2).Value

Nb = BoucleFichiers(Chemin, Extension)

MsgBox ("Nombre de lignes remplies : " & Nb)

End Sub

Function BoucleFichiers(Chemin As String, Extension As String) As Integer

Dim Fichier As String

BoucleFichiers = 0

'Boucle sur tous les fichiers 'Extension' du répertoire 'Chemin'

Fichier = Dir(Chemin & "*" & Extension)

Do While Len(Fichier) > 0

'écrit le résultat dans la fenêtre d'exécution (Ctrl+G).

BoucleFichiers = BoucleFichiers + ChargerFichier(Chemin & Fichier)

'MsgBox (Chemin & Fichier) '<-- A modifier

Fichier = Dir()

Loop

End Function

Quelqu'un pourrait-il m'aider pour la modifier afin qu'elle se rende dans chaque mail (Outlook) du dossier Test et prenne les données du fichier excel en pièce jointe ?

Merci d'avance, et bon après-midi !

SkillzZ