Shelled application

er ikke testet

MyAppID = Shell(sApp, vbHide)
AppActivate MyAppID, True




AppActivate title[, wait]

wait Optional.Boolean value specifying whether the calling application has the focus before activating another. If False (default), the specified application is immediately activated, even if the calling application does not have the focus. If True, the calling application waits until it has the focus, then activates the specified application.

Øverst i modulet (lige efter Option Explicit hvis du bruger det) indsætter jeg flg:
Public Declare Function GetProcessVersion Lib "Kernel32.dll" (ByVal lProcessID As Long) As Long

I selve modulet indsættes:
Sub ShellKommando()
Dim lPID As Long
  Debug.Print "Start " & Time 
  lPID = Shell(sApp, vbHide)
  WaitForProcessToEnd lPID
  Debug.Print "Slut " & Time
End Sub

Private Sub WaitForProcessToEnd(PID As Long)
    DoEvents
  Do
  Loop While GetProcessVersion(PID) <> 0
End Sub

Tak for hjælpen! :-D

yw :-)