XL 2010 Compter le nombre de fichiers excel dans un repertoire

[fattah_5791]

Salut tout le monde

j'ai realisé un petit applicatif me permettant de charger les notes à partir des fichiers excel dans fichier xlsm.
j"aimerais avant de commencer le chargement de compter (recuperer dans une variable) le nombre de fichiers excel sources contenus dans le dossier parent (chemin non precisé) pour faire une boucle selon ce nbr.


remarque: compter juste le nbr de fichier dans le dossier où se trouve le fichier destination.

Merci

 

[Lone-wolf]

Bonsoir fattah , le Forum

Macro à adapter

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

 

[fattah_5791]

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

 

[Lone-wolf]

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.

 

[JCGL]

Bonjour à tous,
Salut Lone-Wolf,

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

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

 

[chris]

Bonjour à tous

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

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.

 

[fattah_5791]

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