Nombre de fichiers dans un répertoire

Promis, c'est ma dernière question aujourd'hui

Je voudrais afficher dans une case le nombre de fichiers présents dans un répertoire C:\EXCEL\

Google n'a pas été mon ami sur ce coup là, je n'ai pas trouvé mon bonheur...

Merci,

balty

Bonsoir,

Essaye avec cette macro trouvée sur un site ami :

Sub compter
'Macro par Hervé
Dim Chemin As String
Dim rep As String
Dim nbfichier As Integer
Chemin = "C:\Excel\" 'a adapter
rep = Dir(Chemin & "*.xls")
While Not rep = ""
nbfichier = nbfichier + 1
rep = Dir
Wend
MsgBox nbfichier
End sub

Amicalement

Dan

Salut Balty, Dan et le forum

Avec une fonction personnalisée.

Dans une cellule =GetFileList("C:\Excel\*.xls")

Option Explicit

Function GetFileList(FileSpec As String) As Variant

Dim Filecount As Integer
Dim Filename As String

Application.Volatile

Filecount = 0
Filename = Dir(FileSpec)
If Filename = "" Then Exit Function

Do While Filename <> ""
    Filecount = Filecount + 1
    Filename = Dir()
Loop

GetFileList = Filecount

End Function

Mytå

Ah merci, j'essaierai lundi (ma semaine est finie, pas d'excel dispo à la maison)

je vous reviens avec ça

Bonne fin de semaine

balty

À priori c'est plutot la solution de Myta qui me serait utile.puisqu'il me faut le résultat dans une case et non en popup.

Mais, Myta, où dois-je coller le code ? Dans l"l'option" VIEW CODE de mon onglet courant ?

Salut le forum

Balty, tu colles le code dans un module et tu appliques la formule sur une cellule.

Alt+F11

Insertion > Module <--- Ici tu copies le code

Mytå

Bonjour Balty, Myta,

Exact Balty mais il te suffisait dans la macro, de mettre -->Range("A1") = nbfichier à la place de MsgBox nbfichier

Pour essayer placer ce code, suis la procédure de Myta.

Bon WE

Dan

Hum ok merci Nad-dan. j'essaierai ça plus tard, au moins pour ma culture VBA personnelle

Sinon, Myta, ton code fonctionne parfaitement.

Merci à vous

balty!

J'ai essayé vos deux solutions et ça fonctionne à merveille.

Merci encore.

balty!

Bonsoir

Avec ce code normalement il devrait me remonter 3 fichiers il ne m'affiche que 2 quelqu'un aurait une solution?

Dim Chemin As String
Dim rep As String
Dim nbfichier As Integer
Chemin = Mypath 'a adapter
rep = Dir(Chemin & "\*ABC*.xls")
While Not rep = ""
nbfichier = nbfichier + 1
rep = Dir
Wend
MsgBox nbfichier

Bonsoir,

c'est qu'il n'y en a que 2 qui répondent au critère.

quels sont les noms qui sont sortis et ceux qui auraient dû sortir selon toi ?