Discussion :

[jpenja]

Bonjour,
je voudrais savoir s'il est possible d'afficher une userform crée depuis VBA sous Excel97 dans la barre de tâches de windows.
Merci.

[fred65200]

Juste à coté avec un bouton "Réduire"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
'www.allapi.com
 Private Declare Function FindWindowA& Lib "User32" (ByVal lpClassName$, ByVal lpWindowName$)
 Private Declare Function EnableWindow& Lib "User32" (ByVal hWnd&, ByVal bEnable&)
 Private Declare Function GetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&)
 Private Declare Function SetWindowLongA& Lib "User32" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)
 
 Private Sub UserForm_Activate()
 EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
 End Sub
 
 Private Sub UserForm_Initialize()
 Dim hWnd As Long
 hWnd = FindWindowA(vbNullString, Me.Caption)
 SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
 End Sub

Salutations

[jfontaine]

a ma connaissance non.
La userform faisant partie d'un classeur, elle appartient à excel et n'est donc pas visible comme une application a part entiere

[jfontaine]

Ah si fred65200 a une API qui permet de faire ca