Rechercher et compter des fichiers

Merci, pour votre aide gbinforme. J'essaierai la procédure dès que possible, l'inconvénient est que je n'ai pas accès à internet depuis mon poste de travail. Je fais des recherches à la maison puis test les procédures au travail.

Bonjour,

Je te mets un exemple de procédure (à adapter bien sûr !) utilisant cette fonction :
https://www.cjoint.com/c/ELmiSTXufFl

Bon test

Bonjour gbinforme,

En lisant votre programme je me rend compte du chemin à parcourir pour être à votre niveau. J'avoue ne pas avoir tout saisi.

Voici de façon plus explicite ce que j'essaye de faire :

Dans mon programme "test", le "chemin" est reconnu mais le programme "bug" pour trouver les fichiers à lister et à compter.


Mon chemin est le suivant :
Lecteur réseau S:\
Répertoire Archive : ARC
Sous répertoire Année : 2015
Sous répertoire dans 2015 (décembre) : 12_dec
Je souhaite par exemple lister les fichiers de chaque jour du mois de décembre nommés :
ENE_BLI_MOY_10_20151201.d01 (2015= année, 12 = mois, 01= jour)
ENE_BLI_MOY_10_20151202.d01
Dans le sous répertoire de décembre : 12_dec
il existe beaucoup d’autre fichiers commençant par
ENE_NEP_MOY_......................d01 ou
ENE_KMC_MOY_......................d01 ou
ENE_TEM_MOY_......................d01 etc…
pour lesquels il peut exister 31 fichiers (1 par jour) en fonction du mois.

Sub test()
Dim i As Long
Dim Rep As String, Dossier As Object, SousDossier As Object, fichier As Object
chemin = "S:\Arc\" & 2015 & "\" & "11_nov" 'Directory = répertoire dans S: selon année sélectionnée
fichier = "ENE_BLI_MOY_10_MIN_201511" & "*.*" 'fichD & "*.*"
Rep = chemin & "\" & fichier
i = 2
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Rep)

For Each fichier In SousDossier.Files
Cells(i, 1) = SousDossier.Name
Cells(i, 2) = fichier.Name
i = i + 1
Next
End Sub

Merci d'avance pour votre aide.

Meilleurs vœux pour 2016.

Stéphan