Macro: comment importer des valeurs de fichiers Excel vers un autre fichier Excel?

Bonjour à tous,

J'ai à peu près 300 fichiers Excel dans un dossier. Je veux récupérer la valeur de la cellule K3 de chacun de ces fichiers, en faire la moyenne et afficher le résultat de cette moyenne dans la cellule A1 d'un nouveau fichier que j'aurais créer. Je suppose qu'il faut faire ça avec une macro mais le problème c'est que je ne connais pas le code pour le faire.

Qqn peut-il m'aider?

Merci

salut,

les fichiers ont ils un nom qui suit une nomenclature précise ou bien tous les fichiers d'un dossiers doivent être passés au peigne fin ? :)

Il te faudra faire une boucle sur les fichiers, et créer une petite fonction qui retournera le montant du fichier en question. Restera le compteur et la moyenne à faire (somme des valeurs / nombre de valeurs :))

Si ça peut aider, voici ce que j'utilise pour balayer les fichiers d'un répertoire.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub test()   Dim wb As Workbook Dim my_dir As String, my_file As String Dim a As Long   my_file = Dir(my_dir & "*.xls*") Do While my_file <> "" Set wb = Workbooks.Open(my_dir & my_file)   '[sélectionner la bonne feuile] a = a + K3   wb.Close True Set wb = Nothing my_file = Dir Loop   End Sub

---

My_dir = répertoire dans lequel sont les fichiers (il doit y avoir un "\" à la fin)
Attention, sans conditions supplémentaires, TOUS les fichiers du répertoire seront consultés.

merci pour ta réponse bifconsult.

Pour répondre à jpcheck:

mes noms de fichier suivent tous les dates de 2011: "mois-jour-année". Ca va du 1 janvier 2011("01-01-2011") au 31 décembre 2011 ("12-31-2011")