Minimiser Excel et applications en cours

[Christian]

Salut !

Comment minimiser toutes les applications qui tournent en même temps
qu'excel afin de ne voir que mon formulaire e présentation en
premier plan sur le fond du breau en arrière plan ?

Actuellement je ne sais fermé qu'excel…

Feuille ThisWorkbook du projet :

Private Sub Workbook_Open()
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
UserForm1.Show
End Sub

événement_Click du bouton du UserForm :

Private Sub CommandButton1_Click()
Application.WindowState = xlMaximized
AppActivate "Microsoft Excel"
Unload Me
End Sub

 

[STéphane]

bonjour

j'ai trouvé un truc un jour qui équivalait à la combinaison de touches (touche windos + M ou touche windows + D)

je crois qu'il figure maintenant sur <http://dj.joss.free.fr/faq.htm>

je l'ai peut-être mis ici sur mon site <http://xlbysteph.free.fr/aideinformatique/actionbo.htm>

bye
stephane

 

[Christian]

Je n'ai pas trouvé le code pour exécuté ces touches
....

 

[STéphane]

eh bien si pourtant cela y était

voilà un lien direct, je te mets tout de même le code avec.
en espérant que cela puisse te servir.

'http://xlbysteph.free.fr///aideinformatique/news/minAllWindows.txt
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Private Const VK_LWIN = &H5B
Private Const KEYEVENTF_KEYUP = &H2

Private Sub MinimizeWindows()
VK_ACTION = &H4D
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(VK_ACTION, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub

bye
STéphane

 

[Christian]

MERCI beaucoup pour cette rapidité !!!!!!
c'est exactement ça...