dIDIER 2

Salut thierry et spirou

Voici une formule que j’avais recopié sur site il y a un ou deux ans elle permettait de récupéré des données sur un fichier endommagé

La voici en l’état pour moi c’est un peu du chinois

Récupération de données dans un classeur fermé
(méthode "classique" par établissement d'une liaison temporaire)

Sub test()
GetValuesFromAClosedWorkbook "D:", "TestADO.xls", "Feuil1", "A1:H25"
End Sub

Sub GetValuesFromAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String)
'Ron De Bruin, mpep
'le paramètre 'cellRange' doit désigner
'*une* plage de cellules *contigües*
With ActiveSheet.Range(cellRange)
.Formula = "='" & fPath & "\[" & fName & "]" _
& sName & "'!" & cellRange
.Value = .Value
End With
End Sub

Je remercie l’auteur pour ce prêt très weebien

Si cela pouvait nous aider
Apparemment on n’ouvre pas le classeur on pioche dedans

Je vais continuer mes recherches dans mes archives il me semble que j’ai d’autre exemple, je mets tout sur disque, le tout est de retrouver le bon disque sur 200.
A plus

Crdlmt
Didier