Bonjour,
voici un exemple à tester,
Sub Lire_cellule()
'Il faut récupérer la valeur a45 de la feuille1 du classeur1 pour les amener dans le classeur2 en feuille "résultat" en cellule a2.
Dim Chemin As String, Fichier As String, adresse As String
Dim sRep As String, sFile As String, sSh As String, rw As Integer, cn As Integer
Chemin = "C:\Users\xxxxxx\Documents\test\" 'adapter à votre répertoire
Fichier = Dir(Chemin & "*.xls*") 'adapter à l'extention de vos fichiers
adresse = "$A$45"
Do While Fichier <> ""
Debug.Print Fichier
sRep = "" & Chemin
sFile = "" & Fichier
sSh = "zzz" 'adapter au nom de la feuille
rw = Range(adresse).Row
cn = Range(adresse).Column
Arg = "'" & sRep & "[" & sFile & "]" & sSh & "'!R" & rw & "C" & cn & ""
GetValue = ExecuteExcel4Macro(Arg)
Debug.Print GetValue
Resultat = Resultat + GetValue
'prochain fichier
Fichier = Dir()
Loop
Sheets("résultat").Range("A2") = Resultat
End Sub