Bonsoir Romain,
Si tu ne veux pas être obligé d'ouvrir les fichiers pour récupérer les données, je te joins un petit exemple VBA qui devrait t'intéresser.
Sans ouvrir les fichiers, on peut récupérer les valeurs de chaque cellule grâce à la fonction suivante :
Public Function RecupValeur(Chemin, Fichier, Feuille, Cellule) As Variant
' Cette fonction est tirée de : "The SpreadSheet Page" de J.Walkenbach
' Récupère une valeur dans un classeur fermé
Dim Cible As String
' Vérifier que le classeur existe
If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
If Dir(Chemin & Fichier) = "" Then
RecupValeur = "<< Cible non trouvée >>"
Exit Function
End If
' Reconstitue le chemin complet qui conduit à la cellule cible
Cible = "'" & Chemin & "[" & Fichier & "]" & Feuille & "'!" & _
Range(Cellule).Range("A1").Address(, , xlR1C1)
' Execute une macro XLM
RecupValeur = ExecuteExcel4Macro(Cible)
End Function
Espérant que cela puisse t'être utile.
Cordialement.
Didier_mDF