Discussion :

[hs.hs]

Bonjour

j ai ecrit ces lignes de code et on me donne erreur sur bouton.Value = Worksheets("DATA").Range("E" & i).Value.
Dans le range E il y a bien une date exple 29/04/2015
sur la page html invoice date est defini comme dd/mm/yy
au début je croyais que c est ça le probleme mais mem sur la ligne bouton.Value = Worksheets("DATA").Range("D" & i).Value j ai la meme erreur
Quelqun pourra m aider?

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
 For i = 2 To nbElements
 
        Set bouton = IEDoc.getElementsByClassName("submit")(0)
        bouton.Click
 
        Do While ie.Busy
            Application.Wait (Now() + 1 / 3600 / 24)
        Loop
 
 
       Set bouton = IEDoc.all("invoiceDate")
        bouton.Value = Worksheets("DATA").Range("E" & i).Value
 
        Set bouton = IEDoc.all("invoiceNumber")
        bouton.Value = Worksheets("DATA").Range("D" & i).Value

Merci beaucouup

[AlainTech]

Bonjour,

Après avoir cliqué sur Submit, ton IEDoc n'est plus celui d'avant le Submit. Il faut le réassigner.

Comme je l'ai mentionné dans cette discussion:

Après chaque changement de page, il faut répéter la structure suivante:

Code :

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

1
2
3
    WaitIE IE ' Adapter le nom de la variable
    Set IEDoc = IE.document
    WaitDoc IEDoc

avec les 2 procédures d'attente:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub WaitIE(IE As InternetExplorer)
  Do While Not IE.readyState = READYSTATE_COMPLETE
    DoEvents
  Loop
End Sub
 
Sub WaitDoc(doc As HTMLDocument)
  Do While Not doc.readyState = "complete"
    DoEvents
  Loop
End Sub