Discussion :

[micka06]

Bonjour, je cherche à compter des fichiers qui sont stockés dans un répertoire windows. Petit soucis je veux seulement certains fichiers avec une extensions particulière et le nom du répertoire change dans le temps donc il faut que je puisse changer l'adresse du dossier ciblé

Merci d'avance

[PPz78]

Bonjour,

Regarde la fonction Dir dans VBA, avec elle on peut y arriver.
En cas de difficulté... une seule adresse Developpez.com

PPz

[EvaristeGaloisBis]

ou alors tu as les objets de microsoft scripting runtime.
tu mets ton folders dans un objet Folder, et tu dois avoir un files.count.
C'est rapide et sûre. Inconvéniant majeur ça nécessite l'utilisation d'une référence alors que Dir est natif.

[Didier Gonard]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub ChercheEtTrouve()
Dim strChem
Dim I As Long
 
strChem = Dir("C:\Pass Divers\*.png")
Do While Len(strChem) > 0
    Debug.Print strChem
    I = I + 1
    strChem = Dir
Loop
Debug.Print I & " fichier(s) trouvés"
End Sub

cordialement,

Didier