Option Explicit
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 SetFocus Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetWindowLongA Lib "User32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "User32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Sub ActiverWord()
Dim Res As Long, WordHWnd As Long
Dim strClassName As String
strClassName = "OpusApp"
WordHWnd = FindWindow(lpClassName:=strClassName, lpWindowName:=vbNullString)
If WordHWnd > 0 Then
Res = BringWindowToTop(hWnd:=WordHWnd)
If Res = 0 Then
Debug.Print "Erreur avec BringWindowToTop: " & CStr(Err.LastDllError)
Else
SetFocus hWnd:=WordHWnd
End If
Else
Debug.Print "Erreur"
End If
End Sub
Public Sub Init_Usf()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, UserForm1.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
End Sub
|