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