Chemin d'accès à plusieurs sous-dossiers

[Fréd]

Bonjour le Forum, et Bonne Année !

J'ai besoin d'ouvrir les classeurs de plusieurs sous-dossiers. Comment faire ?

Voici comment je récupérais les noms des classeurs du dossier "ce" de mon dossier actif :
CheminClasseur = Application.ActiveWorkbook.Path & "\ce"

Je dois maintenant récupérer Ce ET d'autres dossiers Ce situés dans des sous dossiers du dossier actif ?

Merci d'avance à tous
Fréd

 

[vinc26]

slt
moi je creer deux constante
Const chemin As String = "T:\Classeur\"
Const rech_fich_code As String = "Code_*.xls" ' pour la recherche

'Paramètrage de la recherche
With Application.FileSearch
.NewSearch
.LookIn = chemin
.SearchSubFolders = False
.Filename = rech_fich_code_planning
End With
' recherche du nombre de fichiers contenant code_planning_*.xls
cpt = 1
With Application.FileSearch
If .Execute() > 0 Then
nb_fich = .FoundFiles.Count
ReDim Preserve recup_fich_code_planning(nb_fich)
For i = 1 To .FoundFiles.Count
recup_fich_code_planning(cpt) = .FoundFiles(i)
cpt = cpt + 1
Next i
Else
MsgBox "Aucun fichier correspondant à ce critère"
End If
End With

voila ma procedure
en faite je recherche tout les fichier code_*.xls dans un repertoire et je recherche celui qui a l'indice le plus et je l'ouvre

toi dans ta recherche plus il faut que tu definisse la recherche dans le prmier filesearch en specifiant les sous dossier avec
.SearchSubFolders = true
bonne chance
et bonne annee
@
vinc

 

[Fréd]

Ouf,
ça y est, ça fonctionne. En plus du chemin d'accès, je voulais aussi faire varier le nom (tant qu'à faire...) de façon simple afin que d'autres personnes puissent éventuellement le modifier en une seule étape. Là, il ouvre tous les fichiers qui commencent par "Ce".

With Application.FileSearch
.LookIn = CheminClasseur
.SearchSubFolders = True
.Filename = "Ce*"
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
If .FoundFiles(i) <> ActiveWorkbook.FullName Then
Workbooks.Open Filename:=.FoundFiles(i)

Merci de ton aide
@ bientôt
Fréd