Compter les fichiers d'un répertoire

[philippe]

Bonjour

Je cherche à connaitre le nombre de fichiers contenu dans un répertoire. Je n'arrive pas à trouver.

Merci d'avance

Philippe

 

[michel]

bonsoir Philippe

tu peux tester


Sub NombreFichiersRepertoire()
'necessite d'activer la reference Microsoft Scripting Runtime
Dim Obj As Scripting.FileSystemObject
Set Obj = CreateObject("Scripting.FileSystemObject")
MsgBox Obj.GetFolder("C:\Documents and Settings\michel\dossier").Files.Count
End Sub


bonne soiree
MichelXld

 

[philippe]

Merci de m'avoir répondu mais je ne sais pas ce qu'est l'activation de Microsoft Scripting runtime. Ma macro ouvre tous les fichiers contenus dans un répertoire un par un et je souhaiterais qu'un message se mette dans la barre d'état : ouverture du fichier n°xx sur zz fichiers existants (sachant que xx est calculé à l'aide d'un compteur). C'est le zz que ne sais pas calculer.

J'ai essayé : activeworkbook.count mais c'est incorrect

Merci d'avance
Philippe

 

[michel]

bonjour Philippe

ça change tout ...
tu peux utiliser la methode proposee par Rai , dans le lien ci dessous , si tu souhaites compter le nombre de classeurs dans un repertoire

Lien supprimé

ce qui pourrait donner


Sub NbClasseurs()
Dim Chemin As String , D as String
Dim Lig As Integer
Chemin = "C:\Documents and Settings\michel\dossier\*.xls"
D = Dir(Chemin)
While D <> ""
Lig = Lig + 1
D = Dir
Wend
MsgBox "nombre total de classeurs : " & Lig
End Sub


bonne journée
MichelXld

 

[philippe]

Super
Merci beaucoup pour ton aide