XL 2016 déplacer fichiers vers un autre répertoire

[pepeboy]

Bonjour,
je cherche à construire une macro qui récupère plusieurs fichiers disséminés dans plusieurs sous répertoires et les copie/colle vers un même répertoire de destination.
J'ai déjà réalisé la macro qui écrit la liste des fichiers avec chemin + nom + extension dans une cellule ; la liste est en ligne dans un onglet du fichier source. Actuellement ça me donne une cinquantaine de lignes.
Merci de votre aide.

 

[Paf]

bonjour,

Sans la macro existante...
Peut-être une direction à étudier : la fonction Name ... As ...

FSource = "C:\Test\MonFichier.txt"
FDestin = "C:\Regroupement\MonFichier.txt"

Name FSource As FDestin