Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Propriété d'un dossier en vba

M

Math

Guest
Bonjour à tous en ce lundi matin

J'espere que vos WE se sont bien passés et que vous etes en forme pour ma question
Voilà mon pb je voudrais savoir combien de fichier se trouvent dans un repertoire a l'aide de VBA

Merci d avance
@+ Math
 
S

sousou

Guest
Voici de quoi compter et lister les fichiers du répertoire courant.
Pour un autre répertoire dans dir("*.*") remplace par le chemin de ton rep.

Bonne chance

Dim table()
Sub test()
compteur = 0
a = Dir("*.*")
While a <> ""
compteur = compteur + 1
ReDim Preserve table(compteur)
table(i) = a
Texte = Texte & a & Chr$(13)
a = Dir()
Wend
MsgBox Texte & " " & compteur
End Sub
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…