XL 2016 VBA - Code pour écrire une plage dans une feuille d'un classeur fermé

Sub GetValueMyCloseFile()
Dim ThePath$, NameWB$, ShName$, MyCel$, MyValue$

    ThePath = "/Users/UserName/Downloads/"
    NameWB = "Exemple.xlsx"
    ShName = "TOTO"
    MyCel = "A3"
    
    MsgBox GetValueInCloseFile(ThePath, NameWB, ShName, MyCel)
    
End Sub

Function GetValueInCloseFile(ThePath$, NameWB$, ShName$, MyCel$)
Dim MyValue$
    MyValue = "'" & ThePath & "[" & NameWB & "]" & ShName & "'!" & Range(MyCel).Address(True, True, xlR1C1)
    GetValueInCloseFile = ExecuteExcel4Macro(MyValue)
End Function

Sub test()
    Dim chemin$, fichier$, feuille$, cellule As Range
    chemin = "C:\Users\polux\Desktop"
    fichier = "hhhhhtml.xls"
    feuille = "Feuil1"
    Set cellule = Range("c4")
    MsgBox GetVal_on_closed_fich(chemin, fichier, feuille, cellule)
End Sub

Function GetVal_on_closed_fich(ByVal chemin As String, ByVal fichier As String, ByVal feuille As String, cel As Range) As String
    'patricktoulon XLA closed_fich
    Dim Rc$
    Rc = "R" & cel.Row & "C" & cel.Column
    GetVal_on_closed_fich = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]" & feuille & "'!" & Rc)
End Function

Private Function GetValue(Path, File, Sheet, Ref) 'John Walkenbach
  Dim Arg As String
  If Right(Path, 1) <> "\" Then Path = Path & "\"
  If Dir(Path & File) = "" Then
    GetValue = "File Not Found"
    Exit Function
  End If
 
  Arg = "'" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref) _
    .Range("A1").Address(, , xlR1C1)
  GetValue = ExecuteExcel4Macro(Arg)
''  GetValue = IIf(GetValue = 0, "", GetValue) 'modif perso Zon
End Function