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)
Nom : TABLEAU.PNG
Affichages : 265
Taille : 30,2 Ko

chaque ligne est saisie dans une fenêtre et il faut ajouter un trajet à chaque fois.
Nom : FRAIS KILOM.png
Affichages : 248
Taille : 11,0 Ko



j'ai ce script sur wintask

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
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