Discussion :

[lenovo49]

Bonjour,

Il me semble que pour ajouter un login et un mot de passe sur une fenetre
d'accès il doit y avoir mieux que :

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
23
24
25
While lPopupHandle = 0
         DoEvents
         lPopupHandle = FindWindowEx(0, 0&, "#32770", "Nom de ma fenetre")
            Wend
 
            hwnd = FindWindowEx(0, 0&, "#32770", "Nom de ma fenetre")
            hwnd_button = FindWindowEx(hwnd, 0, "Button", "OK")
 
            Application.wait Now + TimeValue("00:00:02")
 
            SetActiveWindow hwnd ' prend la main sur la fenêtre
 
 
    SendKeys "login"
    SendKeys "{TAB}"
    SendKeys "mdp"
    SendKeys "{enter}"
 
            Application.wait Now + TimeValue("00:00:02")
 
 
SendKeys "{NUMLOCK}", True
 
 
SendMessage hwnd_button, BM_CLICK, ByVal CLng(1), ByVal CLng(0) ' click sur le bouton

La fenetre d'accès s'ouvre, je trouve bien son handle et celui du bouton "ok"
qui lui clique correctement mais je n'arrive pas à mettre mon login et mdp...

J'avais l'idée de coller une commande sendkeys mais celle-ci ne fonctionne pas??

Merci d'avance pour vos réponses.

[patricktoulon]

bonjour

regarde plutot du coté de "application.inputbox"

au plaisir

allez on y va

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
 
Dim monlogin
    Dim moncode
    monlogin = Application.InputBox("Enter Votre Login", "LOGIN", "----------")
    If monlmogin = "patrick" Then
        ' demande le code si le login est bon
        GoTo codico
    ElseIf monlogin <> "patrick" Then MsgBox "perdu ca n'est pas le bon login"
        'sort de la sub si c'est pas bon
        Exit Sub
    End If
 
codico:
    moncode = Application.InputBox("Enter Votre code", "CODE", "XXXXXXXX")
    If moncode = "123456789" Then
 
        'action a faire si c'est bon
        MsgBox "coucou c'est le bon code "
    ElseIf moncode <> "123456789" Then
        'action a faire si c'est pas bon
        MsgBox "perdu"
    End If

au plaisir

[lenovo49]

je vais essayer ta méthode demain mais je mets une réserve sur
l'application du "inputbox" dans une une fenêtre style "code d'administrateur".
Ma fenêtre c'est par exemple pour l'accès à un sharpoint de mon boulot.

Merci de ton aide, je te tiens au courant.

Lenovo49

Bonjour,

Effectivement, ce n'est pas ce genre de fentre que je cherche à completer mais plutôt une fenêtre administrateur du style:

[patricktoulon]

bonjour

dans ce cas la je crois que tu va devoir passer par un userform

et créer toi même ta fenêtre

effectivement ma version propose deux fenêtres un pour le login et un pour le code pas très esthetique mais bon c'est fonctionnel

je vais essayer ta version pour voir un peu ce que ça donne

bien qu'elle me semble incomplète


au plaisir

[SfJ5Rpw8]

bonjour

dans ce cas la je crois que tu va devoir passer par un userform

et créer toi même ta fenêtre

effectivement ma version propose deux fenêtres un pour le login et un pour le code pas très esthetique mais bon c'est fonctionnel

je vais essayer ta version pour voir un peu ce que ça donne

bien qu'elle me semble incomplète


au plaisir

Re, Patrick ... relit la question ...lenovo49 ne veut pas créer une fenêtre login/Mot de passe mais il veut saisir son login et son mot de passe dans une fenêtre sharepoint existante ...

[patricktoulon]

bonsoir bill

effectivement tu a raison

je constate que dans sa macro il capte le handle de sa fenetre mais en aucun cas il en prend le focus

peut être la fonction " showwindow" ferait la différence et en plus te la mettrai en avant plan

dans ton cas ça sera la constante 5 je crois

Code :

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

1
2
3
4
 
Declare Function ShowWindow Lib "user32" Alias "ShowWindow" ( _
                 ByVal hwnd As Long, _
                 ByVal nCmdShow As Long) As Long

les constantes qui vont avec

SW_HIDE 0 Cache la fenêtre et en active une autre.
SW_MAXIMIZE 3 Agrandit la fenêtre.
SW_MINIMIZE 6 Réduit la fenêtre et active la prochaine (dans l'ordre des tâches windows).
SW_RESTORE 9 Active et affiche la fenêtre à sa taille et position initiales.
SW_SHOW 5 Active et affiche la fenêtre.
SW_SHOWMAXIMIZED 3 Active et agrandit la fenêtre.
SW_SHOWMINIMIZED 2 Active et réduit la fenêtre.
SW_SHOWNA 8 Identique à SW_SHOW sauf que la fenêtre n'est pas activée.

donc

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Declare Function ShowWindow Lib "user32" Alias "ShowWindow" ( _
                 ByVal hwnd As Long, _
                 ByVal nCmdShow As Long) As Long 
 
sub machin_chose()
 
While lPopupHandle = 0
         DoEvents
         lPopupHandle = FindWindowEx(0, 0&, "#32770", "Nom de ma fenetre")
            Wend
 
            hwnd = FindWindowEx(0, 0&, "#32770", "Nom de ma fenetre")
            hwnd_button = FindWindowEx(hwnd, 0, "Button", "OK")
 
            Application.wait Now + TimeValue("00:00:02")
 
            '
showwindow hwnd, 5
'SetActiveWindow hwnd ' prend la main sur la fenêtre
 
 
    SendKeys "login"
    SendKeys "{TAB}"
    SendKeys "mdp"
    SendKeys "{enter}"
 
            Application.wait Now + TimeValue("00:00:02")
 
 
SendKeys "{NUMLOCK}", True
 
 
SendMessage hwnd_button, BM_CLICK, ByVal CLng(1), ByVal CLng(0) ' click sur le bouton 
 
end sub

mille excuses pour les ratés je suis au bord de l'avc en ce moment

au plaisir