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
| Sub main()
'*****lecture du fichier qui permet de choisir un élément du combo "la variable section"*******
Fichier_reference = "c:\results_1.txt"
Num_Fichier_reference = FreeFile
Open Fichier_reference For Input As Num_Fichier_referenc
While Not EOF(Num_Fichier_reference)
Line Input #Num_Fichier_reference, buffers
If Left(buffers, 1) = "[" Then
section = Mid(buffers, 2, (Len(buffers) - 2))
valeur_reference = LireCleIni(section, "zone1", "c:\results_1.txt")
Window("Application=IMPOTS.EXE Caption='ClickImpôts pro 2006'").Attach
Window.Type "{Alt CRD}{Entree}"
'********** selection dans le combo****
Window("Premis plus - D2042").Attach
ComboBox("Index=1").Select section
'**** mettre ici la possibilité de capturer le montants**
window1 = EditBox().CaptureText
' captext = EditBox.CaptureText()
' MsgBox captext, vbOKOnly
MsgBox window1, vbOKOnly
Button("Caption=&Terminer").Type "{Entree}"
End If
Wend |
Partager