Bonjour,
Je cherche à récupérer les données affichés dans un logiciel genre dos et les coller sur une feuille excel. Mon code est dessous.
J'avais un problème de numlock qui est désactivé que j'ai réglé en simulant la ré-activation.
SendKeys "^(v)" fonctionne de manière aléatoire... Avez-vous une idée ?
Merci d'avance,
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 Sub RecupSendKeys() SetForegroundWindow (FindWindow("vt320", vbNullString)) Sleep (10) SendKeys "%(e)", True SendKeys "a", True Sleep (500) SendKeys "%(e)", True SendKeys "c", True AppActivate Application.Caption Sleep (1000) Range("A1").Select Sleep (100) SendKeys "^(v)" Sleep (1000) SetForegroundWindow (FindWindow("vt320", vbNullString)) SendKeys "{NUMLOCK}" End Sub
Partager