Bonjour le forum,
J'ai besoin de pouvoir compter dans un dossier, nommé ici "MONDOSSIER", le nombre de classeurs ".xls"; le dossier en question contient d'aures types de fichiers (.doc, .jpg, etc...). J'ai donc écrit ce petit code.... qui ne fonctionne pas... d'où ma demande d'aide de votre part
Sub recherche()
Dim dossier As Folder
Dim fiche As File
dossier.Name = "C:\MONDOSSIER\"
For Each fiche In dossier
If Right(fiche.Name, 4) = ".xls" Then x = x + 1
Next
[A1] = "Il y a " & x & "classeurs Excel dans ce dossier"
End Sub
Merci d'avance pour vos idées
PS: J'ai activé Scripting Runtime dans mon projet sans être vraiment certain que ce soit nécessaire ici...
A+
Philippe
J'ai besoin de pouvoir compter dans un dossier, nommé ici "MONDOSSIER", le nombre de classeurs ".xls"; le dossier en question contient d'aures types de fichiers (.doc, .jpg, etc...). J'ai donc écrit ce petit code.... qui ne fonctionne pas... d'où ma demande d'aide de votre part
Sub recherche()
Dim dossier As Folder
Dim fiche As File
dossier.Name = "C:\MONDOSSIER\"
For Each fiche In dossier
If Right(fiche.Name, 4) = ".xls" Then x = x + 1
Next
[A1] = "Il y a " & x & "classeurs Excel dans ce dossier"
End Sub
Merci d'avance pour vos idées
PS: J'ai activé Scripting Runtime dans mon projet sans être vraiment certain que ce soit nécessaire ici...
A+
Philippe