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