[XL-2007] Userform visible dans Barre des tâches [Résolu]

[puledad1]

Bonjour,

Est-il possible d'avoir un "raccourci" userform dans le barre des tâches.

le problême actuellement, qu'and j'ai plusieurs applications ouvertes, si je clique en dehors de mon userform, je suis obligé de toutes les minimisées pour avoir à nouveau acès a mon Userform... pas très pratique.

J'imagine que c'est tout bête.
Merci d'avance.

[ZebreLoup]

Je ne comprends pas bien, si tu cliques sur l'excel dans la barre des tâches, tu ne reviens pas sur ton userform ?

[AlainTech]

Bonjour,

Si tu as caché l'application Excel, je crois qu'il n'y a pas de solution simple.

Peut-être par les apis mais je n'ai jamais creusé cette piste par manque de temps.

[Theze]

Bonjour,

Avec APIs, la form sera toujours au premier plan dans n'importe quelle application lancée (pas sûr que ce soit idéal ?) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Private Declare Function SetWindowPos _
            Lib "user32" ( _
            ByVal Hwnd As Long, _
            ByVal hWndInsertAfter As Long, _
            ByVal x As Long, _
            ByVal y As Long, _
            ByVal cx As Long, _
            ByVal cy As Long, _
            ByVal wFlags As Long) As Long
 
Private Declare Function FindWindowA _
            Lib "user32" ( _
            ByVal lpClassName As String, _
            ByVal lpWindowName As String) As Long
 
Private Sub UserForm_Initialize()
 
    Dim Position As Long
    Dim Hwnd As Long
    Dim Hauteur As Long
    Dim Largeur As Long
 
    With Me
 
        Hauteur = .Height
        Largeur = .Width
 
        Hwnd = FindWindowA(vbNullString, .Caption)
 
        Position = SetWindowPos(Hwnd, -1, _
                                .Top, _
                                .Left, _
                                .Width, _
                                .Height, 0)
 
        .Width = Largeur
        .Height = Hauteur
 
    End With
 
End Sub

Hervé.

[Theze]

Oups,

J'ai lu trop vite, désolé.
Pour avoir la form dans la barre des tâches :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
Private Declare Function FindWindow _
                Lib "user32" _
                Alias "FindWindowA" ( _
                ByVal lpClassName As String, _
                ByVal lpWindowName As String) As Long
 
Private Declare Function EnableWindow _
                Lib "user32" ( _
                ByVal hWnd As Long, _
                ByVal fEnable As Long) As Long
 
Private Declare Function ShowWindow _
                Lib "user32" ( _
                ByVal hWnd As Long, _
                ByVal nCmdShow As Long) As Long
 
Private Declare Function SetWindowLong _
                Lib "user32" _
                Alias "SetWindowLongA" ( _
                ByVal hWnd As Long, _
                ByVal nIndex As Long, _
                ByVal dwNewLong As Long) As Long
 
Private Declare Function GetWindowLong _
                Lib "user32" _
                Alias "GetWindowLongA" ( _
                ByVal hWnd As Long, _
                ByVal nIndex As Long) As Long
 
 
 
Private Sub UserForm_Activate()
 
    Dim hWnd As Long
 
    hWnd = FindWindow(vbNullString, Me.Caption)
    EnableWindow FindWindow(vbNullString, Application.Caption), True
    ShowWindow hWnd, 0
    SetWindowLong hWnd, -20, GetWindowLong(hWnd, -20) Or &H40000
    Me.Repaint
    ShowWindow hWnd, 5
 
End Sub

Hervé.