Problem to launch a program from Excel

I

ina

Hello,

I have this sub that alows me to open the program PackLaunch from
Excel. The problem is that I have only one license of this program and
I need to open it only one time. if the program is already open I need
to exit from this sub. the problem is that the sub executes the if
twice and I do not know why.


Public Sub OpenPLaunch()

Dim appPack As String
Dim BoPack As Boolean


On Error Resume Next

appPack = "C:\Program Files\PLaunch\PLaunch.exe"
Shell appPack


If Err <> 0 Then

BoPack = True ' if no error PLauch is open
Err.Clear
MsgBox "PLaunch is not open"
appPack = "C:\Program Files\PLaunch\PLaunch.exe"
Shell appPack
Exit if

Else

MsgBox "found PLauch open"
Exit Sub

End If

End Sub

Any help is kindly appreciated

Ina
 
P

Peter T

Not sure why or how it executes the If twice but the following may well run
twice because you have written it twice -

Shell appPack

" Exit if " is invalid and the "Exit Sub" is redundant

Regards,
Peter T
 
I

ina

So Should I remote Shell appPach Exit Sub

but if the file is not open I need to open it again?

Ina
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top