AppActivate After opening Web Brower

[gmooney]

Hi,

I have the following code that essentially looks for a downloaded file before launching the URL and automatically downloading a file.

I want the Excel file to return to focus but this code is not and it is staying on the web browser, thus I have to click on Excel from the taskbar. Any ideas how to get Excel back to be displayed?

Sub GetURL()

    Dim NewURL As String
    Dim FollowURL As String

    NewURL = ThisWorkbook.Sheets("Category Review").Range("AP107").Value
    
    CheckforDuplicateDownloadFile
    
    ThisWorkbook.FollowHyperlink NewURL
    
    'Sheets("Instructions").Select
    
    AppActivate "Category Review Builder"
    
    WaitForFileDownload
    
    
    
    BuildMyCategoryReview

 

[johnnyL]

post #42

 

[johnnyL]

I do have to dip for now to get some zzzz's but I will check back in a few to see where this stands.

 

[gmooney]

I do have to dip for now to get some zzzz's but I will check back in a few to see where this stands,

Thanks. Me too. I looked at post 42 and it didn’t appear to be the right post. Thanks @johnnyL for all the help.

 

[johnnyL]

post #42 means upload your file

 

[gmooney]

post #42 means upload your file

Oh I already did and put the link in the post or the next post. Sorry.

 

[Jaafar Tribak]

You can introduce a small pause as follows : (I have set the delay here to (1) second. You may need to slightly fine tune this delay depending on the how fast the browser is launched)

Sub GetURL()

    Dim NewURL As String
    Dim FollowURL As String

    NewURL = ThisWorkbook.Sheets("Category Review").Range("AP107").Value

    CheckforDuplicateDownloadFile

    ThisWorkbook.FollowHyperlink NewURL

    Dim t As Single
    t = Timer
    Do: DoEvents: Loop Until Timer - t >= 1 '<===  wait 1 second (change delay as required.)

    Call BringWindowToFront(Application.hwnd)

    WaitForFileDownload

    BuildMyCategoryReview

End Sub

 

[johnnyL]

Make sure it is the most updated file with the code that @Jaafar Tribak has been working with you.

 

[gmooney]

Make sure it is the most updated file with the code that @Jaafar Tribak has been working with you.

Will do in the morning. Thanks folks! Time for some sleep.

 

[Dan_W]

Ok, that may be what @Dan_W was eluding to, I can't test the 64bit version.

That was indeed what I was alluding to. I would have posted the revised lines of code / conditional compilation, but it was already well past my bedtime, and I didn't expect that there would be so much activity in the intervening hours! Sorry! Hopefully it's all sorted now.

 

[gmooney]

You can introduce a small pause as follows : (I have set the delay here to (1) second. You may need to slightly fine tune this delay depending on the how fast the browser is launched)

Sub GetURL()

    Dim NewURL As String
    Dim FollowURL As String

    NewURL = ThisWorkbook.Sheets("Category Review").Range("AP107").Value

    CheckforDuplicateDownloadFile

    ThisWorkbook.FollowHyperlink NewURL

    Dim t As Single
    t = Timer
    Do: DoEvents: Loop Until Timer - t >= 1 '<===  wait 1 second (change delay as required.)

    Call BringWindowToFront(Application.hwnd)

    WaitForFileDownload

    BuildMyCategoryReview

End Sub

Thank @Jaafar Tribak after changing the timer from 1 to 10 it worked. Once the URL is launched a user has to login thus 1 second was too soon. Appreciate all your help!