2 pièce(s) jointe(s)
Tranformer script "wintask" en language VBA
Bonjour, est ce que quelqu'un pourrait m'aider : pour automatiser une saisie de données fastidieuse d'excel vers un site internet j'ai eu recours à wintask (parce que je ne sais pas creer ce genre de macro toute seule) mais je n'ai qu'une version d'essai qui va se finir dans pas longtemps et en plus ça beug en zapant de saisir certaines cellules.
J'explique un peu j'ai des déplacements professionnels que je dois saisir une à une sur le site du comptable (à partir d'un tableau excel sur mon pc)
Pièce jointe 585138
chaque ligne est saisie dans une fenêtre et il faut ajouter un trajet à chaque fois.
Pièce jointe 585137
j'ai ce script sur wintask
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
| Dim motif$(100)
Dim client$(100)
Dim dat$(100)
Dim origine$(100)
Dim destination$(100)
Dim distance$(100)
Dim commentaire$(100)
fichier$="Classeur1.xlsx"
ReadExcel(fichier$,"A2:A100",motif$())
ReadExcel(fichier$,"B2:B100",client$())
ReadExcel(fichier$,"C2:C100",dat$())
ReadExcel(fichier$,"D2:D100",origine$())
ReadExcel(fichier$,"E2:E100",destination$())
ReadExcel(fichier$,"F2:F100",distance$())
ReadExcel(fichier$,"G2:G100",commentaire$())
StartBrowser("IE", "https://ecl.fizen-expert.fr/frais-kilometriques/deplacements")
i=0
repeat
UsePage("Mes indemnités kilométriques | Fizen-expert")
ClickHTMLElement("A[INNERTEXT= 'Ajouter un trajet']")
WriteHTML("INPUT TEXT[NAME= 'ecl_mileage_trip[rea']", motif$(i))
WriteHTML("INPUT TEXT[NAME= 'ecl_mileage_trip[cus']", client$(i))
WriteHTML("INPUT TEXT[NAME= 'ecl_mileage_trip[fro']", origine$(i))
WriteHTML("INPUT TEXT[NAME= 'ecl_mileage_trip[to]']", destination$(i))
WriteHTML("INPUT TEXT[NAME= 'ecl_mileage_trip[dis']", distance$(i))
WriteHTML("INPUT TEXT[NAME= 'ecl_mileage_trip[com']", commentaire$(i))
WriteHTML("INPUT TEXT[NAME= 'ecl_mileage_trip[dat']", dat$(i))
ClickHTMLElement("BUTTON[INNERTEXT= 'Valider le trajet']")
Pause 10 sec
i=i+1
until motif$(i)="" |
est-ce que quelqu'un pourrait m'aider pour créer une macro avec ce "charabia"
Merci d'avance
