Macro Excel Ouvrir les dossiers ds un repertoire et acceder au fichier y contenu
Fermé
jannot1986
michel_m
- Messages postés
- 9
- Date d'inscription
- dimanche 20 janvier 2019
- Statut
- Membre
- Dernière intervention
- 25 septembre 2019
michel_m
- Messages postés
- 16574
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 3 août 2022
A voir également:
- Ouvrir un dossier vba
- Macro excel ouvrir un fichier - Meilleures réponses
- Macro vba ouvrir un fichier excel - Meilleures réponses
- Comment ouvrir un dossier avec VBA ✓ - Forum - VB / VBA
- Macro Excel Ouvrir les dossiers ds un repertoire et acceder au fichier y contenu - Forum - Excel
- Ouvrir fichiers spécifiques d'un dossier vba ✓ - Forum - VB / VBA
- Ouvrir un dossier rar - Guide
- Windows ne peut pas ouvrir le dossier compressé ✓ - Forum - Logiciels
2 réponses
cs_Le Pivert
30 avril 2019 à 08:09
- Messages postés
- 7801
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 9 août 2022
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
Modifié le 30 avril 2019 à 10:24
- Messages postés
- 16574
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 3 août 2022
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