Option Explicit
Private Const STILL_ACTIVE = &H103
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub EjecutoYAlAcabarMeFinalizo(ByVal Exe As String)
On Error GoTo Err_Sinc
Dim lng1 As Long, lngRc As Long
lng1 = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(Exe, vbNormalFocus))
Do
GetExitCodeProcess lng1, lngRc
Sleep 100
DoEvents
Loop While lngRc = STILL_ACTIVE
End
Exit Sub
Err_Sinc:
MsgBox "Fallo Ejecutando pgm '" & Exe & "'." & String(2, vbCrLf) _
& "(" & Err.Number & ") " & Err.Description, vbCritical, "Sincronizar"
End Sub