Ciao Anthony47,
tutto ok,
ti volevo chiedere nella macro, il mycoll(13).click andrebbe messo prima
della riga mycoll(13).value=Format(J,"dd/mm/yyyy") o va bene così,
inoltre ho modificato CDate(J) in = Format(J, "dd/mm/yyyy")
perché mi serviva la data in testo
e poi ho modificato l'inizio e fine della data di ricerca in automatico
inizio preso l'ultima data disponibile +1
mentre la fine ho messo=oggi()+1
così non c è' bisogno di impostare ogni volta le date di ricerca.
- Codice: Seleziona tutto
'Compila date:
Set mycoll = IE.document.getelementsbytagname("input")
mycoll(13).Value = Format(J, "dd/mm/yyyy")
mycoll(13).Click
[/color] Application.Wait (Now + TimeValue("0:00:01"))
mycoll(14).Click
Application.Wait (Now + TimeValue("0:00:02"))
' Cells(Rows.Count, "R").End(xlUp).Offset(2, 1).Value = dArr(J)
myOk = False
Call GetWTableCommon2(J)
If myOk Then Cells.Item(Rows.Count, 18).End(xlUp).Offset(0, -1) =CDate(J)
[/color]
Next J