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.
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
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
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.