Hi,

I have a macro that navigates a website and imputs the date.
I have tried to link it to the information in a cell but it does not
work can someone help please below is my code!!


Code:
--------------------
Sub HiltonBracknell()



Dim ie As Object


Set objWSS = CreateObject("WScript.Shell")
Set ie = CreateObject("InternetExplorer.Application")

With ie
.Visible = True
.navigate "https://www.hilton.co.uk/Reservation/300_CheckAvailability.jsp?hid=11001804"
Do While busy: DoEvents: Loop
Do While .ReadyState < 4: DoEvents: Loop
With document.Forms("checkavailabilityform")
.day1.Value = Worksheets("setup").Range("C59")
.monthYear1.Value = Worksheets("setup").Range("C60")
.day2.Value = Worksheets("setup").Range("C61")
.monthyear2.Value = Worksheets("setup").Range("C62")
.submit

End With
--------------------


--
gunny1979
------------------------------------------------------------------------
gunny1979's Profile: http://www.excelforum.com/member.php...o&userid=32932
View this thread: http://www.excelforum.com/showthread...hreadid=529312

Hi,

What I can say about your code is:

Write ".Busy" instead of "busy"
Write ".document", instead of "document"
Write the month as "200605" rather than "May 2006"

With these changes it worked for me ...

Hope this helps

"gunny1979" напи�а:


Hi,

I have a macro that navigates a website and imputs the date.
I have tried to link it to the information in a cell but it does not
work can someone help please below is my code!!


Code:
--------------------
Sub HiltonBracknell()



Dim ie As Object


Set objWSS = CreateObject("WScript.Shell")
Set ie = CreateObject("InternetExplorer.Application")

With ie
.Visible = True
.navigate "https://www.hilton.co.uk/Reservation/300_CheckAvailability.jsp?hid=11001804"
Do While busy: DoEvents: Loop
Do While .ReadyState < 4: DoEvents: Loop
With document.Forms("checkavailabilityform")
.day1.Value = Worksheets("setup").Range("C59")
.monthYear1.Value = Worksheets("setup").Range("C60")
.day2.Value = Worksheets("setup").Range("C61")
.monthyear2.Value = Worksheets("setup").Range("C62")
.submit

End With
--------------------


--
gunny1979
------------------------------------------------------------------------
gunny1979's Profile: http://www.excelforum.com/member.php...o&userid=32932
View this thread: http://www.excelforum.com/showthread...hreadid=529312