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

[jpenja]

Merci de vous être penchez sur mon pb.Je n'arrive toujours pas à masquer ce formulaire.Peut-être que je ne mets pas le code au bon endroit, mais j'ai l'impression que comme le précise jfontaine le userform etant rattaché au classeur celà n'est pas possible.
Au risque de paraître ignare c quoi exactement une API?

[fred65200]

Bonjour, ton code doit être placer dans ton userform,
les lignes de type Private Declare Function tout à fait en haut.


Pour les Apis http://fr.wikipedia.org/wiki/Interface_de_programmation

fred65200

[jpenja]

merci fred65200 CA MARCHE