Discussion :

[battit64]

Bonjour dans un classeur excel j'ai mes cellules A1....A400 qui m'indique un nom de dossier à rechercher dans un repertoire composé de sous repertoire....
il faut que je recherche pour chaque cellule le path complet du dossier recherché et le copier dans un repertoire (par exmple c:\toto\)
comment faire ça automatiquement

[did103]

Il y a plusieurs questions en une, non?

le path complet

Code :

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

path = Dir(Sheets("feuille").Range("A" & i).Value, vbDirectory)

copier dans un repertoire

Je pense que tu veux les copier dans un FICHIER de type texte?
Il faut faire une ouverture du fichier désiré:

Code :

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

Open "C:\toto\fichier.txt" For Output As #1 Len = 1000

écrire dans le fichier

Code :

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

Print #1, path

et fermer ton fichier

Code :

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

Close #1

Si c'est créer les répertoires, c'est encore + simple:

Code :

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

MkDir path

[ucfoutu]

Bonjour, did103

inutile d'ouvrir un fichier par Open si ce n'est que pour le copier ! (l'instruction FileCopy fait celà ...)

@ batti64 ==>> ce que tu cherches à faire, apparemment, c'est la copie complète d'un répertoire vers un autre
Une petite recherche sur ce forum te conduira à de nombreux exemples utilisant la récursivité).

[battit64]

dsl mais met explication n'était pas terrible.en fait je veux recupéré ma cellule A1...A2,A3....ça encore c'est simple qui correspond à un nom de dossier.
avec ce nom je veux faire une recherhce de ce dossier dans un repertoire c:\ par exemple.dés que j'ai trouvé ce repertoire (si il exsite) j'enregistre le path du repertoire trouvé (exemple c:\toto\toto2\tot5\nom_reprtoire_cherché pour le copier ailleurs.

pour etre plus^precis A1...recherche....si trouvé....copie dossier vers autre dossier; A2....reherche...etc...etc