Ouverture Page Web - Automation Error

Version imprimable

Bonjour à tous!

Je realise une macro VBA Excel me permettant d'ouvrir un site web et de remplir certain champs automatiquement.
Mais mon programme plante au bout de deux lignes...
J'obtiens l'erreur suivante: "Automation error - The object invoked has disconnected from its clients"

Mon code plante à ce niveau la:
Code:

1 2 3 4 5 6 7 8 9 10 'Initialisation des variables Set IE = CreateObject("InternetExplorer.Application") 'Chargement d'une page Web IE.Navigate "http://monserveur.fr.world.nomentreprise:18080" 'Affichage de la fenêtre IE IE.Visible = True
et une fois la ligne IE.navigate passer, paf le message d'erreur au niveau de ma variable IE...
Le site est un site intranet, utilisé au sein de mon entreprise.
Quand j'utilise une page "publique", de type Google, pas de message d'erreur ça fonctionne mais pour un site interne ça ne marche pas...
Et ce n'est pas une question de sécurité ou de blocage macro j'ai vérifié.

Quelqu'un à t-il une solution svp?
Je suis sacrément embêter la...

EDIT: entre temps j'ai migre de XP vers seven (donc migration de version explorer mais pas de excel car j'avais déjà la version 2007), cela peut-être à cause de ça ou pas?
Car l'une de mes macro similaire marchait avant sous XP et maintenant ne fonctionne plus je viens de la retester... (même erreur au même endroit)

08/11/2013, 16h48
EngueEngue

essaie de te connecter via l'ip de ton serveur. Ou alors file nous la totalité de ton code.

Je n'ai pas l'adresse IP car je ne la connais pas je vais essayer de l'obtenir
En attendant, je ne sais pas si cela va t'éclairer, mais voici la totalité de mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
'Initialisation des variables
   Set IE = CreateObject("InternetExplorer.Application")
 
 
'Chargement d'une page Web
IE.Navigate "http://serveur.fr.world.nomEntreprise:18080"
 
'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
 
'On pointe notre Zone de texte
Set InputZoneTexteLogin = IEDoc.all("loginUserName")
 
'On définit le texte que l'on souhaite placer à l'intérieur
InputZoneTexteLogin.Value = ""
 
 'On pointe notre Zone de texte
Set InputZoneTexteMdp = IEDoc.all("loginPassword")
 
'On définit le texte que l'on souhaite placer à l'intérieur
InputZoneTexteMdp.Value = ""
 
'On pointe notre bouton
Set InputBouton = IEDoc.all("buttonSave")

08/11/2013, 16h54
EngueEngue

Bah tu la demandes à ceux qui gèrent l'intranet. A partir de ton code aucune aide possible.
08/11/2013, 17h01
Nelmech

Citation:

Envoyé par EngueEngue

Bah tu la demandes à ceux qui gèrent l'intranet. A partir de ton code aucune aide possible.

Oui la problématique était plus de "Vont-il me la donner", car beaucoup de "parano" de ce côté...
Mais je l'ai eu a partir du nom de l'host (via ligne de commande) et je l'ai essayé dans excel aucun chagement même erreur au même endroit...
16/11/2013, 11h37
AlainTech

Bonjour,

Au vu du message d'erreur, je pencherais pour une redirection vers une nouvelle fenêtre.
Mais je pense que personne ne pourra t'aider sans accès à ce site.
Essaye déjà de mettre ton IE.Visible = True avant le Navigate et fais du pas-à-pas pour observer ce qui se passe.
11/12/2013, 14h44
Nelmech
Hello,

J'ai testé de mettre le "IE.visible" avant et effectivement ça ne plante pu au même endroit.
Je fais toujours du pas à pas quand je teste du code et j'ai l'erreur suivante maintenant "Automation Error- The interface is unknown" a la ligne de code suivante.
Code:

1 2 3 'On pointe le membre Document Set IEDoc = IE.Document
18/04/2014, 14h04
Nelmech

Trés vieux post mais probléme tellement récurrent sur le net que je pense que cette solution pourra servir à plus d'une personne.
Il suffit de declarer l'objet Internet Explorer comme:

Code:

Set ie = New InternetExplorerMedium

Et l'erreur ne se pose plus...