Discussion :

[iMaTh]

Bonjour à tous, j'ai une fois de plus besoin de votre aide.

j'ai un code qui minimise toutes les fenetres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
objShell.MinimizeAll
Set objShell = Nothing

Maintenant je cherche un code permettant de maximiser une fenetre (une application autre qu'Excel bien evidement).
Je sais que je suis pas loin, mais malgré les recherches je ne trouve pas la solution.

Avez vous une idée ?

[patricktoulon]

bonjour

a tu regarder ou entendu parler des "APIS"

regarde du coté de "findwindow" pour le handle de la fenetre
et "showwindow" pour l'affichage , activation et focus de la fenetre

au plaisir

[iMaTh]

Merci de votre aide j'ai réussie a faire ce que je voulais.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Sub test()
    Dim Handle As Long
    Handle = FindWindow("HostExplorer", "1 - default 3270 (EDC)")
    ShowWindow Handle, 3
End Sub