Bonjour à tous,
Ds mon entreprise tout se fait sur Excel. Or, je pense que certaines tâches pourraient etre automatisées.
Je reçois en effet mensuellement des fichiers excel contenant les dépenses réalisées par les bureaux régionaux. J'aimerai synthétiser ces fichiers (il y en a quand meme plus de 300 par mois).
Plutot qu'une longue description, je prefere vous laisser regarder les fichiers joints qui seront plus parlant.
En résumé, je souhaite juste afficher dans un tableau le :
nom du bureau 1, sa dépense;
nom du bureau 2, sa dépense;
nom du bureau 3, sa dépense;
etc...
Il n'y a donc aucun calcul, simplement aller chercher pour chaque fichier les valeurs correspondantes ds les cases, et les mettre à la suite.
En cherchant ds le forum, j'ai vu des choses qui s'en approchaient mais pas tout à fait pareil. J'ai vu ds une discussion qu'il ne fallait pas que la macro ouvre les fichiers les uns après les autres mais plutôt utiliser ce code :
Merci d'avance à tous ceux qui pourront m'aider.
Ds mon entreprise tout se fait sur Excel. Or, je pense que certaines tâches pourraient etre automatisées.
Je reçois en effet mensuellement des fichiers excel contenant les dépenses réalisées par les bureaux régionaux. J'aimerai synthétiser ces fichiers (il y en a quand meme plus de 300 par mois).
Plutot qu'une longue description, je prefere vous laisser regarder les fichiers joints qui seront plus parlant.
En résumé, je souhaite juste afficher dans un tableau le :
nom du bureau 1, sa dépense;
nom du bureau 2, sa dépense;
nom du bureau 3, sa dépense;
etc...
Il n'y a donc aucun calcul, simplement aller chercher pour chaque fichier les valeurs correspondantes ds les cases, et les mettre à la suite.
En cherchant ds le forum, j'ai vu des choses qui s'en approchaient mais pas tout à fait pareil. J'ai vu ds une discussion qu'il ne fallait pas que la macro ouvre les fichiers les uns après les autres mais plutôt utiliser ce code :
Code:
Application.ScreenUpdating = False
pfile = ActiveWorkbook.Path & "\archive\" 'indiquer ici le chemin du répertoire
nfile = Dir(pfile)
i = 2
Do Until nfile = ""
Merci d'avance à tous ceux qui pourront m'aider.