Discussion :

[okrou]

bonjour,

je suis débutant en programmation.
j'exerce dans le domaine agricole et chaque jour je dois renseigner mes données Excel sur un site web. Cela me fait faire un double travail que je souhaiterais simplifier.
Pour cela j'ai commencé à mettre place un programme pour renseigner les zones de texte sur le site web grâce à la formation sur https://qwazerty.developpez.com/tuto...-et-vba-excel/. Mais il y a une zone de texte qui me pose problème.
Le libellé de la zone de texte est "Sous-prefecture". Lorsque je le renseigne avec le 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
Sub ListeDeroulante()
'Selectionner une valeur dans une liste déroulante
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim htmlTagCol As IHTMLElementCollection
Dim htmlSelectElem As HTMLSelectElement
 
 
   'Ouvre la page Web
   IE.Navigate "http://www.cadastre.gouv.fr/scpc/accueil.do"
   IE.Visible = True
   WaitIE IE
   Set IEDoc = IE.document
 
   'On va sur l'objet qui contient la liste des indices
   Set htmlSelectElem = IEDoc.all("indiceRepetition")
 
   'On sélectionne l'indice "ter" via sa valeur unique
   htmlSelectElem.Value = "T"
 
'## Autre solution ##
   'On sélectionne l'indice "ter" via l'index
   htmlSelectElem.selectedIndex = 2

proposé par "www.developpez.net" je ne réussis pas car la zone de texte suivante ne se déroule pas. Il faut d'abord utiliser la souris, la dérouler et cliquer pour qu'une action se produise avec le chargement d'un autre lien.
je suis bloqué aidez moi svp.
je vous envoie :

- en annexe 1 l'image de la page concernée
- en annexe 2;3,4 et 5 l'image des code source.
Je pense que cela pourra vous aider pour me sortir de là.
Je reste à votre disposition pour toutes informations complémentaires

[patricktoulon]

bonsoir

la fonction wait ie elle est ou

voila la totale !! un exemple complet
perso c'est la premiere fois de ma vie que je vois une page web aussi facile a manipuler

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
Sub ListeDeroulante()
'Selectionner une valeur dans une liste déroulante
    Dim IE As Object
    'Ouvre la page Web
    Set IE = CreateObject("internetexplorer.application")
    IE.Navigate "https://www.cadastre.gouv.fr/scpc/accueil.do"
    IE.Visible = True
    Do: DoEvents: Loop While IE.readystate <> 4    'WaitIE IE
    With IE.document
        'le noms des element parle de lui meme
        .all("indiceRepetition").Value = "T"
        .all("numeroVoie").Value = 3
        .all("nomVoie").Value = "boulevard de la roseraie"
        .all("ville").Value = "toulon"
        .all("lieuDit").Value = "st jean"
        .all("codePostal").Value = "83160"
        .all("codeDepartement")(1).selectedindex = 83 + 1
        .all("nbResultatParPage").selectedindex = 3    'correspond a 50
        '
        '
        'pour le codedepartement j'ai mis "(1)" soit le 2d element portant ce nom en effet le label for porte aussi cet id  
        'autrement dit ( .all("codeDepartement") est alors une htmlcollection( d'element))on prend donc le 1 qui est le 2d 
        'le bouton n'a pas de nom pas d'ID pas de class
        'alors on va boucler et rechercher celui qui a le TITLE  ""rechercher"" et cliquer dessus
        'Débloque la ligne dans le for si tu veux cliquer sur rechercher
        For Each elem In .all
            'If elem.Title = "Rechercher" Then elem.Click
        Next
    End With
End Sub

[okrou]

Merci RE
votre méthode ne répond pas toujours à ma préoccupation. la zone de texte "sous préfecture" se renseigne bien mais "Localisation/Village" qui lui est liée ne s'actualise pas.
lorsqu'on renseigne la zone de texte "sous préfecture" avec le clavier ou la sourie la page s'actualise et la zone de "Localisation/Village" se met à jour. cela n'est pas le cas pour votre méthode.
je reste toujours à l'écoute

[okrou]

merci patricktoulon

j'ai l'impression que le site web utilise une fonction pour faire renseigner cette partie de la zone de texte

[patricktoulon]

re
bonjour
tu peux me dire ou est cette (la zone de texte "sous préfecture")
parceque moi je ne l'ai pas sur cette page web

[okrou]

bonjour,
ok, je pense que je me suis fait mal comprendre. on ne travail pas sur le même site. je vous ai envoyé des captures d'écran du site.
j'avais simplement utilisé la méthode de developpez.com sur le site de http://www.science.gouv.fr/.
ma préoccupation est décrite dans les captures d'écran

[patricktoulon]

a oui mais la il nous faut le lien deja popur savoir si le site n'a pas de protection antirobot(vba par exemple)

ensuite les element peuvent etre génrés dynamiquement et se pilote différament
bref le lien ou c'est mort