Access: boite de dialogue selectionner x fichiers Excel et créer une table

Hello

Je vous expose mon sujet:

J'ai 1 fichier excel qui sort chaque semaine: donc au bout d'un mois, j'ai: excel1.xlsx, excel2.xlsx, excel3.xlsx, excel4.xlsx.

--> tous la même structure

Dans un monde idéal, je souhaite: à partir d'une base Access existante, qu'une boite de dialogue s'ouvre, me permettant d'aller sélectionner plusieurs fichiers excel et que ça me créer une table concaténant tous ces fichiers excel !

J'ai le code pour ouvrir ma boite de dialogue et sélectionner mes x fichiers:

Option Compare Database

Sub SelectionFichier01()
  Dim fd As Office.FileDialog

  ' Créer un objet FileDialog
  Set fd = Application.FileDialog(msoFileDialogOpen)

  ' Titre de la boîte de dialogue
  fd.Title = "Sélectionnez un fichier..."

  ' Autoriser la sélection multiple
  fd.AllowMultiSelect = True

  ' Afficher la boîte de dialogue
  If fd.Show() Then
    MsgBox "Vous avez sélectionné le fichier : " _
      & vbCrLf & fd.SelectedItems(1), vbInformation
  End If
  Set fd = Nothing
End Sub

Maintenant:

1- comment je fais pour mettre dans mon MsgBox ci-dessus la liste de tous les fichiers sélectionnés ? actuellement ça ne m'affiche que le dernier.

2- comment concaténer tous ces fichiers dans une même table les uns à la suite des autres ?

merci x 1000 à celui ou celle qui pourra me donner de l'aide !!

Hello,

est ce que cela inspire quelqu'un svp? merci !!

J'ai réussi à afficher tous les fichiers séléctionnés.

Maintenant, est ce que quelqu'un sait comment importer les fichiers sélectionnés via Application.FileDialog(msoFileDialogOpen) dans ma table T_excel svp?

Ce code ci-dessous me permet d'importer le fichier appelé excel2.xlsx dans ma table T_excel. Mais comment remplacer l'objet excel2.xlsx par mes fichiers séléctionnés via Application.FileDialog(msoFileDialogOpen) svp ?

Public Sub ImportFile()

'importe le fichier excel2 dans ma table existante T_excel
    DoCmd.TransferSpreadsheet acImport, _
        acSpreadsheetTypeExcel8, "T_excel", _
        "C:\Users\XXXX\Desktop\excel2.xlsx", True

End Sub