Discussion :

[NeilujA]

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

[patricktoulon]

bonjour



met ca dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

Salut,

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[geracole]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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