Problème textbox et mot de passe
Salut tout le monde,
J'ai un petit soucis concernant l'édition d'une macro excel qui va exécuter des sendkeys. Le problème c'est que je dois lancer un programme via une macro excel (qui fonctionne). Ce programme, pour se lancer, demande un nom d'utilisateur et mot de passe.
Dans la macro j'ai donc écrit ce programme :
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
| Sub test()
Dim User, Password As String
User = Inputbox("Demande d'utilisateur TN5250J/JDE", "Saisissez votre nom d'utilisateur") 'Saisie du nom d'utilisateur
If User = "machinbidule" Then
Else
MsgBox "erreur"
End If
Frm_Pass.Show 'Saisie du MDP. Pour modifier, au bouton OK du Frm_Pass
If Txt_Pswd = "leMDP" Then
UsrCMD = "" & User & "{TAB}" 'rappel de la saisie User
SendKeys UsrCMD 'Importer la saisie dans TN52/JDE
Application.Wait (Now + TimeValue("0:00:02")) 'Temps de pause 2s
PassCMD = "" & Txt_Pswd & "{ENTER}" 'rappel de la saisie Password
SendKeys PassCMD 'Importer la saisie dans TN52/JDE
Application.Wait (Now + TimeValue("0:00:02")) 'Temps de pause 2s
Else
MsgBox "Erreur"
End If
End Sub |
J'ai fais une userform avec un textbox (avec le paramètre passwordchar = "*") et un bouton ok
Sur le bouton OK j'ai entré le code suivant :
Code:
1
2
3
4
5
6
7
| Private Sub Bouton_OK_Click()
Shell ("D:\Users\NOM\Documents\TN5250J.bat") 'Chemin de TN5250J/JDE
Application.Wait (Now + TimeValue("0:00:05")) 'Temps de pause 5s
End Sub |
Le problème c'est le moment ou je clique sur le bouton ok du UserFrm. Je n'arrive pas à exécuter la suite de la macro. Il m'ouvre bien le logiciel mais ne me copie pas les données.
Comment faire pour remédier à cela? Je ne m'y connaît pas trop en vb.
P.S: Je sais que pour le moment le nom d'utilisateur et le mot de passe sont indépendant, je remédierai à ca plus tard.
Merci d'avance !
