Activate this popup html

[clif]

Sub abc()

Application.ScreenUpdating = False

Dim wb As Workbook
Dim ws As Worksheet
Dim a As Integer


Set wb = ThisWorkbook
Set ws = wb.Sheets("abc")

For a = 5 To 100

Dim objIe As Object, xobj As HTMLDivElement
'Set objIe = CreateObject("InternetExplorer.Application")
Set objIe = New InternetExplorerMedium

objIe.Visible = True
objIe.navigate ws.Cells(1, 2).Value


While objIe.Busy: DoEvents
Wend
Do
Loop Until Not (objIe.Busy)



Application.Wait (Now + TimeValue("0:00:03"))
objIe.document.all(ws.Cells(2, 2).Value).Value = ws.Cells(a, 1)
Application.Wait (Now + TimeValue("0:00:02"))
objIe.document.all(ws.Cells(3, 2).Value).Click
Application.Wait (Now + TimeValue("0:00:05"))
objIe.document.getElementById(ws.Cells(4, 2).Value).Click







then popup html

How to activate this popup html and input the data into this by using excel vba?

Thanks!

[snb]

A quoi bon ?

[clif]

A quoi bon ?
???