Discussion :

[ali_tmg]

Bonjour tout le monde,

J'essaye actuellement de coller une ligne dans un logiciel que j'ai, mais le problème que je rencontre est que ce logiciel ne reconnait pas le SendKeys "{ENTER}" ou le SendKeys "~".

J'ai testé ce code sous WordPad, et le SendKeys est bien détecté dans ce cas. Je n'arrive pas à voir d'ou vient le problème, malheureusement.

Voici mon code :

commande = CStr(TextBox1.Text) 'On recupere le TextBox1, caste en string, dans la variable "commande"

m_hWnd = FindWindow(vbNullString, "INTITULE DE LA FENETRE A METTRE EN PREMIER PLAN")
Call SetForegroundWindow(m_hWnd)
Call ShowWindow(m_hWnd, SW_RESTORE)

SendKeys (commande) 'On colle la commande tapee dans le TextBox1 par l'utilisateur
Application.Wait DateAdd("s", 1, Now())
SendKeys "{ENTER}"

Merci d'avance de vos futures réponses !

A.

[ali_tmg]

Problème résolu avec un keybd_event !

keybd_event vbKeyReturn, 0, 0, 0
keybd_event vbKeyReturn, 0, KEYEVENTF_KEYUP, 0

en lieu et place du Sendkeys.