[VBA/HTML] SET de champ qui marche en F8 mais pas en F5

Marsh Posté le 30-10-2017 à 11:59:06

Bonjour tout le monde,

J'ai un petit probleme (Sinon je ne serais pas la), J'essaie de remplir un champ dans un formulaire HTML a partir d'un word, jusque la rien de complique.

J'ai presque fini la macro VBA mais je n'arrive pas a set le champ que je veux remplir quand j'execute ma macro avec F5, mais tout marche quand je fais un F8 pour la demarrer ...

Je vous joint la 1er partie ou ca bloque, avec un bout du code HTML de la page.

Code :

Dim htmlSelectElem As HTMLInputElement
Set htmlSelectElem = IEDoc.all("summary4" )
If Not Left(cc.Range, 7) = "Cliquez" Then
IEDoc.all("summary4" ).Value = cc.Range

Code :

<input name ="summary" id="summary4" style="WIDTH" 49.7em" type="text"></input>

Si je lance avec F5 la macro s’arrête sur le IEDoc.all("summary4" ).Value = cc.Range et htmlSelectElem reste a nothing en valeur, comme si le set passait a la trap =/
Si vous avez des idées etc, je suis a l’écoute.

Edit: normalement je fais un htmlSelectElem.Value = cc.Range mais je voulais test directement avec le IEDoc.all("summary4" ).

Message édité par lalan28200 le 30-10-2017 à 13:10:36

Reply

Marsh Posté le 30-10-2017 à 11:59:06

Reply

Marsh Posté le 30-10-2017 à 17:08:26

Bon j'ai fais 1-2 test ..

Code :

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Option Compare Text:
Sub WaitIE(IE As InternetExplorer)
'On boucle tant que la page n'est pas totalement chargée
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
End Sub
Sub clickbutton(bouton As HTMLInputElement)
bouton.Click
End Sub
Sub test()
Dim cc As ContentControl
Dim IE As New InternetExplorerMedium
Dim IEDoc As HTMLDocument
Dim htmlSelectElem As HTMLGenericElement
Dim htmlstring As String
Dim InputGoogleBouton As HTMLInputElement
Dim htmlTagCol As IHTMLElementCollection
Dim htmlTagname As IHTMLElementCollection
Dim NbrEntree As Integer
Dim elem As Object
Dim nom As String
Dim chemin As String
chemin = "D:\H590653\Desktop\TMP\"
IE.Visible = True
IE.Navigate "http://jtrac:8080/jtrac/app/"
WaitIE IE
Set IEDoc = IE.Document
Set htmlTagCol = IEDoc.getElementsByTagName("a" )
For Each titre In htmlTagCol
If titre.sourceIndex = "53" Then
Set InputGoogleBouton = titre
clickbutton InputGoogleBouton
WaitIE IE
Exit For
End If
Next
Set htmlSelectElem = IEDoc.all("summary" )
If htmlSelectElem Is Nothing Then Set htmlSelectElem = IEDoc.all("summary4" )
If htmlSelectElem Is Nothing Then Set htmlSelectElem = IEDoc.all(64)
If htmlSelectElem Is Nothing Then Set htmlSelectElem = IEDoc.getElementsByName("summary" )(0)
If htmlSelectElem Is Nothing Then
MsgBox "error"
IE.Quit
Set IE = Nothing
Exit Sub
Else
htmlSelectElem.Value = "Test"
End If
IE.Quit
Set IE = Nothing
End Sub

Programme de test.

Si je fais un stop sur "Set htmlSelectElem = IEDoc.all("summary" )" et que je relance directement c'est ok, sinon ca plante sur "htmlSelectElem.Value = "Test""

Message édité par lalan28200 le 30-10-2017 à 17:08:54

Reply

Marsh Posté le 30-10-2017 à 17:17:34

Bon si je met un

Code :

Sleep 100

avant le set c'est ok ... je comprend pas pourquoi, si quelqu'un a une explication je suis preneur.

Reply

Marsh Posté le 31-10-2017 à 11:42:59

Bonjour,

c'est juste un problème d'observation du fonctionnement de la page Web, un souci de synchronisation !
Il faut attendre la disponibilité de l'élément avant de l'appeler ! Via IsObject par exemple …

Reply

Marsh Posté le 31-10-2017 à 13:57:39

Merci beaucoup Marc L, je vais regarder ça.

Reply

Marsh Posté le 31-10-2017 à 15:40:30

Parfois il n'y a pas d'autre choix d'utiliser une temporisation …
Ne pas oublier aussi la propriété Busy d'IE lors de la boucle d'attente du chargement initial de la page.

Voici un exemple sur ce forum combinant tout ceci.

Au passage dans ton code Is Nothing sur une variable objet est équivalent à IsObject …

Message édité par Marc L le 31-10-2017 à 15:44:19

Reply

[VBA/HTML] SET de champ qui marche en F8 mais pas en F5

Sujets relatifs:

Leave a Replay