Discussion :

[a.faurie]

Bonjour à tous,

voici mon problème :
j'ai un répertoire avec une multitude de sous-dossier qui on eux aussi une multitude de dossier...
dans un feuille Excel j'ai une liste de début de nom de fichier 123456-001*, 123456-002*, 123456-010*...
je ne connais ni le nom complet des fichiers, ni le type de fichier, ni nombre de sous répertoire, et encore moins le nombre de fichier.

je souhaite pourvoir copie/coller tous ces fichier dans un unique dossier !

difficulté supplémentaire il faut exclure tous les dossier qui s’appelle "OLD" ou "INDICE"

merci pour votre aide.

[casefayere]

Bonjour,

es-tu sur que ta question concerne ce forum ? si c'est pour copier les noms des dossiers et sous-dossiers dans une feuille Excel, je dirais "oui", si c'est pour déplacer tes dossiers et sous-dossiers, je dirais "non".

[EngueEngue]

Code :

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

1
2
Set fso = CreateObject("Scripting.FileSystemObject")
FSO.copyfolder source:=depuis, destination:=jusqua

combiné avec

Code :

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

1
2
3
4
5
FNames = Dir(depuis & FileExt)
    If Len(FNames) = 0 Then
        MsgBox "pas de fichiers " & depuis
        Exit Sub
    End If

[PMO2017]

Bonjour,

Pour commencer, il faudrait obtenir l'arborescence de votre répertoire racine afin de voir quels fichiers vous intéressent.
Si cela peut vous aider, j'ai développé, il y a longtemps, un outil qui utilise la commande tree du DOS et qui inscrit cette arborescence dans une feuille Excel.
Je joins le classeur exemple.

[a.faurie]

Bonjour,
merci pour vos réponses.
concernant le forum je ne sais pas si c'est le bon, je veux déplacer regrouper des fichiers.
je pense qu'avec les trois ligne de code je vais pouvoir essayé bidouiller un truc !
pour le classeur merci aussi je vais voir ce que je peux en faire, mais j'aime pas trop utiliser le DOS car je ne connais pas bien ce que c'est et comment ça marche...
je n'ai malheureusement pas le temps de m'y pencher dessus tout de suite en tout cas merci pour vos réponses.

[a.faurie]

j'ai finalement trouver le moyen de bidouiller un truc avec

Code :

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

  fso.CopyFile Src & Fichsrc, chemin_enregistrement & "\" & Fichier & extension