Erreur 1004, fichier.xls introuvable

Bonjour,

Je souhaite regrouper dans un même fichier Excel le contenu d'une vingtaine d'autres fichiers Excel. Ceux-ci ont tous la même forme, c'est pourquoi je souhaiterai dans un fichier récapitulatif regrouper tous mes tableaux les uns à la suite des autres.

Seulement, toujours la même erreur : "Erreur 1004 : fichier untel.xls introuvable, vérifiriez l'orthographe... ". Malgré mes recherches sur de nombreux forums, je n'arrive pas à la résoudre, et j'ai besoin du fichier récapitulatif au plus vite.

C'est pourquoi je sollicite votre aide !

Je vous montre mon programme, car je pense qu'il s'agit bien d'une erreur de programmation puisque le fichier introuvable et bel et bien au bon endroit, rangé avec les autres....

Sub CreationSynthese()
 Dim Wk As Workbook
 Dim Ws
 
    ' Parcours de tous les fichiers
    ' -----------------------------
    ChDir "I:\Volumes de données" 'Chemin d'accès au répértoire
    LesFichiers = Dir("I:\Volumes de données\*.xls") 'Récupère le premier fichier
    While Len(LesFichiers) > 0 'Tant que le nom du ficher a plus de 0 caractères
        Workbooks.Open LesFichiers
        Set Wk = Workbooks.Open(LesFichiers)
        For Each Ws In Wk.Worksheets
            AvantDerniereLigne = ActiveSheet.UsedRange.Rows.Count
            Range("A15:W" & AvantDerniereLigne).Copy
            Workbooks("Récapitulaif.xlsm").Activate 'Activation du fichier récap
            DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1
            Range("A" & DebutNomFichier).Select
            ActiveSheet.Paste
            Workbooks(LesFichiers).Close
            LesFichiers = Dir 'Passage au fichier suivant
        Next Ws
    Wend
    
End Sub

Je vous remercie de votre aide.

Crysta