XL 2010 Compter le nombre de fichiers excel dans un repertoire

Lone-wolf

XLDnaute Barbatruc

• 4 Avril 2017

• #2

Bonsoir fattah 🙂, le Forum 🙂

Macro à adapter

VB:

Option Explicit

Sub compter_Fichiers()
Dim chemin$, rep$, nbfichier%
   
    chemin = "C:\Users\Toto\Mes Documents\"
    rep = Dir(chemin & "*.xls")
   
    While Not rep = ""
        nbfichier = nbfichier + 1
        rep = Dir
    Wend
    MsgBox nbfichier
End Sub

 

Vote positif 0 Vote négatif

F

fattah_5791

XLDnaute Occasionnel

• 6 Avril 2017

• #3

merci bien Lone-wolf de ta solution. elle marche parfaitement si je respecte le chemin "C:\Users\Toto\Mes Documents\" (à adapter bien sur selon les cas) mais le dossier sur lequel je travaille sera entre les mains de plusieurs personnes non initiées à ce genre de manipulations (...) pour executer des taches automatiques sans toucher au CODE.
Merci encore

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 7 Avril 2017

• #4

Bonjour fattah 🙂, le Forum 🙂

Dans ce cas tu met un bouton pour appeler la macro et tu protège le projet vba avec un mot de passe.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Avril 2017

• #5

Bonjour à tous,
Salut Lone-Wolf,

Avec le code déposé : dénombre les fichiers XL dans le répertoire où est enregistré le fichier :

Code:

Option Explicit


Sub Compter_Fichiers()
    Dim Chemin$, Rep$, NbFichier%
    Chemin = ThisWorkbook.Path & "\"
    Rep = Dir(Chemin & "*.xl*")
    While Not Rep = ""
        NbFichier = NbFichier + 1
        Rep = Dir
    Wend
    MsgBox NbFichier
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 7 Avril 2017

• #6

Bonjour à tous

fattah_5791 à dit:

... pour faire une boucle selon ce nbr...

Cliquez pour agrandir...

A noter qu'on n'a pas besoin du nombre de fichiers pour ce type de boucle.

Pour le chemin on peut soit utiliser le répertoire du classeur contenant la macro comme proposé par JCGL, soit ajouter une fenêtre de sélection du répertoire en début de macro.

 

Vote positif 0 Vote négatif

F

fattah_5791

XLDnaute Occasionnel

• 7 Avril 2017

• #7

merci pour tout le monde, mon truc est resoulu suite à vos propositions: JCGL, Lone-Wolf et chris.
Merci encore

 

Vote positif 0 Vote négatif