Discussion :

[damsmut]

Bonjour,

Voici un exemple de code permettant de remplir une page internet :

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
Dim IE As New InternetExplorer
Dim URL As String
URL = "http://test.fr"
 
    'Affiche IE
    IE.Visible = True
 
    'Ouvre la page WEB
    IE.navigate URL
 
    'Attends que la page soit chargée et que internet explorer soit prêt
    Do While IE.readyState <> READYSTATE_INTERACTIVE
        DoEvents
    Loop
 
    Do While IE.readyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
 
 
	'Rempli une textbox1 nommée Type
    IE.Document.all("Type").Value = "1"
 
...

Tout ça fonctionne... le soucis c'est que lorsque l'on est sur la page web "manuellement" lorsque l'on sélectionne un type depuis la liste déroulante, il y'a une nouvelle textbox qui apparaît automatiquement... mais elle n'apparaît pas lors du remplissage avec la macro...

Comment faire ?

merci

A+
Dams'

[Qwazerty]

Salut
Il serait bien que tu indiques un site web ayant le même système que ton site intranet, car si je vais sur le site google par exemple, j'ajoute bien ce que je souhaite dans la case ... mais bien sur il ne déclenche rien de plus.
Si je comprend ton problème, sur ton site intranet, lorsque tu rempli un champs, un autre champs devient visible?
[Edit]
En relisant ta question, je pense que ce fonctionnement est logique, en effet quand tu agis manuellement et que tu sélectionnes une entrée dans le Combox, tu déclenches l'évènement OnSelect de la combo, alors que si tu modifies juste le contenue du champs, tu déclenche le OnChange du combo.[/Edit]
A++
Qwaz

[damsmut]

Salut
Il serait bien que tu indiques un site web ayant le même système que ton site intranet, car si je vais sur le site google par exemple, j'ajoute bien ce que je souhaite dans la case ... mais bien sur il ne déclenche rien de plus.
Si je comprend ton problème, sur ton site intranet, lorsque tu rempli un champs, un autre champs devient visible?
[Edit]
En relisant ta question, je pense que ce fonctionnement est logique, en effet quand tu agis manuellement et que tu sélectionnes une entrée dans le Combox, tu déclenches l'évènement OnSelect de la combo, alors que si tu modifies juste le contenue du champs, tu déclenche le OnChange du combo.[/Edit]
A++
Qwaz

j'ai trouvé le site leboncoin.fr

http://www2.leboncoin.fr/ai/form/0

ici quand tu sélectionnes la région... ça fait pareil... il y'a un champ département qui s'affiche

[Qwazerty]

Salut
En faisant des recherches, je crois etre tombé sur le nid

Pour ton probleme, si tu as regardé un peu lecode source de la page BonCoin, c'est bien ce que je t'expliquer plus haut, le fait de choisir un des item via le code VB, ne declenche pas l'evenement associé, regarde ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

select name="region" onchange="showDepartment('region');" id="region">

Il faut donc trouver le moyen d'appeler le showDepartement de la combobox "region".

[Edit]
Voici déjà pour ton histoire de page sans code source, tu peux ainsi avoir le nam (et plus) des element qui constitue ta page web intranet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
dim NomElement as string
[...]
NomElement  = Docu.activeElement.Name

Et pour ce qui est du combobox, il faut proceder ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Docu.all("Region").selectedIndex = 3
 
    Docu.all("Region").FireEvent "onchange"

[/Edit]
A++
Qwaz

[damsmut]

Salut
En faisant des recherches, je crois etre tombé sur le nid

Pour ton probleme, si tu as regardé un peu lecode source de la page BonCoin, c'est bien ce que je t'expliquer plus haut, le fait de choisir un des item via le code VB, ne declenche pas l'evenement associé, regarde ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

select name="region" onchange="showDepartment('region');" id="region">

Qwaz

Salut,
Effectivement ça j'avais vu... par contre l'évènement déclencheur c'est 'onchange'... donc le fait de changer la valeur devrait normalement déclencher 'showDepartment'... Non ?


... et par contre je n'arrive pas à mettre la main sur ce 'showDepartment'

par ailleurs...
la propriété disabled, elle existe et j'arrive à changer le statuts... rendre une combobox disable ou enable... par contre 'visible' ne marche pas :-(

[Qwazerty]

Salut
Je comprend pas trop ton post, je t'explique justement sur le post d'avant comment changer la valeur et déclencher l'évènement onchange(qui lui appelle showdepartement). J'ai testé sur LeBonCoin et ca fonctionne au poile, je sélectionne Auvergne (normal :p) et après je lance le déclenchement (FireEvent) du Onchange, ce qui provoque l'affichage du 2eme combo jusque la caché.
A++
Qwaz