white-spirit
XLDnaute Occasionnel
Bonjour le Forum,
j'utilise la procédure suivante (avec raccourcis clavier) pour masquer ou réafficher la barre des taches Windows;
Private Declare Function FindWindowEx& Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1&, ByVal hWnd2&, ByVal lpsz1$, ByVal lpsz2$)
Private Declare Function ShowWindow& Lib "user32" (ByVal hwnd&, ByVal nCmdShow&)
Sub FullScreenControleF()
' Touche de raccourci du clavier: Ctrl+f
Application.DisplayFullScreen = True
ShowWindow FindWindowEx(0, 0, "Shell_TrayWnd", vbNullString), 0
End Sub
Sub NormalScreenControleN()
' Touche de raccourci du clavier: Ctrl+n
Application.DisplayFullScreen = False
ShowWindow FindWindowEx(0, 0, "Shell_TrayWnd", vbNullString), 5
End Sub
Lors du réaffichage de la barre avec (Ctrl+n), la feuille Excel n'a plus le focus, je dois le rétablir en cliquant dans la feuille...
et ça ne m'arrange pas ! Comment compléter le code pour réactiver le focus directement ??
Si qq'un connait une solution .....
Merci d'avance
Cordialement
WS
j'utilise la procédure suivante (avec raccourcis clavier) pour masquer ou réafficher la barre des taches Windows;
Private Declare Function FindWindowEx& Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1&, ByVal hWnd2&, ByVal lpsz1$, ByVal lpsz2$)
Private Declare Function ShowWindow& Lib "user32" (ByVal hwnd&, ByVal nCmdShow&)
Sub FullScreenControleF()
' Touche de raccourci du clavier: Ctrl+f
Application.DisplayFullScreen = True
ShowWindow FindWindowEx(0, 0, "Shell_TrayWnd", vbNullString), 0
End Sub
Sub NormalScreenControleN()
' Touche de raccourci du clavier: Ctrl+n
Application.DisplayFullScreen = False
ShowWindow FindWindowEx(0, 0, "Shell_TrayWnd", vbNullString), 5
End Sub
Lors du réaffichage de la barre avec (Ctrl+n), la feuille Excel n'a plus le focus, je dois le rétablir en cliquant dans la feuille...
et ça ne m'arrange pas ! Comment compléter le code pour réactiver le focus directement ??
Si qq'un connait une solution .....
Merci d'avance
Cordialement
WS