Propriété d'un dossier en vba

[Math]

Bonjour à tous en ce lundi matin

J'espere que vos WE se sont bien passés et que vous etes en forme pour ma question
Voilà mon pb je voudrais savoir combien de fichier se trouvent dans un repertoire a l'aide de VBA

Merci d avance
@+ Math

 

[michael]

Bonjour,

utilise l'instruction : Application.FileSearch

Pour les différents arguments, utilise l'aide

Michael

 

[sousou]

Voici de quoi compter et lister les fichiers du répertoire courant.
Pour un autre répertoire dans dir("*.*") remplace par le chemin de ton rep.

Bonne chance

Dim table()
Sub test()
compteur = 0
a = Dir("*.*")
While a <> ""
compteur = compteur + 1
ReDim Preserve table(compteur)
table(i) = a
Texte = Texte & a & Chr$(13)
a = Dir()
Wend
MsgBox Texte & " " & compteur
End Sub