Code opens new window url as opposed new window in new tab

[ipbr21054]

Hi,
I am using this code below which works but need some advice to edit it if i may.

Sub OpenSuzukiEpc()

 
  Dim chromePath As String
 
  chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
 
  Shell (chromePath & "https://partsouq.com/en/catalog/genuine/locate?c=Suzuki")

End Sub

Currnetly i have Chrome open with 3 tabs.
When i click on the image logo & this code runs i would like it to just open a new tab so i then have 4 tabs in use BUT what happens is a new chrome window open with the url on its own tab

 

[Dan_W]

Hi - I think you just need to add --URL after the ChromePath and before the URL, so your code could read:

Sub OpenSuzukiEpc()
    Dim chromePath As String
    chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""
    Shell chromePath & " --url https://partsouq.com/en/catalog/genuine/locate?c=Suzuki"
End Sub

Let me know if that works.

 

[ipbr21054]

Hi
That does the same as my code in which a new chrome opens with just the 1 new url

 

[Dan_W]

Don't know what to tell you - I ran the code three times, and each time it opened in a new tab in an existing instance of Chrome...

 

[ipbr21054]

Hi,

Ive removed some sheets / info so you can try my file.
You will see the S image for which the code is on.
If you need to have it like how you have it on your file then please edit etc & i will use that thanks.

Download it from here please

TEST WORKSHEET

 

[Dan_W]

Hi - I downloaded the workbook, and I didn't even need to edit anything. Trying out your original code, it still opens in the same browser for me each time. This suggests to me that perhaps it has something to do with your browser settings? I don't know if this helps at all, or has any effect, but my browser settings in Chrome have it set to continue where I left off. I know this relates to Startup, but it's maybe worth a try?

 

[ipbr21054]

Strange.

Do you use Firefox ?
Just wondering if its the same

 

[Dan_W]

Yes. I only recently installed it too. I tried the following code and each time it opened in a new tab in an existing window:

Sub OpenURL()
    Dim url As String, FFPATH As String
    
    url = "https://partsouq.com/en/catalog/genuine/locate?c=Suzuki"
    
    FFPATH = "C:\Program Files\Mozilla Firefox\firefox.exe"
    Shell FFPATH & " " & url, vbNormalFocus
End Sub

 

[ipbr21054]

Hi,
Thanks for your time.
That worked fine so i will use Firefox.

Have a nice day

 

[Dan_W]

Thank you. I'm glad that at least something is working for you!