Bonjour
J'ai crée une APP VBA, pour des raisons esthétique et "UserFriendly" je Masque Excel au démarrage du programme. Problème, si l'utilisateur fait alt tab pour aller chercher une info ailleur, bah.. pu moyen d'accèder au Userform (a moins de passer par Gestionnaire des tâches)
J'ai trouvé sur le net quelques lignes de code pour "Minimizer le Userform" c'est cool mais le problème reste le même, en cas de Alt-Tab plus moyen de mettre la main sur le USF.
Voici une photo de ce que j'appelle minimizer
Et si nécessaire le code que j'ai trouvé sur le net:
Private Declare Function FindWindowA Lib "USER32" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "USER32" _
(ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "USER32" _
(ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Option Explicit
Sub FormatUserForm(UserFormCaption As String)
Dim hWnd As Long
Dim exLong As Long
hWnd = FindWindowA(vbNullString, UserFormCaption)
exLong = GetWindowLongA(hWnd, -16)
If (exLong And &H20000) = 0 Then
SetWindowLongA hWnd, -16, exLong Or &H20000
Else
End If
End Sub
Source
Je vous partage le programme au cazou mais sans explication et sans les élements qui vont bien pour le faire tourner je sais pas trop si c'est utile...
mdp = lvp37
Merci, Gabin