Salut Munchkin, Arnaud, Jean, André et le Forum
Un bout de Macro pour lire dans un fichier fermé, d'après une macro XL4 de John Walkenbach trouvé dans mes archives.
Option Explicit
Private Function GetValue(Path, File, Sheet, Ref)
Dim Arg As String
'Vérie l'existence du fichier, ajoute les séparateurs manquants
If Right(Path, 1) <> "\" Then Path = Path & "\"
If Dir(Path & File) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'Crée l'argument
Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref) _
.Range("A1").Address(, , xlR1C1)
'Exécute la macro XLM
GetValue = ExecuteExcel4Macro(Arg)
End Function
Sub Recupere()
Dim P As String, F As String, S As String
Dim Ligne As Byte
For Ligne = 1 To 30
P = "C:\Mes Documents"
F = "ClasseurFerme.xls"
S = "Feuil1"
Cells(Ligne, 1) = GetValue(P, F, S, Cells(Ligne, 1).Address)
Cells(Ligne, 2) = Format(GetValue(P, F, S, Cells(Ligne, 2).Address), "hh:mm")
Next Ligne
End Sub
A suivre
Mytå