Salut , voici de "Boursicot "
'récupérer des données d'un classeur fermé par OLE
'(sur une idée de Boursicot, mpfe)
'attention : bien qu'invisible dans l'interface Excel le classeur
'est cependant ouvert par la méthode GetObject,
'il faut penser à le fermer après usage.
Sub test()
Dim Chemin$, NomFich$
Dim classeur As Workbook
Dim base As Range
Chemin = "d:\"
NomFich = "testado.xls"
Set classeur = GetObject(Chemin & NomFich)
Set base = classeur.Sheets(1).Range("a1")
MsgBox base.Value
'on vérifie que le classeur est bien ouvert
'Workbooks(NomFich).Windows(1).Visible = True
'ou
'classeur.Windows(1).Visible = True
'MsgBox "coucou"
'on le ferme
Workbooks(NomFich).Close False
'ou
'classeur.Close False
End Sub