si tu connais le titre de chacune de tes fenetre, tu peux essayer ainsi:
Declare Function GetActiveWindow Lib "user32" () As Long Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( ByVal nom_classe As String, ByVal nom_fenetre As String) As Long 1) obtenir le handle de tes fenêtres
handle = findwindow(vbnullstring, "Fenetre1") ' attention titre exact, respecter la casse
2) handle de la fenêtre active:
r = GetActiveWindow
if handle = r then => c'est la fenetre qui est active
voilà en espérant répondre à ta question:
slts!
API @ la Loupe
[ Lien ]