[VB / Access / Excel] Problème de classeur

Bonjour,

Je fais un programme Access qui doit importer un fichier Excel. Le problème est qu'il ne trouve pas le classeur de macros personnelles.

Voici le code, ça sera plus simple que d'expliquer :

Function TRANSFERT()
On Error GoTo TRANSFERT_Err   ' Valide la routine de gestion d'erreur

' Execute la macro dans un fichier qui est sélectionné par l'utilisateur (Me.tb_chemin)
    Dim MonObjet As Object
    Set MonObjet = GetObject("", "Excel.Sheet")
    MonObjet.Application.Visible = False
    MonObjet.Application.Workbooks.Open (Me.tb_chemin)
    MonObjet.Application.Run "PERSO.XLS!Macro3"
    MonObjet.Application.Visible = True
    Set MonObjet = Nothing


' Transfert d'une feuille de calcul 
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Cotations", Me.tb_chemin, True
    TRANSFERT = True

TRANSFERT_Exit:
    Exit Function   ' Sort de la fonction

' S'il y a une erreur, un messagebox s'affiche
TRANSFERT_Err:
    MsgBox Error$, vbCritical
    Resume TRANSFERT_Exit   ' Lien vers TRANSFERT_Exit
    TRANSFERT = False
End Function

Le message d'erreur est : "PERSO.XLS" introuvable.

Si quelqu'un pouvait m'aider, merci d'avance.