Bonjour HD; Essaie: Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long Putfocus FindWindow(vbNullString, "Ici le titre de la fenêtre")
MP
"HD" a écrit dans le message de news:uYY%
BringWindowToTop FindWindow(vbNullString, "Ici le titre de la fenêtre")
Le focus apparaît et disparait aussi tôt... -- @+ HD
Bonjour HD;
Essaie:
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As
Long) As Long
Putfocus FindWindow(vbNullString, "Ici le titre de la fenêtre")
MP
"HD" <hd@anti.spam.fr> a écrit dans le message de
news:uYY%237WeJEHA.232@TK2MSFTNGP12.phx.gbl...
BringWindowToTop FindWindow(vbNullString, "Ici le titre de la
fenêtre")
Le focus apparaît et disparait aussi tôt...
--
@+
HD
Bonjour HD; Essaie: Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long Putfocus FindWindow(vbNullString, "Ici le titre de la fenêtre")
MP
"HD" a écrit dans le message de news:uYY%
BringWindowToTop FindWindow(vbNullString, "Ici le titre de la fenêtre")
Le focus apparaît et disparait aussi tôt... -- @+ HD
HD
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long Putfocus FindWindow(vbNullString, "Ici le titre de la fenêtre")
Un grand MERCI à toi Michel !!! C'est impeccable. -- @+ HD
Private Declare Function Putfocus Lib "user32" Alias "SetFocus"
(ByVal hwnd As Long) As Long
Putfocus FindWindow(vbNullString, "Ici le titre de la fenêtre")
Un grand MERCI à toi Michel !!! C'est impeccable.
--
@+
HD
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long Putfocus FindWindow(vbNullString, "Ici le titre de la fenêtre")
Un grand MERCI à toi Michel !!! C'est impeccable. -- @+ HD