bonsoir Roland ,Thierry et Talere
Thierry ,jespere que la procedure ci joint pourra t'aider
les fichiers doivent etre nommés de 1 à X
dans l'exemple , la somme de tous les fichiers s'affiche dans la cellule A1 du classeur actif
je suis curieux de connaitre le temps de calcul nécéssaire pour 300 classeurs
Sub ChercheDansFichiers()
Dim X As Integer
Dim Direction As String
Dim Somme As Double
Application.ScreenUpdating = False
Direction = Dir("D:\dossier\general\excel\*.xls") ' à adapter
For X = 1 To 3 ' nombre et noms des fichiers à tester
With ActiveSheet.Range("A1")
.FormulaArray = "='" & "D:\dossier\general\excel" & "\[" & X & "]" & "Feuil1" & "'!" & "A1"
.Value = .Value
End With
Somme = Somme + Range("A1")
Next
Range("A1") = Somme
Application.ScreenUpdating = True
End Sub
bonne soirée
michel