Bonjour,
J'essaye de mettre au point une macro qui me permettrait d'interagir via une macro avec une application intranet afin d'effectuer des commandes de matériel à partir d'une liste Excel.
Mon problème est que je n'arrive pas accéder à l'objet HTML "document" je ne peux donc pas aller saisir mes données dans les zones concernées.
Voici la première partie de mon code :
Sub commande ()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputAZoneTexte As HTMLInputElement
Dim InputABouton As HTMLInputElement
'Chargement d'une page Web
IE.navigate "http://e(j'ai caché l'adresse, c'est un site intranet)"
'Affichage de la fenêtre IE
IE.Visible = True
'On attend le chargement complet de la page
WaitIE IE
'On pointe le membre Document
Set IEDoc = IE.document
C'est la que ça devient compliqué à ce niveau le débogueur m'affiche :
Erreur d'exécution -'2147417848 (80010108)
Erreur Automation
L'objet invoqué s'est déconnecté de ses clients.
J'ai mis un espion sur l'objet IE et je m'aperçois qu'il m'indique <aucune variables>
Pourtant j'ai bien les références « Microsoft Internet Controls » et « Microsoft HTML Object Library ».
Et je visualise parfaitement le code HTML via mon navigateur.
D'ailleurs quand je remplace l'URL par celle de google l'espion m'affiche correctement et le code marche bien.
Je pense que le site doit être protégé mais si quelqu'un a une solution elle sera la bienvenue
Merci d'avance
PS : J'utilise Windows 7 professionnel, Excel 2007, internet explorer V8
J'essaye de mettre au point une macro qui me permettrait d'interagir via une macro avec une application intranet afin d'effectuer des commandes de matériel à partir d'une liste Excel.
Mon problème est que je n'arrive pas accéder à l'objet HTML "document" je ne peux donc pas aller saisir mes données dans les zones concernées.
Voici la première partie de mon code :
Sub commande ()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputAZoneTexte As HTMLInputElement
Dim InputABouton As HTMLInputElement
'Chargement d'une page Web
IE.navigate "http://e(j'ai caché l'adresse, c'est un site intranet)"
'Affichage de la fenêtre IE
IE.Visible = True
'On attend le chargement complet de la page
WaitIE IE
'On pointe le membre Document
Set IEDoc = IE.document
C'est la que ça devient compliqué à ce niveau le débogueur m'affiche :
Erreur d'exécution -'2147417848 (80010108)
Erreur Automation
L'objet invoqué s'est déconnecté de ses clients.
J'ai mis un espion sur l'objet IE et je m'aperçois qu'il m'indique <aucune variables>
Pourtant j'ai bien les références « Microsoft Internet Controls » et « Microsoft HTML Object Library ».
Et je visualise parfaitement le code HTML via mon navigateur.
D'ailleurs quand je remplace l'URL par celle de google l'espion m'affiche correctement et le code marche bien.
Je pense que le site doit être protégé mais si quelqu'un a une solution elle sera la bienvenue
Merci d'avance
PS : J'utilise Windows 7 professionnel, Excel 2007, internet explorer V8