VBA et Edge W10

Bonjour à tous,

Je vous expose la situation,
J'ai un pc sous W10 et je souhaiterais monter un programme VBA en interaction avec Edge sur le même principe qu'avec IE.

Je choisis Edge car le site avec lequel je souhaite travailler ne fonctionne que sur Edge ou Firefox.

Es-ce donc possible ?

Merci et bonnes fêtes

bonjour



met ca dans un module standard

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test() Getfentre End Sub   Public Function Getfentre(Optional url As String = "") As Object Dim objShell As Object, obj As Object Set objShell = CreateObject("shell.application") For Each obj In objShell.Windows 'test de la presence de IE dans les treads   Debug.Print obj.Locationurl   Next obj End Function

---

ferme toutes tes fenetres autres que exel

lance edge sur une page quelquonque
ensuite lance la sub test
si dans le debug tu a l'url qui a ete lancé dans edge je te dirais comment il faut faire

Salut,

Edge etant une evolution de IE, le code devrait etre tres simple et limite encore utilisable :)

bonsoir jean philippe andré

edge n'ayant pas encore et peu etre jamais de com ,il est pas possible de l'instancier en object createobject("edge.application ")

j'ai pensé que que le lancant avec shell ou shellexecute voir meme run et que si avec ma routine on arrive a capter l'url alors je pense que que l'on peut agir sur le document

j'aurais besoins de testeurs pour ca
le test dans ma precedente reponse devrait repondre a la question
n'ayant pas W10 je ne peux tester

exemple:
remplacer le chemin de internet explorer par le chememin de edge

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim objShell As Object, obj As Object, Url$, ret# Url = "https://www.developpez.net/forums/" ret = Shell("C:\Program Files (x86)\Internet Explorer\iexplore.exe " & Url, 1) Set objShell = CreateObject("shell.application") For Each obj In objShell.Windows Debug.Print obj.Name Debug.Print obj.Locationurl Next obj End Sub

---

Bonjour,

J'ai finalement réussit en désactivant le mode de compatibilité dans IE, il se mettait en compatibilité IE7 et j'ai forcé sur la dernière version d'IE le site fonctionne donc :). Il me reste une étape : l'upload d'un fichier via VBA sur un site sans passer par la fenêtre pop-up de sélection du fichier.

Citation:

---

Envoyé par NeilujA

Bonjour,

J'ai finalement réussit en désactivant le mode de compatibilité dans IE, il se mettait en compatibilité IE7 et j'ai forcé sur la dernière version d'IE le site fonctionne donc :). Il me reste une étape : l'upload d'un fichier via VBA sur un site sans passer par la fenêtre pop-up de sélection du fichier.

---

Bonjour,

Suite à la dernière annonce de MicroSoft de ne plus utiliser IE, mais Edge, je me demande comment remplacer mon code utilisant IE par celui utilisant Edge.
NeuiljA, tu dis que ton code écrit avec IE fonctionne sous Edge.
Peux-tu nous en dire plus ?
1. Comment instancier Edge ( new quoi ?)

Code:

---

1 2	Dim IE As InternetExplorer IE.navigate "https://www.lemonde.fr/"

---

2. Tu parles de mode de comptabilité, de quoi IE, Edge ?
Merci.