Copier et coller des fichiers d'un répertoire unique vers différents répertoires

[seb53]

Bonjour,

J'ai un petit problème et je crois que seul le vba peut m'aider. Mais je suis novice en vba.

Je souhaite copier coller des fichiers pdf d'un répertoire unique dans plusieurs destinations (connues) diverses.

J'ai un fichier Excel avec un code vba qui permet de recueillir tous les noms de fichiers en ".pdf" d'un répertoire et me les collent dans A1, A2, A3, ... de ma feuille1 d'Excel. Cela fonctionne très bien.

Puis, dans ma feuille Excel, je transforme ces informations et j'en obtiens un chemin (path) en C1, C2, C3, ....

Ce que je n'arrive pas à faire, c'est copier coller tous les fichiers dans ces nouvelles destinations.

Pour infos : j'ai plus de 20000 pdf à "ranger", c'est pour cela que je désires passer par du code au lieu de les classer à la main.

Merci pour votre aide.

 

[Gareth]

Re : Copier et coller des fichiers d'un répertoire unique vers différents répertoires

Bonsoir,

Ci-joint une macro qui crée les dossiers et copie les fichiers.
J'ai utilisé un dossier Dest (pour ne pas en mettre plein mon disque)
Si tu fais les copies en plusieurs fois, il faudra gérer la vérification de l'existance des dossiers et fichiers ...

 

[seb53]

Re : Copier et coller des fichiers d'un répertoire unique vers différents répertoires

Grand merci, Gareth, de t’intéresser à mon cas. Je regarde ce que cela donne.

 

[seb53]

Re : Copier et coller des fichiers d'un répertoire unique vers différents répertoires

Avec quelques adaptations pour mon cas, ça marche super bien.

Merci Gareth, c'est super sympa de ta part. Grâce à toi, je comprend mieux le fonctionnement du Visual Basic et je trouve cela formidable.


Petite question si tu veux bien : comment gérerais-tu la vérification de l'existence des dossiers et fichiers déjà créées ?

Cordialement,

 

[Gareth]

Re : Copier et coller des fichiers d'un répertoire unique vers différents répertoires

Bonsour,

Tu utilises Dir.
Dir("C:\toto.xls") renvoie le nom du fichier s'il existe et rien s'il n'existe pas.
If Dir("C:\toto.xls") = "" then ....

 

[seb53]

Re : Copier et coller des fichiers d'un répertoire unique vers différents répertoires

Merci pour tout Gareth. J'ai adapté ton code à mon problème et ça marche au poil.

Mon problème est résolu