XL 2016 Comment replacer Internet explorer par EDGE?

KEHREN Seb · 10 Décembre 2023

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 · 10 Décembre 2023

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

VB:

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 · 10 Décembre 2023

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 · 13 Décembre 2023

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

Compte Supprimé 979 · 14 Décembre 2023

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 · 14 Décembre 2023

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

Compte Supprimé 979 · 14 Décembre 2023

Re,

jm.andryszak à dit:
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 · 14 Décembre 2023

bonjour
NE PAS OUBLIER L ESPACE APRES "exe"

VB:

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

VB:

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 · 14 Décembre 2023

BrunoM45 à dit:
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 · 15 Décembre 2023

Bonjour à tous,

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

Bonne continuation.
Bon week-end à tous.

patty58 · 23 Décembre 2023

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.

XL 2016 Comment replacer Internet explorer par EDGE?

KEHREN Seb

XLDnaute Nouveau

patty58

XLDnaute Occasionnel

riton00

XLDnaute Impliqué

KEHREN Seb

XLDnaute Nouveau

Compte Supprimé 979

Guest

Automate Chrome / Edge using VBA

jm.andryszak

XLDnaute Occasionnel

Compte Supprimé 979

Guest

patricktoulon

XLDnaute Barbatruc

KEHREN Seb

XLDnaute Nouveau

Automate Chrome / Edge using VBA

patty58

XLDnaute Occasionnel

patty58

XLDnaute Occasionnel

Discussions similaires