lancer une procédure vba d'une autre base

Sub recupeval()

Dim MonAccess As New Access.Application

MonAccess.OpenCurrentDatabase "chemin complet de la base"

MonAccess.Run "nomdelaprecedure"

MonAccess.Quit acQuitSaveNone

Set MonAccess = Nothing

End Sub