Discussion :

[hajar1403]

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)


chaque ligne est saisie dans une fenêtre et il faut ajouter un trajet à chaque fois.




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

[mfoxy]

Hello,

Sans avoir accès à la page, c'est assez compliqué de te donner un code fonctionnel.
Apparemment, le site est toujours exploitable via Internet explorer, il serait donc possible de l'automatiser via Vba.

Ici un excellent tuto sur le sujet :

https://qwazerty.developpez.com/tuto...-et-vba-excel/

En cas de soucis, poste peut-être ici le code source de la page d'encodage ( f12 dans IE) que nous puissions mieux t'aiguiller.

Bat,