تشغيل برنامج في الخلفية

[moamen salem]

السلام عليكم 

اساتذتي الكرام 

ارجوا كود تشغيل برنامج معين في الخلفية

[moamen salem]

تم العثور علي الحل الحمد لله 

Dim RetVal
RetVal = Shell("مسار الملف", 1)

ولكن محتاج كود لاغلاق البرنامج في الخلفية

[د.كاف يار]

لفتح ملف استخدم التالي

Dim myPath As String
myPath = Environ("USERPROFILE") & "\Downloads\EXCELFile.xlsx"  ' مسار الملف
Call Shell(myPath, vbNormalFocus)

و لإغلاق ملف استخدم التالي

Dim SetApplication As Object, FilePath As String
FilePath = Environ("USERPROFILE") & "\Downloads\EXCELFile.xlsx"  ' مسار الملف
Set SetApplication = GetObject(FilePath)
SetApplication.Application.Quit