re- Tout le monde,
Finalement, voilà la solution pour forcer la calculatrice à revenir au premier plan dans tous les cas de figure :
Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_SHOWNORMAL = 1
Public Sub OuvreApp()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, "Calculatrice")
If hwnd > 0 Then
BringWindowToTop hwnd
ShowWindow hwnd, SW_SHOWNORMAL
Else
Shell "C:\WINDOWS\system32\calc.exe", vbNormalFocus
End If
End Sub
Ben là, il est content le myDearFriend!
I'am "API"
Cordialement,
Didier_mDF