open ms edge with a specific account

[diegomarino]

hi, i use a lot of "application.followhyperlink" to open ms edge.
I have two accounts in edge, it is possible to open edge with a specific account? i can't find anything on web

[Welshgasman]

You could use the Shell command instead with required profile?
https://answers.microsoft.com/en-us/...9-9978e512f045

[diegomarino]

good idea. I'm not familiar with shell honestly, i tried those

   shell("C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe", --profile-directory=Profile 1)

or

   'CreateObject("Shell.Application").ShellExecute "C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"  --profile-directory=Profile 1

not working. hovwever, i want to open a specific link, beside opening a specific account

[Welshgasman]

Well the url follows the program command? Likely after the profile argument.
Experiment in the immediate windo.

[diegomarino]

i mean, i didn't try at all to start the url, those codes does not work, the line is red and i get the prompt. they cannot be written in that shape

[Welshgasman]

Well on the first one I'd expect everything to be within double quotes? Google the syntax. I am in a hospital car park, and cannot do too much on my phone, no Access access.

[diegomarino]

i'm sorry, i hope everything is alright

the only stuff working is

   CreateObject("Shell.Application").ShellExecute "microsoft-edge:" & Me.Linkedin

where "me.linkedin" is the url i want to open. I have to figure out how to select the edge profile i want

[diegomarino]

sorry, no one can help me? i'm putting code randomly with (unsurpriseling) without success

[Welshgasman]

i'm sorry, i hope everything is alright

the only stuff working is



where "me.linkedin" is the url i want to open. I have to figure out how to select the edge profile i want

Nothing wrong with me. I am a volunteer community driver and take people to hospital appointments, wait for them and take them home. While waiting, I tend to look at various forums on my phone, but am limited as to what I can do.

From what I posted previously

 shell("C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe  --profile-directory=Profile 1 "  & Me.tstUrl)

all of which can be tested in the immediate window I should expect?
However you will need to locate where the profiles are stored?

Open Edge and About and enter 'edge://version/' to get the profile path needed.

https://docs.microsoft.com/en-us/dep...directory-vars

Also look in Edge edge://settings/profiles/multiProfileSettings?search=profile

[Micron]

No idea how to do this, but that link is for a command line switch in a shortcut? Would not think that it's compatible syntax for vba.
Maybe the solution is to run the shortcut instead of trying to code the profile choice?

[diegomarino]

thank you both, i can't even use the immediate windows, the line get red and i see the prompt. i dunno, maybe i'll search more in a more specific forum (if exist some shell forum :-D) then i'll post here

[Welshgasman]

thank you both, i can't even use the immediate windows, the line get red and i see the prompt. i dunno, maybe i'll search more in a more specific forum (if exist some shell forum :-D) then i'll post here

You can use the immediate window as soon as you open Access?
Hard code the url for now, or set a a variable. For some reason I always use tt

tt="www.bb.co.uk"
shell("C:\Program Files\Microsoft\Edge\Application\msedge.exe  --profile-directory=Profile 2 "  & tt)

YOU ​however need to find out what profle you are using?

I did discover that the url goes before the profile argument. https://stackoverflow.com/questions/...ipt-in-windows

C:\Program Files\Microsoft\Edge\Application\msedge.exe www.bbc.co.uk --profile-directory= Profile 1

[diegomarino]

nothing, i'm trying some combination but i get always "file not found",the last one is:

Shell ("C:\Program Files\Microsoft\Edge\Application\msedge.exe https://stackoverflow.com/questions/ask --profile-directory= Profile 1")

[Micron]

WGM, have you actually got this to work in vba?

EDIT this seems to work but in a couple of hours of testing I ended up creating a new profile. Not sure which one it's using, but my guess is that it's Profile 1

Function testEdgeProfile()
Dim str As String
str = """C:\Program Files (x86)\Microsoft\Edge\Application\msedge.exe"" --profile-Directory=""Profile 1"""
Debug.Print str

Shell (str)

End Function

[Welshgasman]

nothing, i'm trying some combination but i get always "file not found",the last one is:

Shell ("C:\Program Files\Microsoft\Edge\Application\msedge.exe https://stackoverflow.com/questions/ask --profile-directory= Profile 1")

YOU have to use the correct location of Edge?
You had (x86) previously?, that does not exist on this laptop (32 bit), so I had to modify mine to as above. I got the same error when I tried your path?

I am only trying to give you the logic, YOU have to adjust it to your circumtances.