Discussion :

[cobra 32]

Bonjour a tous;
Je débute a peine sur vba, et suis assurément ignare en programation ,aussi je fait appel a vous pour dans un premier temps m'orienter dans mes recherches et éviter de fair fausse route.

Je doit via excel fair démarrer un programe "telnet" qui permet, entre autre, de pinguer des imprimante etc... Le hic c'est que celui-ci demande un login et un mot de passe, et, l'intéret serait d'automatiser le remplissage du champ login et mot de passe sachant que l'on doit taper sur entrée dans chaque cas.

VBA est il le bon langage via excel?

Merci d'avance
cobra

[cR4ZyB3n]

Bonjour, il semble que cela soit réalisable mais il y a quelques contraintes.

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
Sub connexion()

i = Shell("c:\windows\system32\telnet.exe", vbNormalFocus)
    
    Application.Wait Now + TimeValue("00:00:02")
    Envoi_des_touches "open " & ("mon_adresse_de_connexion")
    Application.Wait Now + TimeValue("00:00:02")
    
    Envoi_des_touches "mon_identifiant"
    Application.Wait Now + TimeValue("00:00:02")
    
    Envoi_des_touches "mon_password"
    Application.Wait Now + TimeValue("00:00:02")
        
End Sub

Sub Envoi_des_touches(ma_chaine As String)
    SendKeys ma_chaine, True ' Envoi ma_chaine à la fenêtre active
    SendKeys "~", True ' Envoi la touche ENTER
End Sub

Il faut rendre à jules ce qui est à César Ce code n'est pas de moi, je l'ai juste adapté à mes besoins ( et françisé au passage )
Le

Code :

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

Application.Wait Now + TimeValue("00:00:02")

permet de laisser le temps à Telnet d'effectuer ses commandes.
Contrainte, un clic sur une autre fenêtre ( perte de focus ) et là, c'est la cata. Les instructions seront envoyées à la fenêtre active.

[cobra 32]

merci bien pour cette réponse, je vais tester cela et vous tien au courant du résultat.

merci encore