Ouverture d'un autre fichier Excel avec une macro, par pop up?

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Declare Function ShellExecuteForExplore Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, lpParameters As Any, lpDirectory As Any, ByVal nShowCmd As Long) As Long

Sub test2()
    Chemin_Fichier = "Chemin du fichier\"
    Nom_Fichier = "Nom du fichier"
    'Ligne de Code ci-dessous recuperee sur le site Code-source ou developpez.com !!!
    'Permet de lancer un fichier sans donner le chemin du .EXE
    hwndSim = ShellExecuteForExplore(0&, vbNullString, Chemin_Fichier & Nom_Fichier, 0, 0, 1)
End Sub