Logged into Website But Can;t Navigate to Other Pages

Hi,

I have the below which logs me into the website I want succesfully. However, once I am logged in I want to navigate to another page to which I have provided the link for. However, the macro just sits on the page you get after I log in. Have I done something wrong in the code?

Public Sub Launch1()

Dim ieApp As InternetExplorer
Set ieApp = New InternetExplorer

    Const strURL_c As String = "http://www.entermywebsitehere.com"
    Const strUsr_c As String = "entermyusernamehere"
    Const strPwd_c As String = "entermypasswordhere"
    Dim objIE As SHDocVw.InternetExplorer
    Dim ieDoc As MSHTML.HTMLDocument
    Dim tbxPwdFld As MSHTML.HTMLInputElement
    Dim tbxUsrFld As MSHTML.HTMLInputElement
    Dim btnSubmit As MSHTML.HTMLInputElement
    On Error GoTo Err_Hnd

     'Create Internet Explorer Object
    Set objIE = New SHDocVw.InternetExplorer

     'Navigate the URL
    objIE.navigate strURL_c

     'Wait for page to load
    Do Until objIE.readyState = READYSTATE_COMPLETE: Loop

         'Get document object
        Set ieDoc = objIE.document

         'Get username/password fields and submit button.
        Set tbxPwdFld = ieDoc.all.Item("password")
        Set tbxUsrFld = ieDoc.all.Item("username")
        Set btnSubmit = ieDoc.all.Item("OK")

         'Fill Fields
        tbxUsrFld.Value = strUsr_c
        tbxPwdFld.Value = strPwd_c

         'Click submit
        btnSubmit.Click

         'Wait for page to load
        Do Until objIE.readyState = READYSTATE_COMPLETE: Loop
        Err_Hnd: '(Fail gracefully)
          objIE.Visible = True            
            
            
       
       'now that we’re in, go to the page we want (the thing is my macro doesnt seem to run this bit)
    ieApp.navigate "https://www.entermywebsitehere.com/nextpage/SystemMain.php?page=mon&spid=1&realcategoryid=31&tou33"
   Do While ieApp.Busy: DoEvents: Loop
  Do Until ieApp.readyState = READYSTATE_COMPLETE: DoEvents: Loop
             
        End Sub

Thanks Sean but still not working. Another way would be to open a new tab and browse to the url. Is that possible?

Or how would I change the loop's as I think that is what may be causing it. I think it might be trying to go to the page I want before fully logged in?

Yep, I've checked and it is entering my username and password and logging me in fine.

If I remove

   'now that we’re in, go to the page we want (the thing is my macro doesnt seem to run this bit)
    objIE.navigate "https://www.entermywebsitehere.com/nextpage/SystemMain.php?page=mon&spid=1&realcategoryid=31&tou33"
   Do While ieApp.Busy: DoEvents: Loop
  Do Until ieApp.readyState = READYSTATE_COMPLETE: DoEvents: Loop

then everything works as should be. But I obviously need this bit to now go to the page that I want since I am logged in.

Thanks, have it working now.

Last thing....how do I then copy the entire page that loads and paste it into my excel workbook?

I've searched around and came across this, but it doesn't work

ie.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
ie.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
ie.Quit

Range("A1").Select
ActiveSheet.Paste