XL 2016 Comment replacer Internet explorer par EDGE?

[KEHREN Seb]

Depuis la fin d'internet explorer qui est remplacé par EDGE : la commande CreateObject("InternetExplorer.Application") ne fonctonne plus
Avez vous une solution?


Option Explicit

Dim web As Object
Set web = CreateObject("InternetExplorer.Application")
web.Visible = True

Do While web.busy And web.readystate <> 4
DoEvents
Loop

pause (10)

Dim redirection As String
redirection = web.locationUrl

redirection = Right(redirection, Len(redirection) - InStr(redirection, "@"))

Dim redirectionSplitee As Variant
redirectionSplitee = Split(redirection, ",")

redirection = Replace(redirectionSplitee(0) & "/" & redirectionSplitee(1), ".", ",")

web.Quit

coordonneesGPS = redirection
End Function

 

[patty58]

Bonjour
Perso, je suis sur Google Chrome par défaut et si je fais cela :

CreateObject("WScript.Shell").Run ("adresse du site auquel tu veux accéder")

Cela m'ouvre l'URL que je demande sur Google.
Peut-être la même chose pour Edge ??

Bonne journée

 

[riton00]

Bonjour,

Sur Windows 10 ou 11

Clique sur le bouton "Démarrer"

Sélectionne "Paramètres" (icône en forme d'engrenage).

Dans la fenêtre Paramètres, choisir "Applications".

Dans le volet de gauche, clic sûr "Applications par défaut".

Puis Sous "Navigateur web", clic sur l'icône actuellement présent et choisir "Microsoft Edge"

Slts

 

[KEHREN Seb]

Merci pour vos réponses, je testerai vos solutions dès que j’aurai un peu de temps.

 

[Compte Supprimé 979]

Bonsoir KEHREN Seb

Navré pour vous, mais les solutions données ne fonctionneront pas à ma connaissance

Edge n'utilise pas l'interface COM et n'est donc pas pilotable en VBA
Il vous faudra utiliser SeleniumBasic dispo sur GitHub

Automate Chrome / Edge using VBA

A method to automate Chrome (based) browsers using VBA

www.codeproject.com

A+

 

[jm.andryszak]

Bonjour
Ceci fonctionne chez moi.
Sub test()
CreateObject("WScript.Shell").Run ("msedge.exe")
End Sub

 

[Compte Supprimé 979]

Re,

Bonjour
Ceci fonctionne chez moi.
Sub test()
CreateObject("WScript.Shell").Run ("msedge.exe")
End Sub
Regarde la pièce jointe 1186209

Ca permet de lancer Edge... ça oui... et après

 

[patricktoulon]

bonjour
NE PAS OUBLIER L ESPACE APRES "exe"

Sub test()
URL = "https://excel-downloads.com/threads/comment-replacer-internet-explorer-par-edge.20080192/#post-20621236"
CreateObject("WScript.Shell").Run ("msedge.exe " & URL)
End Sub

et au cas ou il y aurait des espaces dans la chaines de l'URL

Sub test()
URL = "https://excel-downloads.com/threads/comment-replacer-internet-explorer-par-edge.20080192/#post-20621236"
CreateObject("WScript.Shell").Run ("msedge.exe """ & URL & Chr(34))
End Sub

 

[KEHREN Seb]

Bonsoir KEHREN Seb

Navré pour vous, mais les solutions données ne fonctionneront pas à ma connaissance

Edge n'utilise pas l'interface COM et n'est donc pas pilotable en VBA
Il vous faudra utiliser SeleniumBasic dispo sur GitHub

Automate Chrome / Edge using VBA

A method to automate Chrome (based) browsers using VBA

www.codeproject.com

A+

En effet, j'ai essayer les deux première solution et cela ne fonction pas.
Je n'ai que le droit t'utiliser EDGE seulement et ne suis pas autorisé à installé seleniniumBasic.
Je ne comprend pas Microsoft qui supprime son logiciel et ne rend pas compatible le nouveau.
Merci pour l'information.
Je vais voir si il y il a une autre solution pour avoir les coordonnées GPS avec 17000 adresse postale.

 

[patty58]

Bonjour à tous,

As-tu essayé la solution de Patrick ??
Elle marche très bien.

Bonne continuation.
Bon week-end à tous.

 

[patty58]

Bonsoir à tous,

@KEHREN Seb,

As-tu réussi à t'en sortir ??
Ce serait sympa pour ceux qui t'ont aidé de le savoir.
Cela pourrait aider d'autres utilisateurs.
Merci et bonnes fêtes.