Renvoi valeur d'une cellule d'une dernière page d'un autre fichier Excel

Bonjour,

Je cherche une fonction qui me permet d'obtenir la valeur d'une cellule de la dernière page d'un fichier excel.

Je m'explique :

J'ai 2 fichiers excel (fichier F1 et fichier F2).

Je veux que sur une cellule de mon fichier F1 (prenons la cellule A1) soit inscrit la valeur de la cellule (prenons B9) de la dernière feuille du fichier F2.

J'ai essayer de créer un module avec la fonction ci-dessous mais celle-ci fonctionne uniquement pour les données des cellules du même fichier F1 mais ne fonctionne pas pour le transfert de donnée entre F1 et F2.

Function LastSheet(RCell As Range)
Dim xIndex As Long
Application.Volatile
xIndex = RCell.Worksheet.Index
If xIndex > 1 Then _
LastSheet = Worksheets(Worksheets.Count).Range(RCell.Address)
End Function

Quelqu'un aurait-il une solution ?

Merci à vous.

Edit Modo : Mis code entre balises

Bonjour,

On suppose que le fichier 2 n'est pas ouvert.

Function LastSheet(ByVal Chemin As String, ByVal AdresseCellule As String) As Variant

Dim Wb As Workbook

    Set Wb = Workbooks.Open(Chemin)
    LastSheet = Wb.Worksheets(Worksheets.Count).Range(AdresseCellule)
    Wb.Close savechanges:=False
    Set Wb = Nothing

End Function

Sub Test()

    Debug.Print LastSheet("D:\XXXX\YYYY.xlsx", "A22")

End Sub