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

 

[gmooney]

@gmooney is there a chance that you can upload your workbook for us to see?

I sure can but I think that @Jaafar Tribak just about has me in the end zone! If not I will upload. What are the latest rules on uploading Excel files here? How do we do it these days?

 

[johnnyL]

Just pick a place to upload your file to and then provide the the link to the file here. For example here <---

 

[gmooney]

Just pick a place to upload your file to and then provide the the link to the file here. For example here <---

OK.....So my GetURL code that is commented out is the actual code that needs to fire versus the GetURL code that I used from this forum results from @Jaafar Tribak

Click here

 

[Jaafar Tribak]

OK.....So my GetURL code that is commented out is the actual code that needs to fire versus the GetURL code that I used from this forum results from @Jaafar Tribak

Click here

Discard all the code(s) that you have and use the one I posted in post#38

 

[gmooney]

Discard all the code(s) that you have and use the one I posted in post#38

So I took post 38 and replaced all Module1 code and I do not see the Sub Test code? Should I be running Get URL?

 

[Jaafar Tribak]

So I took post 38 and replaced all Module1 code and I do not see the Sub Test code? Should I be running Get URL?

Yes. You should be running GetURL .. lol

 

[gmooney]

Yes. You should be running GetURL .. lol

OK. Down to the final piece....below is my GetURL and yours. What do I need to take from yours into mine in order to get the Excel to reappear: Remembering that it could be CHrome or Edge browsers?

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

End Sub

'Sub GetURL()
'
'    Dim NewURL As String
'    Dim FollowURL As String
'
'    NewURL = ThisWorkbook.Sheets("Category Review").Range("AP107").Value
'
'    CheckforDuplicateDownloadFile
'
'    With CreateObject("InternetExplorer.Application")
'        .Visible = True
'        .navigate NewURL
'        Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
'        End With
'
'        Call BringWindowToFront(Application.hwnd)
'
'        WaitForFileDownload
'
'        BuildMyCategoryReview
'
'End Sub

 

[johnnyL]

Summarization:

gmooney remaining code

    CheckforDuplicateDownloadFile

    ThisWorkbook.FollowHyperlink NewURL

    'Sheets("Instructions").Select

    AppActivate "Category Review Builder"

    WaitForFileDownload

Jaafar Tribak code

    CheckforDuplicateDownloadFile
'
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate NewURL
        Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
    End With
'
    Call BringWindowToFront(Application.hwnd)
'
    WaitForFileDownload

 

[Jaafar Tribak]

OK. Down to the final piece....below is my GetURL and yours. What do I need to take from yours into mine in order to get the Excel to reappear: Remembering that it could be CHrome or Edge browsers?

Take the second GetURL (ie: my GetURL).
But, this will only work with IExplorer .
I am not familiar with the object model of Chrome or Edge browsers (assuming these browsers expose some Properties like Busy and ReadyState to wait until the page is fully loaded)

Otherwise, you will need to add a pause after launching the url and before calling the BringWindowToFront routine.

 

[gmooney]

Take the second GetURL .
But, this will only work with IExplorer .
I am not familiar with the object model of Chrome or Edge browsers (assuming these browsers expose some Properties like Busy and ReadyState to wait until the page is fully loaded)

Otherwise, you will need to add a pause after launching the url and before calling the BringWindowToFront routine.

Oh wow......sorry @Jaafar Tribak sorry that I didn't make it clear that I was lookfing for Chrome or Edge options here. @johnnyL any ideas?