Discussion :

[azertym]

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 :

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
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 :

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

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 !

[Jean-Philippe André]

Hello,

tes sendkeys sont utilisés pour se déplacer dans tes controls de formulaire, c'est bien cela ?

Auquel cas, pourquoi n'indiques-tu pas directement leur valeur sans passer par des Sendkeys, ce qui peut induire de nombreuses erreurs sur les pertes de focus des applications notamment

[azertym]

Merci pour ta réponse jpcheck . Mes sendkeys pour l'utilisateur et le mot de passe me permettent de les taper de façon automatique à partir d'excel.

En gros je lance la macro excel, excel me demande le nom de l'utilisateur ainsi que le mot de passe qui les écrit dans TN5250J. Si l'utilisateur ne saisie pas les bons codes alors TN5250J ne se lancera pas.

Je ne vois donc pas d'autres solutions pour procéder ainsi, si ?

Mais le problème n'est pas vraiment là, le problème c'est que la suite du programme ne s'exécute pas après avoir cliqué sur le bouton OK.