Erreur 1004 avec macro pour ouvrir fichier excel.

Bonjour,

Je rencontre un soucis avec une macro que j'ai trouvé et modifié afin qu'elle corresponde à mes besoins. Le plus étonnant, c'est que la modification a été un succès, elle a fonctionné.

Sauf que non, elle a fonctionné une fois et après quand je l'exécute à nouveau, j'ai une erreur 1004: fichier introuvable. vérifier l'orthographe du nom du classeur et la validité de l'emplacement.

Si une âme charitable veut bien me donner l'astuce, et m'expliquer le pourquoi du comment ça marche et après ça ne marche plus...

je vous copie-colle la partie incriminée.

ChDir "D:\123\ab"
    ClasseurRegional = Dir("D:\123\ab\*.xls")
    While Len(ClasseurRegional) > 0
        Workbooks.Open ClasseurRegional [[[<=== c'est là que ça ne va pas.]]]
        Range("A4:R4").Copy
        Workbooks("alpha.xlsm").Activate
        DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1
        Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
        ActiveSheet.Paste
        Workbooks(ClasseurRegional).Close
        ClasseurRegional = Dir
    Wend

Merci pour votre retour.

Amicalement,

S