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