Option Explicit
On Error Resume Next
ExempleMacroExcel

Sub ExempleMacroExcel() 

  Dim ApplicationExcel 
  Dim ClasseurExcel 
  Set ApplicationExcel = CreateObject("Excel.Application") 
  
  Dim WshShell, strCurDir
  Set WshShell = CreateObject("WScript.Shell")
  strCurDir    = WshShell.CurrentDirectory
 

  Set ClasseurExcel = ApplicationExcel.Workbooks.Open( strCurDir & "\vbs\script_cl063\Connexion.xlsm") 
  ApplicationExcel.Visible = False
  ApplicationExcel.Run "CL063_AC800_sub" 'va lancer la macro
  ApplicationExcel.Quit 

  Set ClasseurExcel = Nothing 
  Set ApplicationExcel = Nothing 

End Sub