comment récupérer une plage de variables d'un fichier fermé

[ericTA]

Bonjour à tous,
voila je cherche à récupérer une plage de valeur dans un fichier fermé en modifiant une macro mais cela ne fonctionne pas pouvez vous me corriger?

Sub essai()
Dim tablo As Variant
Dim val As string
tablo = ExecuteExcel4Macro("'C:\Chemin\[FichierFermé.xls]feuille'!R1C2:R45C5")
val = tablo(7, 4)
End Sub

il prend seulement la valeur de R1C2
Merci d'avance
Eric

 

[PMO2]

Re : comment récupérer une plage de variables d'un fichier fermé

Bonjour,

Essayez avec ce code modifié

Sub essai_pmo()
Dim tablo()
Dim i&
Dim j&
Dim S As Worksheet
Dim R As Range
ReDim tablo(1 To 45, 2 To 5)
For i& = 1 To 45
  For j& = 2 To 5
      '---(vérifiez bien les noms du classeur et de la feuille) ---
    tablo(i&, j&) = Application.ExecuteExcel4Macro("'C:\Chemin\[FichierFermé.xls]feuille'" & _
        "!R" & i& & "C" & j& & ":R" & i& & "C" & j& & "")
  Next j&
Next i&
Sheets.Add
Set S = ActiveSheet
Set R = S.Range(S.Cells(LBound(tablo, 1), LBound(tablo, 2)), S.Cells(UBound(tablo, 1), (UBound(tablo, 2))))
R = tablo
End Sub

Cordialement.

PMO

 

[ericTA]

Re : comment récupérer une plage de variables d'un fichier fermé

Merci
ça marche super bien
encore MERCI
Eric