Nb de fichiers

[momo]

Bonjour a tous et à toutes,
j'aimerai savoir s'il est possible de connaitre le nombre de fichiers.xls situés dans un dossier.
si oui, avec quelle procedure.
Merci d'avance pour votre aide.
Bonne soirée.

 

[michel]

bonsoir momo

tu peux tester la procedure ci dessous pour compter le nombre de classeur XLS dans un dossier

Sub Nombre_Fichiers()
Dim Cherche As FileSearch
Dim Chemin As String
Dim I As Integer

On Error Resume Next
Set Cherche = Application.FileSearch
Chemin = "C:\Mes Documents\" ' à adapter selon répertoire

With Cherche
.NewSearch
.FileName = ".xls"
.LookIn = Chemin
.SearchSubFolders = False
.Execute msoSortByFileName, msoSortOrderAscending

If .Execute > 0 Then
MsgBox "Il y a " & .FoundFiles.Count & " classeurs xls dans " & Chemin
Else
MsgBox "il n'y a pas de classeur xls dans " & Chemin
End If

End With
Set Cherche = Nothing
End Sub

bonne soirée
michel

 

[momo]

Merci beaucoup Michel pour ton aide,
je vais essayer ça ce soir, je te tiens au courant pour te dire si je m'en sort.
Et encore merci
Bonne soirée
Momo

 

[momo]

Merci Michel
ça marche au poil
@+ bonne soirée

 

[Jean-Marie]

Bonsoir, Momo, Michel

Avec les anciens XL4, une seule ligne et deux instructions suffisaient pour retourner le nombres de fichiers "*.xls" dans un dossier

=NBVAL(FICHIERS("Disque 30 Go:"&"*.xls"))

En VBA cela donne ExecuteExcel4Macro(COUNTA(FILES("Disque 30 Go:"&"*.xls")))

Etant sous mac, le séparateur d'arborescence est le :, et nous n'avons pas de lettre pour désigner le lecteur, nous écrivons simplement son nom. Mais ceci c'est pour la petite histoire.

@+Jean-Marie