Bonsoir Alain
Voici un exemple qui lit la cellule B2 de trois classeurs rangés sous c:\VBA\Data et restitue la somme dans A2 du classeur ouvert
Sub somme_cla()
Dim MyFile, MyPath, MyName
Application.ScreenUpdating = False
MyPath = "c:\VBA\Data\" ' Définit le chemin d'accès e.
MyName = Dir(MyPath, vbDirectory) 'Extrait la première entré
Do While MyName <> "" ' Commence la boucle.
If MyName <> "." And MyName <> ".." Then
If (GetAttr(MyPath & MyName) And vbDirectory) = vbNormal And Left(MyName, 8) = "Classeur" Then
MyFile = "'" & MyPath & "[" & MyName & "]" & "Feuil1'!R2C2"
somme = somme + ExecuteExcel4Macro(MyFile)
End If
End If
MyName = Dir ' Extrait l'entrée suivante.
Loop
Range("A2") = somme
End Sub
CopyRight Juliette pour l'instruction ExecuteExcel4Macro(MyFile)
A+ Roland