Make the exportation of data occur for a chosen date

Make the exportation of data occur for a chosen date

I have Excel code which gets into intranet:
sub TESTE()
Dim Data As Date
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
URL = "(URL address)"
ie.navigate (URL)
Data = Date - 1
ie.document.getElementById("ctl31_ctl04_ctl03_ddDropDownButton").Click '
Calendario
ie.document.getElementById("ctl31_ctl04_ctl03_txtValue").Value =
Format(Data, "dd/mm/yyyy") ' Data
ie.document.getElementById("ctl31_ctl04_ctl00").Click ' Exibir Relatório
URL = "(URL address)"
ie.navigate (URL)
End Sub
However, in the last line of the code, the exportation doesn´t occur by
the chosen date, it always considers today. What can I do to make the
exportation consider a chosen date?