Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Copier un fichiers txt qui ont le même nom de plusieurs sous-dossiers vers un dossier

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
H

hamzaelhathout

XLDnaute Nouveau
Bonjour,

J'ai un dossier qui contiens plusieurs sous-dossier pour chaque journée qui ont pour nom "aaaa-mm-jj".
Dans ces sous-dossier, il y a un rapport au format txt qui a toujours le même nom "XXXXX.txt"

Je voudrais créer une macro qui aille chercher ce fichier txt dans chaque sous dossier et me le copie avec comme nom, celui du sous dossier dans lequel il se trouve (donc aaaa-mm-jj.txt) vers un dossier "destination".

J'ai cherché dans le forum mais je n'ai pas trouvé exactement ça.

Merci d'avance.
 
Solution
H
Super merci.

J'ai adapté pour le nom du fichier exact.

VB: 
Option Explicit

Sub Test()
    Call FichiersSousRépertoires("C:\Users\Youssef\Documents\fansub\testmacro\")
End Sub

'---------------------------------------------
'Fichiers des sous-répertoires d'un répertoire
'---------------------------------------------
Sub FichiersSousRépertoires(NomRépertoire As String)
    Dim oFSO As Object
    Dim oDir As Object
    Dim oSubDir As Object
    Dim oFile As Object

    'File System Object
    Set oFSO = CreateObject("Scripting.FileSystemObject")

    'Directory Object
    Set oDir = oFSO.GetFolder(NomRépertoire)

    'Parcours des sous-répertoires du répertoire
    For Each oSubDir In oDir.SubFolders
        'Parcours des fichiers du...
Trier par date Trier par votes
re
liste des erreur sur C
moyen de controle
VB: 
'On ne traite pas les répertoire ne contenant pas de fichiers avec extension
    If Len(Extension) = 0 Then
        TakeIt = True
    Else
        On Error Resume Next
        If Len(Dir(oDir.Path & "\" & Extension)) > 0 Then TakeIt = True Else TakeIt = False
   If Err.Number > 0 Then Feuil2.Cells(Rows.Count, 1).End(xlUp).Offset(1) = "err: " & Err.Number & "dans la condition len(extention) pour " & oDir.Path: TakeIt = False
    Err.Clear
    End If
 
Vote positif 0 Vote négatif
VB: 
'On ne traite pas les répertoire ne contenant pas de fichiers avec extension
    If Len(Extension) = 0 Then
        TakeIt = True
    Else
        On Error Resume Next
        If Len(Dir(oDir.Path & "\" & Extension)) > 0 Then TakeIt = True Else TakeIt = False
   If Err.Number > 0 Then TakeIt = False
    Err.Clear
    End If

mais attention c'est la ou le bas blesse dans ce genre de code
c'est que le fichier avec le dir ->extension en erreur oui mais les sous dossiers sont aussi zappé alors que c'est peut être simplement un fichier a la racine du dossier qui est interdit
je le sais par ce que j'avais corrigé cette méprise dans ma fonction dir sur DVP


pour faire plaisir a @Dudu2


 
Dernière édition:
Vote positif 0 Vote négatif
juste pour info
avec dir bath 14 secondes pour 235 213 fichiers
et j'ai pas le processeur qui rougi 🤣 🤣 🙂
je dis ça moi je dis rien

on a bien bossé
perso FSO comme on l'a mené c'est bien pour un disque de 10000 fichier au delà c'est pas pro
l'exercice n'est pas moins intéressant personne ne l'avait fait jusqu’à maintenant
bravo et merci a tous
 
Vote positif 0 Vote négatif
D'où l'utilité d'analyser les erreurs quand elles ne relèvent pas de situations identifiées.

Cette fonction Dir() introduit des erreurs #52 (Nom de fichier ou numéro incorrect) sur des répertoires FSO que je ne peux pas expliquer.
Par exemple j'ai un répertoire H:\TEMP parfaitement légitime et contenant des fichiers tous autorisés qui sort en erreur #52 dès qu'un Dir() est exécuté par le code (avant ? après ?).

Donc je ne vois qu'une solution: NE PAS appeler la fonctions Dir() dans cette fonction FSO.
Je l'ai retirée. Et tanpis pour le temps "perdu" en recherche de fichiers avec extension, l'essentiel étant d'avoir un résultat correct.

J'ai laissé le Dir() en commentaire dans le code. Pour ceux qui veulent vérifier que ça fout le bazar.
Les Post #194 et Post #72 ont été pour la nième fois mis à jour pour refléter cette modification.
 
Vote positif 0 Vote négatif
re
j'ai testé
mis un dossier TEMP dans H
supprimer les autorisation system donc grant administrator et propriétaire
ben pas de soucis

beaucoup font cette erreur en devenant propriétaire avec contrôle total pensent qu'il sont les seul hors un dossier est d'office autorisé à l'entité system et donc le contrôle total grant administrator est caduque dans dans le cadre d'une tierce App qui tenterait d'accéder a ce dossier comme dans le cas présent avec FSO
 
Vote positif 0 Vote négatif
Je ne sais rien des conditions qui génèrent ce problème. Mais pour le reproduire, je suppose que tu peux essayer sur un plus gros répertoire ou disque. Tu devrais tomber tôt ou tard sur cette erreur, et même à plusieurs reprises dans 1 seul exécution. Le MsgBox donnera le nom des répertoires en erreur #52.

Puis tu ré-exécutes la même recherche en masquant l'instruction Dir() et tu constateras qu'il n'y a plus d'erreur #52.
 
Vote positif 0 Vote négatif
erreur 52 c'est accès non autorisé ça veux dire que selon les app tiers tu ne pourra pas y accéder
la raison je te l'ai donné
en l’occurrence ici dir ne peux y accéder
bien sur il y a le dir (chemin ,VB critères) qui peux faire le laron(a tester)
après sincèrement je le redis lister C avec FSO c'est ridicule même si nous sommes arrivés a des vitesses plus que correctes (justement grâce à dir)
il y a aussi par exemple le temp de windows qui peux jouer des tours justement parce qu'il est occupé a encaisser ou lu par autre app
bref C a bien trop de contraintes; perso j'utilise le bath 14 secondes pour lister le disque sur la feuille
si je collectionne juste les fichiers recherchés je tombe a 6 secondes(même moyennant le tour de passe avec replace)

après entendons nous bien, le but est de rechercher des fichiers ;dans les boucles si on collectionne les fichier a garder et seulement eux, la durée diminue considérablement(avec quelque méthode que ce soit)

aussi !!! dans windows tu a des raccourcis chemins relatif avec le même nom par exemple mes documents ,mes images ma musique etc.... qui ne sont même pas accessibles par la boite de dialogue et c'est ce dir choppe justement

d'ou mon conseil plus haut d'utiliser les vbconstantes vbdirectory+vbsystem+....' la totale ...
quand tu les choppe et que tu fait un dir dessus ; ben un dir( chemin &"\*.*") sur un raccourci va planter forcement 🙂
par contre un dir(chemin,vbdirectory or vbsystem or vbhidden,or vbnormal etc....) pourrait passer sauf protégé bien sur comme les dossiers cruciaux de windows
exemple


Voilà 🙂
 
Vote positif 0 Vote négatif
Je n'arrive plus à la reproduire là où elle se produisait avant (sur H:\) mais je la reproduis sur "F:\".
Comme je l'ai dit puis effacé, l'erreur #52 n'a rien à voir avec "Accès non autorisé".
La preuve...



De plus, je suis tombé aussi sur une erreur #53, qui n'a rien à voir non plus avec des droits d'accès.
J'ai vérifié et le répertoire existe bel et bien.

Ces erreurs qui se produisent sur l'object Folder oSubDir sur l'instruction de la boucle For Each oSubDir In oDir.subfolders ne se produisent pas si la fonction Dir() n'est pas appelée en amont dans le code.
Si c'était un simple problème de droits d'accès, l'erreur se produirait indépendamment de Dir().

Donc, je confirme que Dir() dans le code génère des altérations dans l'environnement FSO et qu'il faut donc ne pas l'utiliser.
 

Pièces jointes

  • 1612860540707.gif
    219.1 KB · Affichages: 6
Dernière édition:
Vote positif 0 Vote négatif
re:
j'ai donc ré essayé le code du #194
alors effectivement il n'y a plus d'erreur sur C
mais avant je trouvais 7477 fichier"...txt" je n'en trouve plus 4450
et le temps a pratiquement tripler de 85 S environ je passe à 233 S

je le redis FSO a éviter sur C
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Power Query [Resolu] Importer plusieurs fichiers excel provenant de dossiers différents sur sharepoint
Réponses
6
Affichages
2 K
Staple1600
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
288
JJ69
J
T
  • Question Question
XL 2010 VAB - Copier les fichiers manquants d'un dossier et de ses sous-dossiers
Réponses
2
Affichages
436
Titi456
T
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
256
PHIL37
P
F
  • Question Question
XL 2016 copier des fichiers dans des sous dossiers a partir de case a cocher sous excel
2
Réponses
17
Affichages
1 K
Felipe54
F
T
  • Résolu(e)
XL 2010 Bouton - Supprimer photos JPG dans un dossier et ses sous-dossiers
Réponses
9
Affichages
678
Titi456
T
E
  • Question Question
XL 2019 lister les classeurs dans un dossier et sous dossiers et cherche mots clés dans chaque feuille
Réponses
1
Affichages
564
Hasco
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
419
zendb
Z
F
  • Question Question
Microsoft 365 Copier un dossier et son contenu puis y enregistrer un classeur. Renommer chaque élément selon des valeurs de cellules
Réponses
1
Affichages
773
Zon
Z
  • Résolu(e)
XL 2016 Importer les données de plusieurs fichiers Excel portant le même nom dans un nouveau fichier
2 3
Réponses
31
Affichages
3 K
job75
Windows 10 : Plusieurs dossiers (avec tout leur contenu) disparaissent de mon disque "C"
2
Réponses
22
Affichages
2 K
Usine à gaz
C
  • Question Question
Microsoft 365 Copier des données d'un fichier excel sur un fichier word
Réponses
0
Affichages
982
ChristianJ
C
L
  • Question Question
Microsoft 365 Comparer le texte de deux colonnes (plusieurs mots/cellule) pour trouver 1 mot en commun
2 3
Réponses
37
Affichages
4 K
Staple1600
  • Question Question
XL 2016 parcours et traitement de plusieurs fichiers d'un même dossier selon critère
Réponses
1
Affichages
675
sousou
POWERQUERY :: Combiner un dossier Excel comportant des fichiers avec des onglets (tableaux structurés) de même structure
Réponses
2
Affichages
594
oguruma
A
  • Question Question
Microsoft 365 VBA: importer dans un dossier avec un nom variable
Réponses
4
Affichages
977
A-F
A
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
771
oguruma
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
1 K
macseb
M
W
  • Question Question
XL 2019 Peupler une listbox à partir de plusieurs feuilles ayant un nom spécifique.
Réponses
7
Affichages
1 K
WG95
W
  • Question Question
XL 2010 création de dossiers et sous-dossiers selon données a préciser par msgbox
Réponses
5
Affichages
922
sebbbbb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…