Hello guys I would like to open this program throught Excel and I have
this code
Option Explicit
'This code allows me to open PLaunch
Public Sub OpenPLaunchShell()
Dim appPack As String
Dim BoPack As Boolean
On Error Resume Next
If Err <> 0 Then
BoPack = True ' if no error PLaunch is open
Err.Clear
'If the program open already MsgBox "Packhedge is not open"
appPack = "C:\Program Files\Packhedge\Packhedge.exe"
Shell appPack
Exit Sub
Else
'If the program is already open I do not open it.
MsgBox "found PLaunch open already"
Exit Sub
End If
End Sub
but the program is launching twice everytime and I do not know why?
Ina
Bookmarks