Discussion :

[Nerendal]

Bonjour
Je travaille sous Excel 2010 sous Windows 2010 Entreprise
Je cherche une macro vba qui me permettrait d'extraire (copier ou déplacer au choix), tous les fichiers d'un répertoire et de ses sous-répertoire, vers un répertoire unique (nommé par exemple : extract).
Je pense que ceci doit être très facile pour certains mais je débute en vba et je ne sais que copier du code existant et le modifier, selon mes modestes connaissances.

Pour plus de détails, j'ai un répertoire COMPIL, composé de sous-répertoires (A, B, C, D...) qui contiennent chacun un ou plusieurs fichiers (voire sous-répertoires et fichiers également). Je voudrais par une manip simple (une macro vba), copier (ou déplacer) tous les fichiers de tous les sous-répertoires vers un répertoire unique nommé "extract" pour pouvoir ensuite les ouvrir et travailler dessus sans être obligé de scruter l'ensemble des répertoires de COMPIL.
Merci par avance pour votre aide
Cordialement
Pascal

[Jean-Philippe André]

Bonjour

sur quelle partie du processus rencontres-tu des soucis exactement ?
- le parcours et la récupération des fichiers contenant dans un répertoire ?
https://excel.developpez.com/faq/?pa...BoucleFichiers
- la copie des fichiers d'un dossier à l'autre ?
https://excel.developpez.com/faq/?pa...rsDir#FileCopy

Il est toujours plus efficace de chercher dans la

[Nerendal]

Bonjour

sur quelle partie du processus rencontres-tu des soucis exactement ?
- le parcours et la récupération des fichiers contenant dans un répertoire ?
https://excel.developpez.com/faq/?pa...BoucleFichiers
- la copie des fichiers d'un dossier à l'autre ?
https://excel.developpez.com/faq/?pa...rsDir#FileCopy

Il est toujours plus efficace de chercher dans la

Bonjour
Je pensais avoir été clair dans ma demande mais ce n'est visiblement pas le cas.
Les deux liens que tu me fournis ne répondent ni l'un ni l'autre à ma problématique et j'ai déjà parcouru la FAQ de plusieurs sites sans succès et c'est pourquoi je poste ma requête ici, en espérant qu'une âme charitable et bien plus compétente que moi puisse y répondre.
Il s'agit de scruter un répertoire (COMPIL), lequel contient des sous-répertoires (770 exactement), lesquels contiennent : soit des sous-répertoires également dans lesquels se trouvent des fichiers, soit des fichiers sans sous-répertoire.
Je souhaite rapatrier l'ensemble des fichiers, dans un répertoire unique (extract) et pas en faire une liste à la Prévert au format texte, ou dans un formulaire, mais bien les copier tous afin de pouvoir ensuite les traiter sous Excel.
J'espère que c'est plus clair.
Merci encore.
Cordialement
Pascal

[Jean-Philippe André]

Certes, mais les membres du forum ne te fourniront pas de code à la demande

L'idée ici est que tu me dises en quoi ma première réponse ne t'apporte pas satisfaction ?

Dans la même page, tu as de quoi lister les fichiers y compris dans les sous-répertoires :
https://excel.developpez.com/faq/?pa...riptingRuntime

Je peux t'apprendre à pêcher, mais ne compte pas sur moi pour pêcher à ta place

[Nerendal]

Certes, mais les membres du forum ne te fourniront pas de code à la demande

L'idée ici est que tu me dises en quoi ma première réponse ne t'apporte pas satisfaction ?

Dans la même page, tu as de quoi lister les fichiers y compris dans les sous-répertoires :
https://excel.developpez.com/faq/?pa...riptingRuntime

Je peux t'apprendre à pêcher, mais ne compte pas sur moi pour pêcher à ta place

Merci pour ta réponse Jean-Philippe mais la macro que tu m'indiques ne copie pas les fichiers de tous les répertoires et sous-répertoires mais les liste dans des liens hypertextes (sauf si je n'ai pas compris ce qui s'affichait à l'exécution). C'st donc inutilisable pour moi...

[Nerendal]

Certes, mais les membres du forum ne te fourniront pas de code à la demande

L'idée ici est que tu me dises en quoi ma première réponse ne t'apporte pas satisfaction ?

Dans la même page, tu as de quoi lister les fichiers y compris dans les sous-répertoires :
https://excel.developpez.com/faq/?pa...riptingRuntime

Je peux t'apprendre à pêcher, mais ne compte pas sur moi pour pêcher à ta place

Ceci dit, c'est déjà un plus de pouvoir les lister tous y compris ceux des sous-répertoires !
Il ne me reste plus qu'à trouver le moyen de copier les fichiers indiqués dans les liens hypertextes vers mon répertoire "extract"
Et là, je sèche...

[Jean-Philippe André]

Hum, le lien est pourtant logique ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
'boucle sur chaque fichier (code issu du premier lien FAQ)
'cheminFichier contient ton chemin de départ
'destination contient le dossier cible
'fichier contient le fichier et son extension
 'code issu du second lien FAQ
    FileCopy cheminFichier, destination & fichier

[pcone]

Hum, le lien est pourtant logique ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
'boucle sur chaque fichier (code issu du premier lien FAQ)
'cheminFichier contient ton chemin de départ
'destination contient le dossier cible
'fichier contient le fichier et son extension
 'code issu du second lien FAQ
    FileCopy cheminFichier, destination & fichier

Bonjour
Sauf erreur de ma part, le lien si logique ne permet pas de copier les fichiers listés par des liens hypertextes mais seulement d'un répertoire à un autre.
Je ne sais plus comment expliquer mon problème pour qu'il soit enfin résolu et reçoive des réponses cohérentes.
Comme quoi, on peut être excellent en vba et nul en compréhension

[Jean-Philippe André]

Bonjour,

le plaisir est pour moi

Si tu nous donnais un exemple concret du avant / après, car tu viens tout juste d'ajouter un mot clé qui ne me semble pas avoir été écrit jusqu'à présent : hyperliens...

Ce que l’on conçoit bien s’énonce clairement
Nicolas Boileau

[pcone]

Bonjour,

le plaisir est pour moi

Si tu nous donnais un exemple concret du avant / après, car tu viens tout juste d'ajouter un mot clé qui ne me semble pas avoir été écrit jusqu'à présent : hyperliens...

Hypertexte (et non hyperlien) a été écrit dans la post du 06/06... en réponse à ton message qui m'oriente vers une instruction qui établit une liste à la Prévert en liens hypertextes des fichiers contenus dans un répertoire…
Il suffit de regarder l'historique.
Par ailleurs, je viens de trouver la réponse à mon problème sur un autre forum (en moins de 10 mn)…
Ce fil est donc clos
Merci quand même
Cordialement