Bonjour,

Pour m'entrainer suite à la lecture du tuto de qwazerty (http://qwazerty.developpez.com/tutor...-et-vba-excel/) j'ai essayé d'appliquer au site www.seloger.com. Le problème est que je bloque lorsqu'il s'agit de renseigner la ville... Lorsque je renseigne le nom de la ville à la main il y a une liste qui apparaît et l'utilisateur valide le nom qu'il souhaite. En lançant mon code vba cela ne marche pas.

Merci d'avance pour votre aide!!!

Voici le code que je vois sur leur site:
Code html : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
<DIV class="location">
<UL class="location_list"></UL>
<input name="location" tabIndex="5" class="ui-autocomplete-input validate[funcCall[SLG.Utils.Validate.validateAutocomplete]]" id="location_search" role="textbox" aria-haspopup="true" type="text" size="40" autocomplete="off" aria-autocomplete="list" placeholder="Quartier, ville, département ou région" value="Quartier, ville, département ou région" />
<div class="loaderAutocomplete hide" style="text-align: center; padding-top: 10px; padding-right: 0px; padding-bottom: 10px; padding-left: 0px; background-image: none; background-attachment: scroll; background-repeat: repeat; background-position-x: 0%; background-position-y: 0%; background-size: auto; background-origin: padding-box; background-clip: border-box; background-color: rgb(255, 255, 255);">
 <img src="/z/produits/assets/images/common/loader/ajax-loader_32x32.gif" />
</div>
<ul class="ui-autocomplete ui-menu ui-widget ui-widget-content ui-corner-all" role="listbox" aria-activedescendant="ui-active-menuitem" style="left: 0px; top: 0px; display: none; z-index: 11;"></ul>


Voici mon code 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
Sub GetDataSeLoger()
 
    'Déclaration des variables
    Dim IE As New InternetExplorer
    Dim IEDoc As HTMLDocument
 
    Dim InputVille As HTMLInputElement
 
    IE.navigate "http://www.seloger.com"
    IE.Visible = True
 
    WaitIE IE
 
    Set IEDoc = IE.document
 
    Set InputVille = IEDoc.all("location")
    InputVille.value = "Paris (75)"