Bonjour à tous,
J'utilise VBA pour naviguer sur des sites et poster des annonces de manière automatique.
Voici mon problème : lorsque je rentre des annonces il y a plusieurs menu déroulant en cascade, cad marque -> modèle-> type.
J'arrive a entrer la valeur que je souhaite dans le menu déroulant marque, cependant la page web ne charge pas les différents modèles en fonction de la marque.
J'espère que tout ceci est compréhensif sinon je peux expliqué différement
Quelqu'un pourrais t'il m'aider svp?
Voici mon code :
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 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 IE.Navigate http://www........com"" IE.Visible = True Set IEDoc = IE.Document IE.Navigate "http://www........com" Sleep (5000) 'Choix marque de vente Set htmlSelectElem = IEDoc.all("marque") htmlSelectElem.selectedIndex = 1 'Choix modèle de vente Set htmlSelectElem = IEDoc.all("modèle") htmlSelectElem.selectedIndex = 1
Partager