Discussion :

[jerdel]

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

[Jean-Philippe André]

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 )

[bifconsult]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jerdel]

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")