Ouvrir un fichier dans une autre application

'Fonction pour voir si l'appli est ouverte
Function ApplyLancee(strChemin As String) As Boolean
 
    On Error Resume Next
 
    Open strChemin For Binary Access Read Write Lock Read Write As #1
    Close #1
 
    If Err.Number <> 0 Then
        ApplyLancee = True
        Err.Clear
    End If
 
End Function

'Code
    If ApplyLancee("C:\Program Files\Mon_appli.exe") = True Then
        MsgBox "l'application est déja lancéé"
        Shell "C:\Mes documents\Mon fichier.(extension)" 'là j'ai un problème !!!!
    Else
        'MsgBox "application non lancée"
        Shell "C:\Program Files\Mon_appli.exe C:\Mes documents\Mon fichier.(extension)" 'là tout va bien
    End If