Intéraction Reflection pour IBM et excel.

Bonjour a tous,

Depuis que j'ai commencé ici j'en ai appris un peu mais la je cherche a amélioré mes macros en faisant plus d'automatisation.

Avant je travaillais avec ce code pour allé cherché ma valeur et je la copiais a la main dans mon fichier excel.
Ca fonctionne mais c'est une procédure a répété 300 fois alors c'est un peu long.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub tessss()
'
' Généré par Reflection for IBM pour Windows 10.0.244
'
    With Session
        .SetMousePos 23, 8
        .TerminalMouse rcLeftClick, rcMouseRow, rcMouseCol
        .GraphicsMouse rcLeftClick, rcCurrentGraphicsCursorX, rcCurrentGraphicsCursorY
        .WaitForEvent rcEnterPos, "30", "0", 23, 8
        .WaitForDisplayString "NEXT:", "30", 23, 2
        .TransmitANSI "vmqa"
        .Paste
        .TransmitTerminalKey rcIBMEnterKey
        .SetMousePos 3, 77
        .WaitForEvent rcKbdEnabled, "30", "1", 1, 1
        .WaitForEvent rcEnterPos, "30", "0", 23, 8
        .WaitForDisplayString "NEXT:", "30", 23, 2
        .SelectWord rcMouseRow, rcMouseCol
        .CopySelection
    End With
End Sub

La je voudrais que ma macro aille chercher dans mon fichier les numero de ''chassis'' (colonne a) et qu'il et qu'il copie les valeur du ''statut'' dans la colonne c.

J'ai commencé a écrire cela a partir de code que j'ai trouvé sur le web mais c'est clairement incomplet. Si quelqu'un pourrait-il m'aider a remplir et corrigé mon code ça m'aiderait a comprendre comment faire ces interactions.

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub APPH()
'
' Généré par Reflection for IBM pour Windows 10.0.244
'
Dim chassis As Integer
Dim statut As String
 
 
Set Excel = CreateObject("EXCEL.APPLICATION")
Excel.Visible = True
 
'Folder *******************************************************************
Excel.Workbooks.Open Filename:="C:\Users\cosmicmurder\Documents/APPH.xlsx"
'**************************************************************************
 
'Bloque Excel
Excel.Application.Interactive = True
 
 
With Application
 
  With Session
 
  chassis = Excel.Sheets("SearchCriteria").Range("A3")
 
 .SetMousePos 23, 8
        .TerminalMouse rcLeftClick, rcMouseRow, rcMouseCol
        .GraphicsMouse rcLeftClick, rcCurrentGraphicsCursorX, rcCurrentGraphicsCursorY
        .WaitForEvent rcEnterPos, "30", "0", 23, 8
        .WaitForDisplayString "NEXT:", "30", 23, 2
        .TransmitANSI "vmqa"
        .TransmitANSI chassis
        .TransmitTerminalKey rcIBMEnterKey
        .SetMousePos 3, 77
        .WaitForEvent rcKbdEnabled, "30", "1", 1, 1
        .WaitForEvent rcEnterPos, "30", "0", 23, 8
        .WaitForDisplayString "NEXT:", "30", 23, 2
        .SelectWord rcMouseRow, rcMouseCol
        .CopySelection
        statut = .GetClipboardText
 
 
    End With
    End With
 
'Débloque Excel
'Excel.Application.Interactive = True
End Sub