Is program Running, if Not Run it.

[chris186h]

Hello all,
I have spent some time searching but couldnt come up with an answer.
I would like excel to check on workbook_open if a program called nosleep.exe is running.
If so then continue with the rest of the code if not then run the program c:\nosleep.exe

Many thanks for any help

 

[bugmonsta]

Here is a very basic example of checking if Notepad is running, and if not then start the app, which may get you running - there may be better ways of doing this now (think this is from 5 or 6 years ago) - as sometimes the message to show its running takes a little longer than I think it should to appear (excel 2016)

Sub IsitRunning()
    On Error GoTo notrunning
    AppActivate ("notepad")
  MsgBox "running"
    Exit Sub
notrunning:
Shell "Notepad.exe", 3 [COLOR="#008000"]'1 normal, 2 minimised, 3 masssssive - full screen[/COLOR]
End Sub

 

[chris186h]

Thankyou for the help. That worked perfectly with notepad but not with the program im running. NoSleep is just a screensaver preventor that runs in the taskbar. I changed it to its name but excel continues to start it every time runing multiple versions. Thankyou for the help anyway very kind

 

[bugmonsta]

Have a look at this page - it talks about using vba to find processes rather than apps, and I am thinking your app may show as a process, don't know if it will help or not but its worth a try.

Check For Running Process-VBForums