Macro Excel Ouvrir les dossiers ds un repertoire et acceder au fichier y contenu
Fermé
jannot1986
Messages postés
9
Date d'inscription
dimanche 20 janvier 2019
Statut
Membre
Dernière intervention
25 septembre 2019
-
Modifié le 30 avril 2019 à 05:17
michel_m Messages postés 16597 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 29 septembre 2023 - 30 avril 2019 à 10:16
michel_m Messages postés 16597 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 29 septembre 2023 - 30 avril 2019 à 10:16
A voir également:
- Ouvrir un dossier vba
- Ouvrir un fichier rar - Guide
- Mettre un mot de passe sur un dossier - Guide
- Ouvrir un fichier .bin - Guide
- Comment ouvrir un fichier docx ? - Guide
- Ouvrir un fichier .dat - Guide
2 réponses
cs_Le Pivert
Messages postés
7899
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
21 septembre 2023
726
30 avril 2019 à 08:09
30 avril 2019 à 08:09
Bonjour,
voir ceci pour parcourir un dossier ainsi que ses sous-dossiers:
https://grenier.self-access.com/access/fichiers/lister-les-fichiers-dun-dossier-ses-dossiers/
voir ceci pour parcourir un dossier ainsi que ses sous-dossiers:
https://grenier.self-access.com/access/fichiers/lister-les-fichiers-dun-dossier-ses-dossiers/
michel_m
Messages postés
16597
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
29 septembre 2023
3 303
Modifié le 30 avril 2019 à 10:24
Modifié le 30 avril 2019 à 10:24
Bonjour
'ton code ne comporte pas de commentaires et il est ainsi ardu de s'y retrouver pour comprendre et aider
pour lister tes sous dossiers
tu as intér^t à créer une sous macro pour chaque sous dossier
</code>
D'autre part dans ce genre de cas, il existe une technique qui évite d'ouvrir les fichiers pour la rapidité et le confort visuel avec la technologie ADO
mais guère de temps aujourd'hui pour t'aider et pour comprendre ton code
'ton code ne comporte pas de commentaires et il est ainsi ardu de s'y retrouver pour comprendre et aider
pour lister tes sous dossiers
tu as intér^t à créer une sous macro pour chaque sous dossier
Option Explicit
'-------------------------------------------------------------------
'd'après code de Fred Sigonneau
Sub TousLesDossiers(LeDossier)
Dim fso As Object, Dossier As Object
Dim sousRep As Object, Flder As Object, Liste As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(LeDossier)
'examen du dossier courant
For Each Flder In Dossier.subfolders
chemin = Flder.Path
'lancer une sous macro qui reprend l'examen de chaque sous dossier
Call transferer(chemin)
Next
Set fso = Nothing
End Sub
'-------------------------------------------------------------------------
Sub test()
TousLesDossiers "C:\Users\JANNOT\Desktop\DONNEES ADAMAOUA"
End Sub
</code>
D'autre part dans ce genre de cas, il existe une technique qui évite d'ouvrir les fichiers pour la rapidité et le confort visuel avec la technologie ADO
mais guère de temps aujourd'hui pour t'aider et pour comprendre ton code