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

Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le Chemi

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion YANN-56
  • Date de début Date de début

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

YANN-56

XLDnaute Barbatruc
Bonjour à tous,

Avant de poser ma question, j'ai un peu fouillé partout.
Soit rien ne convient, ou alors je suis trop nul pour comprendre...

Je sais que dans ma partition "E:" J'ai un dossier portant le nom de "MACHIN"
mais il peut être dans un Sous- dossier d'un Sous-dossier... Et c. Voire le cinquième rang
dans ce répertoire !!!

Il y a là sans doute une manipulation à faire de "Dir (".......")

Je connais la méthode pour dresser la totalité du contenu; mais c'est trop long.

Si c'est la seule façon, il serait sympa de me le dire.

Si avec "Dir" il y a plus rapide et que l'on m'y aide... Merci d'avance.

Yann
 
Trier par date Trier par votes
Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Bonjour Yann

Dans ton cas le mieux (mais c'est quand même un peu long) est de faire un dir des dossiers et sous-dossiers dans un fichier txt. Mais tu peux le faire avant d'aller boire un café ou avant d'aller manger.

Ensuite tu charges ton txt et tu filtres sur le nom recherché.
 
Vote positif 0 Vote négatif
Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Bonjour à Michel,

Je pense que je vais donc retourner à mon:

Code: 
Set RECHERCHE = Application.FileDialog(msoFileDialogFolderPicker)
…….. Et c.

Tant pis si l'utilisateur boude… Mais j'aurai fait des économies! 🙂

S'il a perdu la mémoire, avec une recherche par Wind,
un Bic et un bout de papier, cela devrait marcher. 😀

Merci à toi, et bonne soirée.

Amicalement.

Yann
 
Vote positif 0 Vote négatif
Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Re

Sinon en commande Batch, tu peux tester (l'appeler TreeRep.bat par exemple avec le bloc note):

Code: 
CD\
Tree c:\ > "c:\TreeRep.txt"

Ensuite tu ouvres le txt et tu recherches ton dossier.

ou

l'appeler DirRep.bat par exemple avec le bloc note:

Code: 
CD\
DIR C:\*.* /AD /S> "c:\DirRep.txt"
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Merci beaucoup Michel pour ton aide,

J'apprécie beaucoup que tu aies pris la peine de regarder un peu plus loin.

Cependant, cette utilisation du ".txt" dépasse mes compétences.
(Je ne m'y suis jamais encore aventuré)

Je garde ton idée dans mes archives, car elle m'intéresse aussi.

Pff!!! Encore des heures à apprendre! 🙁

Sympa de ta part. 🙂

Plein de bonnes choses à toi pour ce qu'il reste de cette fin de semaine.

Amicalement.

Yann
 
Vote positif 0 Vote négatif
Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Bonjour

Si tu connais le nom d'un fichier dans le répertoire que tu recherches
Vas faire un tour si ce n'est déjà fait

Ce site n'existe plus
 
Vote positif 0 Vote négatif
Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Bonsoir Banzai, heureux de te croiser à nouveau et que tu me répondes, 🙂

J'ai un peu la tête comme la carène d'une pinasse échouée sur la grève
de la ria d'ETEL, juste' en bas de mon bourg!

J'ai trop de chantiers en cours, et à 60 balais, il est normal que ce qu'il reste
de neurones chauffent un peu! 😛

Je vais débroussailler le terrain et regarder tout cela.

Il y a aussi un fil récent où l'on a échangé, et dont j'aimerais te donner suite.

Amicalement, et à plus tard.

Yann
 
Vote positif 0 Vote négatif
Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Bonsoir à tous,

regarde ceci, explore les disques durs de la machine, possibilé d'étendre à d'autres types de lecteurs, mais attention ca risque d'être un peu long surtout si tu explores les disques d'un réseau....
Code: 
Option Explicit
Dim b As Boolean
Sub RechercheDossier()
Dim fs As Object, d As Object, f As Object
Set fs = CreateObject("Scripting.FileSystemObject")
b = False
For Each d In fs.Drives
    'pour rechercher sur disques fixes et sur disques réseau
    'If d.DriveType = 2 Or d.DriveType = 3 Then
    'pour tester le disque C
    'if d.driveletter ="C" Then
    If d.DriveType = 2 Then
        On Error GoTo fin
        For Each f In d.RootFolder.SubFolders
            If f.Name = "NomDuDossierRecherché" Then MsgBox f.Path: Exit Sub
            RechercheSousDossier f
            If b Then Exit Sub
        Next f
fin:
    End If
Next d
End Sub


Sub RechercheSousDossier(f As Object)
Dim f1 As Object
If b Then Exit Sub
On Error GoTo fin
For Each f1 In f.SubFolders
    If f1.Name = "NomDuDossierRecherché" Then MsgBox f1.Path: b = True
    RechercheSousDossier f1
Next f1
fin:
End Sub

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : Chercher un Dossier dans un répertoire et ses Sous-dossiers, et en récupérer le

Merci Pierrot,

Au passage j'ai lu l'hommage bien mérité qui t'as été fait par les "Grands membres du Club"

Je vais regarder ta proposition.

De mon coté je suis sur une bidouille qui me semble assez rapide et efficace.

L'idée principale est de charger dans une ListView1 la liste des Dossiers avec leur chemin dans un répertoire,
puis par la suite, faite une boucle sur celle-ci pour en extraire les SubFolders dans une ListView2

De la même façon, subdiviser dans une troisième, quatrième... Et ainsi de suite.
Pour l'instant cela est satisfaisant..... (Résultat immédiat!)
Mais je ne suis pas aller plus loin en testant sur une racine.

Le but définitif est, bien entendu, de se passer des ListView suivantes,
quand l'on aura trouvé le Dossier cherché.

Il me reste un souci: Les doublons!!! Dans tel ou tel répertoire.

Je vais continuer, et si la suite me semble acceptable,
je ne manquerai pas de la soumettre à ton avis éclairé.
(Pour l'instant, j'aurais un peu honte de montrer mon balbutiement)

Amicalement.

Yann
 
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

EXCEL : MakeDirP :: Le mkdir -p de linux reconduit en VBA pour la création d'une arborescence de dossier et sous-dossiers
Réponses
4
Affichages
246
oguruma
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
851
Nico2978
T
  • Résolu(e)
XL 2010 Bouton - Supprimer photos JPG dans un dossier et ses sous-dossiers
Réponses
9
Affichages
684
Titi456
T
  • Question Question
XL 2010 Lister un dossier comportant des sous-dossiers
2
Réponses
20
Affichages
3 K
TooFatBoy
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
565
Hasco
A
  • Résolu(e)
Microsoft 365 Récupérer méta données d'un répertoire de music, les classer selon dossier et sous dossier
Réponses
4
Affichages
521
Abdoul aziz
A
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
773
oguruma
  • Question Question
XL 2010 Copie/coller un dossier avec tous ces sous dossiers et fichier vers un autre emplacement
Réponses
2
Affichages
1 K
jeanmi
B
  • Résolu(e)
XL 2019 Sauvegarder une feuille en PDF dans un sous dossier du classeur
Réponses
6
Affichages
5 K
kiki29
P
  • Question Question
XL 2016 Parcourir répertoire racine et ses sous répertoires
Réponses
6
Affichages
3 K
pepeboy
P
P
  • Question Question
XL 2010 Comment copier tous les fichiers d'un répertoire et de ses sous-répertoires vers un dossier unique ?
2
Réponses
22
Affichages
9 K
Staple1600
S
  • Question Question
XL 2013 Recherches d'une valeur dans plusieurs classeurs (contenus dans un dossier et plusieurs dossiers)
Réponses
2
Affichages
889
sam8844
S
  • Question Question
Gmail via CDO, attacher un fichier PDF, des adresses, un objet et un corps bien définit, code de Roland_M.
2 3
Réponses
43
Affichages
6 K
Roland_M
F
  • Question Question
XL 2013 Lister les fichier d'un dossier et de tous les sous dossiers du dossier "parent"
2 3
Réponses
38
Affichages
27 K
MJ13
S
  • Question Question
Récupérer le chemin des fichiers de tous les dossiers et sous dossiers du répertoire
Réponses
5
Affichages
2 K
Scoobidoo
S
M
  • Question Question
récupérer le nom d’un sous-répertoire dans un TextBox
Réponses
2
Affichages
2 K
modus57
M
N
  • Question Question
Adaptation macro pour dossier et sous-dossier
Réponses
3
Affichages
8 K
NewlenExcel77
N
Y
  • Question Question
Zipper un dossier dont le fichier contenant st trouve dans ce répertoire
Réponses
9
Affichages
20 K
Yaloo
Y
T
  • Question Question
Faire un listing des dossiers et sous dossier contenu dans un dossier mère
Réponses
2
Affichages
19 K
Tatan
T
L
  • Question Question
Enregistrer en pdf dans un dossier portant la nom d'une cellule.
Réponses
10
Affichages
4 K
lioneldu47
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…