Ouvrir / copier et fermer un dossier

Bonjour,

Je dois automatisé un excel mais je ne suis pas très bon là dedans...
Voici mon problème : Je dois copier un fichier pour le coller sur d'autres fichiers!

Le problème est que je ne peux pas pointer ces fichiers car l'entreprise veut que si ils rajoutent un fichier il soit directement mis à jour.

En effet, j'ai réussi à ouvrir l'intégralité du dossier qui contient les différents fichiers, mais je n'arrive pas à copier coller le fichier et ensuite a fermer ce dossier.

Avec la fonction close() j'arrive à fermer fenêtre par fenêtre mais j'aimerais pouvoir fermer directement le dossier qui ferment toutes les fenêtres d'un coup

Je ne sais pas si ce que je dis est très claire, j'espère mettre fais comprendre, merci d'avance pour vos réponses.

Voici mon code.

Bonjour,

Le dossier n'est pas ouvert, seuls les fichiers le sont en principe.

Pouvez-vous essayer avec cette partie modifiée :

dim wsDest as worksheet
set wsDest = thisworkbook.sheets(1) 'feuille destination (feuille 1 classeur exécutant)
do while xfile <> ""
    with workbooks.open(xstrpath & "\" & xfile)
        nvl = wsDest.cells(wsDest.rows.count, 1).end(xlup).row + 1 'nouvelle ligne destination (dernière vide + 1)
        .sheets(1).usedrange.copy wsDest.cells(nvl, 1)
        .close true
    end with
    xfile = dir
loop

Il s'agit d'un essai car je ne suis pas certain d'avoir compris ce que vous cherchez à faire...

Cdlt,