Je ne pense pas que se soit la même chose, ton appli Excel étant déjà ouverte ce code ne fonctionnerait pas.
En fait, si on peut en adaptant comme ceci :
Sub OpenExcelCla()
Dim NomXls As String, Chemin As String
NomXls = "test.xlsm"
Chemin = "E:\Test\" & NomXls
Set ExcelApp = CreateObject("Excel.Application")
On Error GoTo MsgError
Set ExcelCla = ExcelApp.Workbooks.Open(Chemin)
ExcelApp.Visible = True
Application.DisplayAlerts = False
Application.Quit 'Quitte Excel
Exit Sub
MsgError: MsgBox "Le fichier " & NomXls & " n'existe pas !"
End Sub