total issu de fichier différents

Bonjour Franzosx, le Forum

Je te propose un code qui va écrire dans la feuille active d'un classeur la liste des Fichiers avec la valeur trouvée dans chacun des classeurs ...

NB ceci est subordonnée à cinq choses primordiales :

1) Tous les classeurs à analyser sons dans le même répertoire.

2) Tous les classeurs ont la même feuille à analyser (portant le même nom, ici "Feuil1" à adapter)

3) Tous les classeurs à analyser ont un nom dont la structure est immuable comme ceci "Srd0001.xls" ...

4) Tous les classeurs à analyser existe bien de srd001 à srd0450

5) Tous les classeurs à analyser ont la même cellule à analyser (ici donc "BJ5")

Si toutes ces conditions sont remplies, ce code devrait faire ton bonheur, car il va incrémenter une liste en lien avec la valeur de toutes les cellules "BJ5" de tous tes 450 classeurs... Ensuite il ne te restera plus qu'à mettre soit en "Paste Value" pour "casser" les liens (si besoin) et travailler sur cette feuille pour avoir ton total...

Sub WrintingFormula()
Const ThePath As String = "C:\Documents and Settings\te\My Documents\"
Const TheAddress As String = "Sheet1'!BJ5" '<<< Attention à la ' strophe obigatoire
Dim TheFile As String
Dim i As Integer


For i = 1 To 450
TheFile = "srd" & Format(i, "0000") & ".xls"
Cells(i, 1).Value = TheFile
Cells(i, 2).Formula = "='" & ThePath & "[" & TheFile & "]" & TheAddress
Next i
End Sub


Bonne Soirée
@+Thierry

OK Thierry,

Tout d'abord, merci pour ta réactivité.

Je suis un néophite de macro, VBA et autres, alors le problème, c'est que le code que tu m'a fait, je sais pas trop où le mettre.

Si tu pouvais juste me donner une ou deux indications.

Merci.
++



Franzosx

Bonjour Franzosx, le Forum

Oui je comprends, pas évident alors pour toi de me suivre...

Ce que je te propose c'est de lire attentivement ce Fil de Discussion :

Lien supprimé (et si si tu veux d'autres infos de bases, dans le même Fil, mon Post du 14-06-04 01:40 contient pas mal de liens...

Tu auras déjà les bases pour savoir comment faire une macro...

Ensuite reviens dans ce fil pour tes éventuelles questions quant à la mise en place du code ci-dessus

Bonne Découverte du VBA's World et bonne journée
@+Thierry

Parfait !!
A plus tard alors.

Franzosx