Discussion :

[Nelmech]

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 :

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

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)

[EngueEngue]

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

[Nelmech]

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 :

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

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")

[EngueEngue]

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

[Nelmech]

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