24 lines
602 B
Plaintext
24 lines
602 B
Plaintext
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_qt550\Bordereau.xlsm")
|
|
ApplicationExcel.Visible = False
|
|
ApplicationExcel.Run "QT550_sub" 'va lancer la macro
|
|
ApplicationExcel.Quit
|
|
|
|
Set ClasseurExcel = Nothing
|
|
Set ApplicationExcel = Nothing
|
|
|
|
End Sub |