connaitre le nb de fichiers d'une certaine extension dans un dossier

[kikouyou]

Bien le bonjour à vous tous,

Je me demandais si avec EXCEL2003 il est possible de compter le nombre de fichiers d'une même extension dans un dossier. ( ex : .pdf ).

Et naturellement, récupérer ce nombre dans une variable.

Je sais que l'on peut lister les fichiers présents par cette fonction :

Function ChargerFichiers()
Application.ScreenUpdating = False
Dim DirVar As String
'DirVar = Dir("c:\mes documents\*.pdf")
DirVar = Dir(Application.DefaultFilePath & "\*")
Do While DirVar <> ""
UserForm1.ComboBox1.AddItem DirVar
DirVar = Dir()
Loop
UserForm1.Show
End Function


le nombre total de fichiers est il trouvable.


Merci.

A bon programmeur, Salut


Kikouyou

[Staple1600]

Bonjour



Regardes en bas de la fenêtre de ton navigateur.



Tu trouveres des exemples se rapportant à ta question.

Ex:
http://www.excel-downloads.com/forum...n-dossier.html

ou • ici •

[kikouyou]

merci JM,

dans les discussions similaires, il n'y a pas le principe de comptage pour le nombre de fichiers et on va dire que c'est la clé de mon développement au sein de la totalité de la macro. Cela éviterai des manipulations à l'opérateur qui va l'utiliser.

Je cherche de mon coté cet après midi.


merci bcp

[Brigitte]

Bonjour,

Et en exploitant le fichier fait par MyDearFriend dans ce fil ? pas moyen de rajouter une option compteur récupérable ailleurs ?

[Staple1600]

Bonjour


Un exemple simple (mais perfectible)

Function Nombre_Fichiers(ByVal Dossier As String)
With Application.FileSearch
    .LookIn = Dossier
    .Filename = "*.???"
    .Execute
    nbr = .FoundFiles.Count
End With
Nombre_Fichiers = nbr + 1
End Function
Sub test()
Dossier = InputBox("Indiquez le chemin et le nom du dossier à scanner, svp")
MsgBox "Nombre de fichiers trouvés : " & Nombre_Fichiers(Dossier)
End Sub

[kiki29]

Salut, si l'on tient compte de ton code tu as déjà la possibilité d'utiliser

UserForm1.ComboBox1.ListCount

?

[kikouyou]

Mici a vous tous et vos commentaires et lien.

G réussi à faire un mix de vos résultats. Merci cela va amener plus de confort à mes collegues et à moi meme.

Vous avez assuré.


tks à tous


kikouyou