Bonjour à tous,
Voici ma problèmatique :
-sur un site d'annonce nommé X je dois faire des annonces chaque jour
- tout ce fait tout seul sauf l'importation de photo dans l'annonce, en effet il y alors une boite de dialogue qui s'ouvre sous internet explorer pour choisir un fichier sur mon disque dur local et c'est la que le problème arrive, comment faire ???
Voici le script du code source de la page web en question :
J'ai essayé plusieur procédure comme le FireEvent par exemple mais je n'ai rien trouvé qui fonctionnait ni sur le net ni sur la documentation vba.
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 <script> var uploader = new qq.FileUploader( { element: $('file-uploader'), action: 'doReceivedPhoto.php', allowedExtensions: ['jpg', 'jpeg', 'png', 'gif'], sizeLimit: 10000000, params: {'id': "7192248"}, onComplete: onUploadComplete, onSubmit: function(id, fileName) { $("loadMessage").setStyle({"display" : "block"}); $("noloadMessage").setStyle({"display" : "none"}); }, debug: true }); </script>
Voici une partir de mon code :
J'espère que quelqu'un pourras m'aider car tout ceci est très important pour moi.
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 'Déclaration des variables Dim IE As New InternetExplorer Dim IEDoc As HTMLDocument Dim InputGoogleZoneTexte As HTMLInputElement Dim InputGoogleBouton As HTMLInputFileElement Dim Chemin As String Dim htmlTagCol As IHTMLElementCollection Dim htmlSelectElem As HTMLSelectElement 'Chargement d'une page Web Autocadre IE.navigate "X" IE.Visible = True Do Until IE.ReadyState = 4 DoEvents Loop Set IEDoc = IE.Document 'se loguer sur le site Set InputGoogleZoneTexte = IEDoc.all("login") InputGoogleZoneTexte.Value = "xxx" Set InputGoogleZoneTexte = IEDoc.all("passe") InputGoogleZoneTexte.Value = "xxx"
Mika
Partager