Discussion :

[Oliv-]

Bonjour,
Avez-vous un code pour placer un Userform en bas à droite de l'écran ? et qu'il soit toujours visible !

Mon code s’exécute sous EXCEL mais je pilote WORD et j'ai besoin que mon userform NON MODAL soit au dessus de WORD.

Mon code ne fonctionne pas très bien, et pas bien du tout avec XL2016 et W10

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
Private Sub UserForm_Initialize()
    Stop_Macro = False
    mlHwnd = FindWindow("ThunderDFrame", Me.caption)    'Change to match your userforms caption
    Do While mlHwnd = 0
        mlHwnd = FindWindow("ThunderDFrame", Me.caption)    'Change to match your userforms caption
        DoEvents
    Loop
    positionH = application.Height - Me.Height
    positionW = application.Width - Me.Width
 
    Me.Left = positionW
    Me.Top = positionH
   SetWindowPos mlHwnd, -1, 0, 0, 0, 0, &H2 Or &H1
 
End Sub

[BENNASR]

bonsoir
voir ça peut être c'est utile

http://silkyroad.developpez.com/VBA/UserForm/

[pijaku]

Salut Oliv-,

Essaie ceci :

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
17
18
19
20
21
22
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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 Sub UserForm_Activate()
    Stop_Macro = False
    mlHwnd = FindWindow("ThunderDFrame", Me.Caption)    'Change to match your userforms caption
    positionH = Application.Height - Me.Height
    positionW = Application.Width - Me.Width
    Me.Left = positionW
    Me.Top = positionH
End Sub
 
Private Sub UserForm_Initialize()
    Me.StartUpPosition = 0
End Sub

[Oliv-]

Bonjour

MERCI à vous 2 je vais tester sur mon poste en W10.