'en tête de module
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SetActiveWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
Sub ActiverIeFrame()
Dim hwnd As Long
hwnd = FindWindow("IEFrame", vbNullString)
If hwnd > 0 Then SetActiveWindow hwnd
End Sub
Sub ActiverExcel()
Dim hwnd As Long
hwnd = FindWindow("XLMAIN", vbNullString)
If hwnd > 0 Then SetActiveWindow hwnd
End Sub