'--- Préparer la boîte de dialogue Ouvrir
Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.Title = "Choisissez un classeur"
fd.InitialFileName = "*.xls"
fd.AllowMultiSelect = True
'--- Personnaliser la liste déroulante Type de fichier
fd.Filters.Clear
fd.Filters.Add "Fichiers Excel", "*.xls"
fd.Filters.Add "Tous les fichiers", "*.*"
fd.FilterIndex = 1
'--- Ouvrir la boîte de dialogue
If fd.Show = 0 Then
'--- L'action a été annulée
Set fd = Nothing
Exit Sub
End If
'--- Ouverture de l'application
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlw = xlApp.ActiveWorkbook '--- Récupération du classeur par défaut
'--- Ouvrir chaque document sélectionné et le traiter
For Each varFichier In fd.SelectedItems
xlApp.Workbooks.Open (varFichier)
[COLOR="Red"]Traitement pour modifier les titres R1, AC1, AD1, AE1, AF1 [/COLOR]
'--- Passer à la partie Importation Feuille
DoCmd.TransferSpreadsheet acImport, _
acSpreadsheetTypeExcel9, "tbl Adhérents", varFichier, True, strFeuille & "!A1:AD20000"