Bonjour,

le problème est classique et on a déjà présenté diverses solutions.
mais, avec celle des FAQ "Comment lister les fichiers contenus dans un répertoire ainsi que dans tous ses sous-répertoires ?", le programme saute certains fichiers, même si je fais la recherche en ciblant uniquement le sous-répertoire concerné.
par contre, le programme suivant, plus simple, donne la liste complète. Mais il ne gère pas l'arborescence des répertoires.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Sub test()
Dim Dossier As String, Fichier As String, i As Integer
 
Dossier = "Q:\mon dossier musique\"
 
i = 0
 
Fichier = Dir(Dossier)
 
Do While Fichier <> ""
 
  i = i + 1
 
  Sheets("Sheet1").Range("A" & i) = Fichier
 
  Fichier = Dir
 
Loop
End Sub
 
Option Explicit
Je ne vois pas d'explication à ce saut de certains fichiers. Voici le contenu du répertoire:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
01 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 1st Nocturne- In monte Oliveti.flac
02 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 1st Nocturne- Tristis est anima mea.flac
03 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 1st Nocturne- Ecce vidimus eum.flac
04 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 2nd Nocturne- Amicus meus osculi.flac
05 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 2nd Nocturne- Judas mercator pessimus.flac
06 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 2nd Nocturne- Unus ex discippulis meis.flac
07 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 3rd Nocturne- Eram quasi agnus innocens.flac
08 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 3rd Nocturne- Una hora non potuistis.flac
09 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Maundy Thursday - Responsory, 3rd Nocturne- Seniores populi consilium.flac
10 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 1st Nocturne- Omnes amici mei.flac
11 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 1st Nocturne- Velum templi scissum est.flac
12 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 1st Nocturne- Vinea mea electa, ego te plantavi.flac
13 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 2nd Nocturne- Tanquam ad latronem.flac
14 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 2nd Nocturne- Tenebrae factae sunt.flac
15 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 2nd Nocturne- Animam meam dilectam.flac
16 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 3rd Nocturne- Tradiderunt me.flac
17 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 3rd Nocturne- Jesum tradidit impius.flac
18 Responsoria et alia ad Officium Hebdomadae Sanctae spectantia- Tenebrae Responsories for Good Friday - Responsory, 3rd Nocturne- Caligaverunt oculi mei.flac
le programme saute les n° 02, du n° 05 au n° 9 et le n° 12.

La longueur des noms serait-elle en cause ?

merci déjà pour vos idées

Luc