Autres Faire une recherche de sous-dossiers Windows (pas de fichiers) dans un dossier précis à partir de son nom contenu dans une cellule

[Michou9]

Bonjour à tous
J'ai un fichier Excel (environ 500 lignes actuellement)
Dans la colonne A sont contenus des noms de sous dossiers
Je souhaiterais pouvoir faire une recherche de ces sous-dossiers Windows dans un dossier précis à partir de ces noms contenus dans les cellules de cette colonne
Les noms de ces sous-dossiers sont assez long
Je suis sous Excel 2007
Je ne sais pas si c'est réalisable ?
Je viens chercher de l'aide
Merci par avance

 

[Michou9]

Bonjour à tous
Bonjour Job75
Merci de ton aide
J'essaye cela en fin de matinée

Je suis en train d'essayer la macro
Elle fonctionne très très bien
J'essai de la reporter avec mon dossier
Et j'ai chemin inconnu
Le nom de mon dossier principal est F:\House\A-85
J'ai donc essayé de modifier "Dossier général" par "House\A-85"
Mais cela ne fonctionne pas

 

[job75]

Ma macro suppose que le Dossier général et le fichier Exemple.xlsm sont dans le même dossier.

Donc si le Dossier général est dans "F:\House\A-85" il faut y placer aussi Exemple.xlsm.

 

[Michou9]

Oui c'est ce j'ai fini par comprendre puisque j'ai vu que tu avais mis chemin = ThisWorkbook.Path & "\"
Comme je souhaite laisser mon fichier avec tous les autres fichiers Excel
j'ai essayé de remplacer chemin = ThisWorkbook.Path & "\" par chemin = "F:\House\"
et "Dossier général" par "A-85"
Mais cela ne fonctionne pas

 

[job75]

Vous n'avez pas dû adapter le code correctement, testez avec le fichier joint.

Il faut bien sûr nommer "A-85" le 1er dossier.

 

[Michou9]

Effectivement j'ai mal dû adapter le code
Avec votre dernier code, c'est Ok

Mais c'est super long!!, Beaucoup trop long, j'ai trop de fichiers

Est-ce qu'il serait possible de ne pas lister les sous-dossiers
une fois lister par exemple le dossier "Dupond machin 500€ 200m"
ne pas lister les sous dossiers qui sont dedans ?

Ou autrement exclure les dossiers comportant un mot comme "Lien" "Photo" par exemple

 

[nullosse]

Mais c'est super long!!, Beaucoup trop long, j'ai trop de fichiers

Salut,
combien de dossiers ?
parce qu' avec l'exemple de job75 , il ne faut que 9 ms chez moi. J' ai une autre méthode mais qui est plus compliquée à mettre en oeuvre et qui est intéressantes qu'en il y a énormément de dossiers :
Résultat typique :

Nombre de dossiers	VBA	Autre méthode
100	5–10 ms	1–3 ms
1 000	20–40 ms	3–5 ms
10 000	150–300 ms	5–15 ms
50 000	1–3 secondes	20–40 ms

Cela dépend aussi des niveaux de sous-dossiers
La récursion descend dans tous les niveaux, donc :

• plus il y a de niveaux,
• plus il y a de sous‑dossiers,
• plus on fait d’appels récursifs.

👉 Ce n’est pas la profondeur en elle‑même qui coûte, mais le volume total de dossiers.

Le vrai goulot d’étranglement : ReDim Preserve

Nullosse