Traitement consécutif de fichiers excel

Bonjour,

Je reçois régulièrement des fichiers XLS générés à partir d'un outil de ticketing et je suis de m'apercevoir que certaines colonnes du fichier ne sont pas pris en compte lors de l'importation dans ma base Access (problème de format ?).
Comme parade, j'ouvre le fichier et le sauvegarde sous un autre nom en utilisant Excel. Je récupère alors bien toutes mes colonnes.

Mon objectif maintenant est d'écrire une procédure de reprise pour convertir et réintégrer tous mes fichiers.

Option Explicit

Sub ReprendreDesFichiers()

Dim Fich    As String
Dim Chemin  As String
'
'  Liste des fichiers du répertoires
'
Chemin = "D:"
Fich = Dir(Chemin & "*.xls")

Do While Fich <> ""
    Call fichier_xls(Chemin, Fich)
    Fich = Dir()
Loop

End Sub

Sub fichier_xls(Chemin, nom_fichier)

Dim xlApp As Variant, xlBook As Variant, xlSheet As Variant
Dim fic_out As String

Dim strSource As String
Dim strSql          As String
Dim dbBdeD          As Database

strSource = "D:\u_formulaire.xls"
'
' ouvrir le fichier Excel
'
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(Chemin & nom_fichier)
    
    Set xlSheet = xlBook.Worksheets(1)
'    xlApp.Visible = True
'
' sauvegarde du fichier
'
    xlBook.SaveAs (strSource)
'
' fermeture du fichier
'
    xlBook.Close
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
    
    ' Chargement des formulaires

    If Dir(strSource) = "" Then
        MsgBox "Le fichier " & strSource & " n'existe pas"
    Else
        Set dbBdeD = CurrentDb
        strSql = "DROP TABLE Formulaire_tmp;"
        dbBdeD.Execute strSql, dbFailOnError
    
        DoCmd.RunSavedImportExport ("Importation-formulaire")
        Call xx_Chargement_formulaire.Chargement_formulaire
        Kill (strSource)
    End If

End Sub

Mon problème lors de l'exécution de la procédure est qu'il semble que je perde mon pointeur sur la commande DIR. Je m'explique :
- le 1er fichier de ma liste est correctement traité
- lorsque pas la commande DIR(), il ne trouve pas de second fichier (alors que la commande DIR en retourne une vingtaine ...)

Pour avancer dans mon analyse, j'ai replacé dans ma procédure principale, la fonction CALL par la fonction MSGBOX, et là, tout fonctionne, la commande msgbox me défile bien tous mes fichiers.

Conclusion :est ce l'appel à excel qui me fait perdre mon pointeur ? avez-vous d'autres suggestions ?

Merci d'avance pour votre aide