vba et office 2010
j@c
Petit problème VBA Excel sous Office 2010 :
J'ai une macro simplissime qui se contente d'aller chercher des infos sur
une page html en pilotant internet explorer depuis Excel VBA :
Sub test()
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate ("http://google.fr")
ie.Visible = True
Do While ie.ReadyState <> 4
Loop
Set dct = ie.Document
MsgBox dct.Title
End Sub
La macro, qui fonctionnait correctement depuis des années sous XP, continue
de fonctionner sous W7-Office 2010.
Par contre, si j'essaie de remplacer "http://google.fr" par une bête page
html en local (sur C:), rien ne va plus :
l'objet ie est bien créé, la page html est bien ouverte, mais il semble que
dès l'ouverture de la page, l'objet ie soit supprimé : quand on cherche à
accéder aux propriétés de la page, on reçoit un message d'erreur disant que
l'objet invoqué s'est déconnecté ! (la page html reste ouverte)
Je précise qu'il s'agit d'un ordinateur d'entreprise, et que le test a été
fait dans les mêmes conditions dans une autre entreprise, avec le même
résultat.
On peut imaginer que certains droits d'accès sont restreints pour raisons de
sécurité, mais il est surprenant qu'on puisse accéder à un fichier internet
et pas a un fichier local !
A noter : Excel peut accéder au fichier local sans problème par
Workbooks.open(fichier html local).
Tout ça me semble bien étrange !
J'imagine qu'il y a un paramétrage à faire, mais de quoi ??
D'avance merci
J@C
http://jacxl.free.fr
DanielCo
Ce qui est sￜr, c'est que ce n'est pas une question de droits liￜs ￜ
une entreprise, le problï¿œme se produit ï¿œgalement chez moi.
Cordialement.
Daniel
> Bonjour,
> Petit problï¿œme VBA Excel sous Office 2010 :
>
> J'ai une macro simplissime qui se contente d'aller chercher des infos sur une
> page html en pilotant internet explorer depuis Excel VBA :
>
> Sub test()
> Set ie = CreateObject("InternetExplorer.Application")
> ie.Navigate ("http://google.fr")
> ie.Visible = True
> Do While ie.ReadyState <> 4
> Loop
> Set dct = ie.Document
> MsgBox dct.Title
> End Sub
>
> La macro, qui fonctionnait correctement depuis des annï¿œes sous XP, continue
> de fonctionner sous W7-Office 2010.
>
> Par contre, si j'essaie de remplacer "http://google.fr" par une bï¿œte page
> html en local (sur C:), rien ne va plus :
> l'objet ie est bien crￜￜ, la page html est bien ouverte, mais il semble que
> dￜs l'ouverture de la page, l'objet ie soit supprimￜ : quand on cherche ￜ
> accï¿œder aux propriï¿œtï¿œs de la page, on reï¿œoit un message d'erreur disant que
> l'objet invoquￜ s'est dￜconnectￜ ! (la page html reste ouverte)
>
> Je prￜcise qu'il s'agit d'un ordinateur d'entreprise, et que le test a ￜtￜ
> fait dans les mï¿œmes conditions dans une autre entreprise, avec le mï¿œme
> rï¿œsultat.
> On peut imaginer que certains droits d'accï¿œs sont restreints pour raisons de
> sￜcuritￜ, mais il est surprenant qu'on puisse accￜder ￜ un fichier internet
> et pas a un fichier local !
> A noter : Excel peut accï¿œder au fichier local sans problï¿œme par
> Workbooks.open(fichier html local).
>
> Tout ï¿œa me semble bien ï¿œtrange !
> J'imagine qu'il y a un paramￜtrage ￜ faire, mais de quoi ??
j@c
J@C
"DanielCo" <dcolard...@free.fr> a écrit dans le message de groupe de
discussion : j2dmo7$c0c$1...@speranza.aioe.org...
> Bonjour,
> Ce qui est sûr, c'est que ce n'est pas une question de droits liés à une
> entreprise, le problème se produit également chez moi.
> Cordialement.
> Daniel
>
>
>> Bonjour,
>> Petit problème VBA Excel sous Office 2010 :
>>
>> J'ai une macro simplissime qui se contente d'aller chercher des infos sur
>> une page html en pilotant internet explorer depuis Excel VBA :
>>
>> Sub test()
>> Set ie = CreateObject("InternetExplorer.Application")
>> ie.Navigate ("http://google.fr")
>> ie.Visible = True
>> Do While ie.ReadyState <> 4
>> Loop
>> Set dct = ie.Document
>> MsgBox dct.Title
>> End Sub
>>
>> La macro, qui fonctionnait correctement depuis des années sous XP,
>> continue de fonctionner sous W7-Office 2010.
>>
>> Par contre, si j'essaie de remplacer "http://google.fr" par une bête page
>> html en local (sur C:), rien ne va plus :
>> l'objet ie est bien créé, la page html est bien ouverte, mais il semble
>> que dès l'ouverture de la page, l'objet ie soit supprimé : quand on
>> cherche à accéder aux propriétés de la page, on reçoit un message
>> d'erreur disant que l'objet invoqué s'est déconnecté ! (la page html
>> reste ouverte)
>>
>> Je précise qu'il s'agit d'un ordinateur d'entreprise, et que le test a
>> été fait dans les mêmes conditions dans une autre entreprise, avec le
>> même résultat.
>> On peut imaginer que certains droits d'accès sont restreints pour raisons
>> de sécurité, mais il est surprenant qu'on puisse accéder à un fichier
>> internet et pas a un fichier local !
>> A noter : Excel peut accéder au fichier local sans problème par
>> Workbooks.open(fichier html local).
>>
>> Tout ça me semble bien étrange !
>> J'imagine qu'il y a un paramétrage à faire, mais de quoi ??
MichD
Sous Excel 2010, 64 bits et Windows 64 bits.
J'ai enregistré cette page http://druide.com/ sur le disque dur c:\Druide informatique inc_.htm
Et j'ai testé ta procédure :
'----------------------------------------------
Sub test()
Set ie = CreateObject("InternetExplorer.Application")
'ie.Navigate ("http://google.fr")
ie.Navigate ("c:\Druide informatique inc_.htm")
ie.Visible = True
Do While ie.ReadyState <> 4
Loop
Set dct = ie.Document
MsgBox dct.Title
End Sub
'----------------------------------------------
Conclusion : la page enregistrée sur le disque dur s'ouvre normalement dans le fureteur Internet Explorer.
MichD
------------------------------------------
"j@c" a écrit dans le message de groupe de discussion : 4e4acb62$0$32157$426a...@news.free.fr...
DanielCo
Mais est-ce que tu affiches le msgbox ?
Cordialement.
Daniel
MichD a écrit
MichD
La fenêtre du Message Box affiche l'adresse du site internet : "Druite informatique inc"
MichD
------------------------------------------
"DanielCo" a écrit dans le message de groupe de discussion : j2fqhm$2b0$1...@speranza.aioe.org...
DanielCo
html. Est-ce que tu pourrais vérifier ?
Daniel
MichD
la fenêtre du message demeure vide si le fichier enregistré au format Html était un document Word.
MichD
------------------------------------------
"DanielCo" a écrit dans le message de groupe de discussion : 4e4b9767$0$29531$426a...@news.free.fr...
MichD
La fenêtre du message est vide si j'enregistre un fichier Word au format Html
MichD
--------------------------------------------
"DanielCo" a écrit dans le message de groupe de discussion : 4e4b9767$0$29531$426a...@news.free.fr...
DanielCo
'-2147417848 (80010108)' erreur d'automation, l'objet invoqué s'est
déconnecté de ses clients.
Dans la fenêtre des variables locales, l'objet "ie" apparaît sans
aucune propriété.
Daniel
MichD
Tu pourras lire que le message d'erreur signifie ceci :
'----------------
"Microsoft Excel est l'application serveur. L'erreur est générée par une référence à un objet classeur qui a été détruit
(ou fermé)."
'----------------
As-tu essayé en déclarant la variable Dct de différentes manières ?
Si je regarde dans l'explorateur d'objet "Document" n'est pas une classe objet,
mais une propriété de l'objet "Internet Explorer"
Par exemple, on ne peut pas déclarer la variable
Dim Dct as Document ou Dct As InternetExplorer.Document
Selon que l'application Internet Explorer affiche une vraie page web ou contient
le contenu d'une application "Word" dans notre exemple, il semble y avoir une
différence quant à la manière d'y faire référence...
(Je m'arrête ici... je ne connais pas très bien le modèle objet Internet Explorer...
A )
Dim Dct as Object
'le reste de la macro
B )
En ajoutant la référence : "Microsoft Internet Controls"
Sub test1()
Dim Ie As New InternetExplorer
Ie.Navigate ("c:\Word_Page Web.htm")
Ie.Visible = True
Do While Ie.ReadyState <> 4
Loop
Set dct = Ie.Document
MsgBox dct.Title
End Sub
Je donne cette adresse en complément, cela pourrait intéresser certains...
http://support.microsoft.com/kb/162059
MichD
--------------------------------------------
"DanielCo" a écrit dans le message de groupe de discussion : j2gf1f$hcl$1...@speranza.aioe.org...
j@c
chez moi (ou plutôt au bureau), j'ai le pb de déconnexion quel que soit la
page html, j'ai testé avec une page html réduite à sa plus simple
expression, avec un body et quelques lignes.
Si je place la même page sur internet je l'ouvre et je lis sans pb le
contenu de la page.
Si je la laisse en local, je l'ouvre sans pb, mais une fois ouverte, je
"perds le contact" et ne peux plus rien en faire (message de
déconnexion...). Tout se passe effectivement comme si la page html avait été
fermée (mais elle reste bien ouverte, simplement la connexion est perdue).
Sous XP je n'avais jamais eu ce pb... et ce quelque soit le type de page
html ouverte.
J'imagine qu'il y a un paramétrage à faire de Excel ou de internet
explorer...
J@C
------------------
"MichD" <mich...@hotmail.com> a écrit dans le message de groupe de
discussion : j2gk1h$tnk$1...@speranza.aioe.org...
MichD
| "perds le contact" et ne peux plus rien en faire (message de
| déconnexion...)
| Si je la laisse en local
*** Tu parles d'une page HTML d'une application Word ou Excel que tu affiches dans Internet Explorer. C'est ça ?
Peux-tu nous donner le message d'erreur exact que tu obtiens ?
*** J'ai testé sous Excel 7 et Excel 10, la boîte de message demeure vide
mais je n'ai aucun message d'erreur.
| et ne peux plus rien en faire
*** Habituellement, quelles manipulations sont effectuées sur la page ouverte ?
MichD
--------------------------------------------
"j@c" a écrit dans le message de groupe de discussion : 4e4c213b$0$15031$426a...@news.free.fr...
DanielCo
en cause.
Daniel
j@c
Sub zaza1()
chem = "http://google.fr"
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate (chem)
Do While ie.ReadyState <> 4
Loop
MsgBox ie.document.body.outerhtml
End Sub
Le Msgbox m'affiche le code de la page d'accueil Google
Si maintenant, je fais une page rien.html ne contenant que :
<HTML><BODY>test</BODY></HTML>
et que je l'installe sur mon disque dur (ou sur un serveur du boulot) puis
que je lance la macro :
Sub zaza2()
chem = "file:///C:/Users/chaussa/rien.html"
'rien.html ne contient que <HTML><BODY>test</BODY></HTML>
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate (chem)
Do While ie.ReadyState <> 4
Loop
MsgBox ie.document.body.outerhtml
End Sub
...alors, ie s'ouvre bien, la page rien.html s'affiche, mais je me fais
copieusement injurier par un message qui me dit :
Erreur d'execution -214717848 (80010108)
Erreur automation
L'objet invoqué s'est déconnecté de ses clients
(sur la ligne "do while ie.readystate<>4")
et la page rien.html reste affichée.
Précision,
Windows 7
Office 2010
Internet explorer 8
Et ça marchait très bien avant sous XP
Et ça marche toujours très bien chez moi sous Windows 7 (version 6.1) et XL
Excel 2003 et IE 8
si vous avez des idées...
PS, quelqu'un se souvient-il de l'origine de zaza ?
------------------------
"MichD" <mich...@hotmail.com> a écrit dans le message de groupe de
discussion : j2h9ep$jms$1...@speranza.aioe.org...
Péhemme
Honni soit qui mal y pense.
Tous mes mots de passe, je devrais dire que mon seul mot de passe afin de
"protéger" mes macros est Zaza.
Quant à ta question, je laisse les Gourous s'en m'en mêler.
Bises à Isa
Bien amicalement
Michel
"j@c" <jacques....@noos.fr> a écrit dans le message de
news:4e4d6e95$0$693$426a...@news.free.fr...
Maude Este
"j@c" a ï¿œcrit :
PS, quelqu'un se souvient-il de l'origine de zaza ?
;o))) ????
http://jacxl.free.fr/mpfe/fiches/zaza.html
La lumiï¿œre s'enfuit de la piï¿œce en un torrent clair qui disparut sous la
porte et l'ￜcran s'ￜclaira peu ￜ peu.
Gros bisous, Kenavo (et Miaou).
Catherine (et Sainte Zaza)
amatrice de cidre, grande prï¿œtresse des adorateurs de Zaza, spï¿œcialiste de la
formation Excel sur table et de la conception de T-shirts
derniￜre informations connues(2004) : la sociￜtￜ ne semble plus exister !
COPIGNY Catherine
60126 LONGUEIL STE MARIE
518G - Commerce de gros d'ordinateurs, d'ï¿œquipements informatiques
pï¿œriphï¿œriques et de progiciels
nb : je me souviens de l'accueil de Catherine le 18/12/2000
lorsque j'avais mis en piï¿œce jointe(sacrilï¿œge) une sorte de XLPong
ￜ titre de cadeau de Noￜl aux contributeurs de MPFE
;o)))
>> ouaouhhhh :-))) curieuse, je l'ai ouvert et bien m'en a pris :-))))))))) Un
>> fada de plus ￜ mettre sur le compte des victimes de VBA ;-)
Jacquouille
Zaza était la mascotte des premiers jours du MPFE. je crois qu'il
s'agissait de la chatte de catherine Copigny, la grande initiatrice de mes
premiers pas en VBA.
C'était du temps du grand chef à 4 plumes : LL.
La photo de zaza trône sur le trombinoscope.
PS Qui a un TShirt du MPFE ? Qu'il lève le doigt.
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"Maude Este" a écrit dans le message de groupe de discussion :
j2k23q$tod$1...@speranza.aioe.org...
"j@c" a écrit :
PS, quelqu'un se souvient-il de l'origine de zaza ?
;o))) ????
http://jacxl.free.fr/mpfe/fiches/zaza.html
La lumière s'enfuit de la pièce en un torrent clair qui disparut sous la
porte et l'écran s'éclaira peu à peu.
Gros bisous, Kenavo (et Miaou).
Catherine (et Sainte Zaza)
amatrice de cidre, grande prêtresse des adorateurs de Zaza, spécialiste de
la
formation Excel sur table et de la conception de T-shirts
dernière informations connues(2004) : la société ne semble plus exister !
COPIGNY Catherine
60126 LONGUEIL STE MARIE
518G - Commerce de gros d'ordinateurs, d'équipements informatiques
périphériques et de progiciels
nb : je me souviens de l'accueil de Catherine le 18/12/2000
lorsque j'avais mis en pièce jointe(sacrilège) une sorte de XLPong
à titre de cadeau de Noël aux contributeurs de MPFE
;o)))
>> ouaouhhhh :-))) curieuse, je l'ai ouvert et bien m'en a pris :-)))))))))
>> Un fada de plus à mettre sur le compte des victimes de VBA ;-)
j@c
"Jacquouille" <j.thie...@skynet.be> a écrit dans le message de groupe de
discussion : 4e4eb29c$0$5047$ba62...@news.skynet.be...
j@c
tout début du mpfe !
"Maude Este" <nom...@live.fr> a écrit dans le message de groupe de
discussion : j2k23q$tod$1...@speranza.aioe.org...
>
>
> "j@c" a écrit :
> PS, quelqu'un se souvient-il de l'origine de zaza ?
>
> ;o))) ????
> http://jacxl.free.fr/mpfe/fiches/zaza.html
>
> La lumière s'enfuit de la pièce en un torrent clair qui disparut sous la
> porte et l'écran s'éclaira peu à peu.
> Gros bisous, Kenavo (et Miaou).
> Catherine (et Sainte Zaza)
> amatrice de cidre, grande prêtresse des adorateurs de Zaza, spécialiste de
> la formation Excel sur table et de la conception de T-shirts
>
> dernière informations connues(2004) : la société ne semble plus exister !
> COPIGNY Catherine
> 60126 LONGUEIL STE MARIE
> 518G - Commerce de gros d'ordinateurs, d'équipements informatiques
> périphériques et de progiciels
>
> nb : je me souviens de l'accueil de Catherine le 18/12/2000
> lorsque j'avais mis en pièce jointe(sacrilège) une sorte de XLPong
> à titre de cadeau de Noël aux contributeurs de MPFE
>
> ;o)))
>>> ouaouhhhh :-))) curieuse, je l'ai ouvert et bien m'en a pris :-)))))))))
>>> Un fada de plus à mettre sur le compte des victimes de VBA ;-)
>
>
j@c
bloqué...
help still wanted
merci !
"j@c" <jacques....@noos.fr> a écrit dans le message de groupe de
discussion : 4e4d6e95$0$693$426a...@news.free.fr...
DanielCo
Je pense malheureusement à un bug; j'ai fait la manip suivante :
- création d'un document html à partir d'un document Word
- la macro plante
- chargement de la page web sur mon site web perso
- Enregistrement de la page en local à partir de la page du site web
- exécution de la macro à partir de cette de cette page : OK
???
Peux-tu voir si tu reproduis la même séquence ?
Daniel
j@c
et je ne vois pas bien comment le contourner simplement...
"DanielCo" <dcolard...@free.fr> a écrit dans le message de groupe de
discussion : 4e54d24b$0$12804$426a...@news.free.fr...
MichD
J'espère que tu trouveras ce que tu cherches.
http://excel.developpez.com/faq/?page=WebHtml
http://jacxl.free.fr/cours_xl/cadres.html?ex=
MichD
--------------------------------------------
MichD
regarde cette procédure :
| on reçoit un message d'erreur disant que
| l'objet invoqué s'est déconnecté !
Quelle différence entre ouvrir un fichier via un serveur sur un site internet
(rôle du serveur d'application )et ouvrir un document HTML à partir de son
disque dur en local ? (Pour les férus d'Internet...)
As-tu pensé d'ouvrir ton document dans l'application Word ?
'---------------------------------------
Sub test()
Dim IE As Object, GestionErreur As String
On Error GoTo GestionErreur
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate ("http://google.fr")
IE.Visible = True
Do While IE.ReadyState <> 4
IE.Quit '<==== ligne ajoutée
Loop
Set dct = IE.Document
MsgBox dct.Title
Exit Sub
GestionErreur:
MsgBox Err.Number & ", " & Err.Description
End Sub
'---------------------------------------
MichD
--------------------------------------------
"MichD" a écrit dans le message de groupe de discussion : j3535r$d1r$1...@speranza.aioe.org...
Maude Este
"MichD" a écrit
2 sites internet qui exploitent le langage VBA et Internet Explorer et le HTML.
J'espère que tu trouveras ce que tu cherches.
http://jacxl.free.fr/cours_xl/cadres.html?ex=
;o)))
heu ... Denis ???
qui est l'initiateur de ce fil ???
MichD
| http://jacxl.free.fr/cours_xl/cadres.html?ex=
| heu ... Denis ???
| qui est l'initiateur de ce fil ???
Je suppose qu'il connaît l'adresse... ;-)
Mais il y a d'autres lecteurs de ce fil que l'adresse pourrait intéresser !
j@c
on peut oublier !
"MichD" <mich...@hotmail.com> a écrit dans le message de groupe de
discussion : j35b4h$vje$1...@speranza.aioe.org...
j@c
merci
"MichD" <mich...@hotmail.com> a écrit dans le message de groupe de
discussion : j3535r$d1r$1...@speranza.aioe.org...
j@c
Je retiens l'idￜe du test avec word, ￜa pourrait permettre de voir oￜ ￜa
coince
je reviens vous raconter le rï¿œsultat...
-------------
"MichD" <mich...@hotmail.com> a ï¿œcrit dans le message de groupe de
discussion : j3555o$hki$1...@speranza.aioe.org...
> Si tu veux gï¿œnï¿œrer volontairement le message d'erreur que tu obtiens
> regarde cette procï¿œdure :
>
> | on reï¿œoit un message d'erreur disant que
> | l'objet invoquￜ s'est dￜconnectￜ !
>
> Quelle diffï¿œrence entre ouvrir un fichier via un serveur sur un site
> internet
> (rￜle du serveur d'application )et ouvrir un document HTML ￜ partir de son
> disque dur en local ? (Pour les fï¿œrus d'Internet...)
>
> As-tu pensￜ d'ouvrir ton document dans l'application Word ?
>
> '---------------------------------------
> Sub test()
> Dim IE As Object, GestionErreur As String
> On Error GoTo GestionErreur
> Set IE = CreateObject("InternetExplorer.Application")
> IE.Navigate ("http://google.fr")
>
> IE.Visible = True
> Do While IE.ReadyState <> 4
>
> IE.Quit '<==== ligne ajoutï¿œe
>
> Loop
>
> Set dct = IE.Document
> MsgBox dct.Title
> Exit Sub
> GestionErreur:
> MsgBox Err.Number & ", " & Err.Description
> End Sub
> '---------------------------------------
>
>
>
> MichD
> --------------------------------------------
> "MichD" a ï¿œcrit dans le message de groupe de discussion :
> j3535r$d1r$1...@speranza.aioe.org...
>
> 2 sites internet qui exploitent le langage VBA et Internet Explorer et le
> HTML.
> J'espï¿œre que tu trouveras ce que tu cherches.
MichD
En quoi l'application "Internet Explorer" est-elle essentielle dans la rï¿œsolution de ta problï¿œmatique ?
MichD
--------------------------------------------
j@c
(dans mon cas) en vba que ce qui serait affiché dans ww
Et puis, je suis sur une page ie avec des frames, pas sûr de pouvoir gérer
ça avec word (impossible d'ouvrir le frame qui m'intéresse hors de son
environnement)...
Et en outre, j'utilise ce programme depuis des années (jusqu'au changement
de windows - office -ie) et j'ai la flemme de tout refaire - pour une raison
que je ne comprends même pas.
C'est très agaçant de coincer sur un code aussi simple !
J@C
"MichD" <mich...@hotmail.com> a écrit dans le message de groupe de
discussion : j3bime$9hu$1...@speranza.aioe.org...
> Et pourquoi ne traites-tu pas ces pages en HTML en utilisant le programme
> "Word" par exemple ?
> En quoi l'application "Internet Explorer" est-elle essentielle dans la
> résolution de ta problématique ?
>
>
>
> MichD
> --------------------------------------------
>
MichD
"Microsoft Internet Controls" et "Microsoft HTMLDocument Object Library",
cela devient plus facile de travailler avec les diverses variables.
Cela te donnera au moins accès aux listes des propriétés et méthodes associées à chacun des objets.
'---------------------------------------------
Sub test()
Dim Dct As HTMLDocument
Dim Ie As InternetExplorer
Set Ie = CreateObject("InternetExplorer.Application")
'Ie.Navigate ("http://google.fr")
Ie.Navigate ("c:\Denis.htm")
Ie.Visible = True
Do While Ie.ReadyState <> 4
Loop
Set Dct = Ie.document
MsgBox Dct.body.outerText
MsgBox Dct.URL
End Sub
'---------------------------------------------
MichD
--------------------------------------------
"j@c" a écrit dans le message de groupe de discussion : 4e5a2088$0$13020$426a...@news.free.fr...
j@c
ce qui semble bien prouver que le pb vient de ie
Quant à utiliser ww pour mon appli, c'est pas gagné. Ce ww là arrive à
m'ouvrir mon site avec les frames (!) mais je n'arrive pas à piloter ça en
vba (même si l'objet frames existe bien dans ww) : comment récupérer les
infos de la frame n°1 (je sais faire dans ie, mais dans ww ???) ?
"MichD" <mich...@hotmail.com> a écrit dans le message de groupe de
discussion : j3bime$9hu$1...@speranza.aioe.org...
> Et pourquoi ne traites-tu pas ces pages en HTML en utilisant le programme
> "Word" par exemple ?
> En quoi l'application "Internet Explorer" est-elle essentielle dans la
MichD
N'oublie pas de nous retourner ici l'adresse que tu auras obtenue
et dis-moi quelle information tu voudrais extraire dans cette page...
Il n'y a rien comme tel comme travailler à partir d'un exemple concret.
MichD
--------------------------------------------
"j@c" a écrit dans le message de groupe de discussion : 4e5d2b33$0$20748$426a...@news.free.fr...
s.elme...@gmail.com
J'ai exactement le même problème que vous J@C.
Un lancement du ie.navigate("adresse sur le serveur au travail")
La page s'affiche sans la commande ie.visible=true en suite ie se déconnecte de la page donc impossible d'interagir avec la fenêtre d'Internet Explorer.
J'ai le même message que vous sur la ligne IE.readystate <> 4 : Erreur d'exécution -2147417848 (80010108) Erreur Automation
L'objet invoqué s'est déconnecté de ses clients.
Le problème disparaît si le chemin de la page web est sur internet exemple "www.Google.fr"
Je travail sur office 2010 + ie8 sous win7 64.
Je souhaite savoir si vous avez pu trouver une solution?
Merci d'avance
MichD
Dans l'interface d'Internet Explorer, barre des menus /
Outils / options internet /s�curit� / essaie en d�sactivant le mode prot�g�
dans le bas de la fen�tre. Tu dois red�marrer Internet Explorer apr�s cela!
As-tu toujours la m�me erreur?
s.elme...@gmail.com
Je vous remercie d'abord pour votre réactivité de reponce c'est cool.
Oui j'ai déjà désactivé le mode protégé en intranet mais malheureusement j'ai toujours le même problème.
Ça me rend dingue ce problème !!!
Merci à vous
MichD
sur Google � partir de VBA.
Proc�dure pr�sent�e par Qwazerty
Ne pas oublier d'ajouter les 2 r�f�rences au projetVBA
� partir du menu / outils / r�f�rences /
Microsoft HTML Objects library
Microsoft Internet Controls
Est-ce que ce code fonctionne chez toi?
'--------------------------------------------------------
Sub RechercheVBAExcel()
'D�claration des variables
'Requiert l'ajout de 2 r�f�rences :
'Microsoft HTML Objects library
'Microsoft Internet Controls
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement
Dim FormGoogleCherche As HTMLFormElement
'Chargement d'une page Web Google
IE.Navigate "www.google.fr"
'Affichage de la fen�tre IE
IE.Visible = True
'On attend le chargement complet de la page
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
'On pointe le membre Document
Set IEDoc = IE.Document
'On pointe notre Zone de texte
Set InputGoogleZoneTexte = IEDoc.all("q")
'On d�finit le texte que l'on souhaite placer � l'int�rieur
InputGoogleZoneTexte.Value = "VBA Excel"
'On pointe la Form qui contient Zone de Texte + Bouton (entre autres)
Set FormGoogleCherche = IEDoc.forms("gbqf")
'On ex�cute l'action Submit de la Form
FormGoogleCherche.submit
'On attend la fin de la recherche
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
'On lib�re les variables
Set IE = Nothing
Set IEDoc = Nothing
End Sub
'--------------------------------------------------------
s.elme...@gmail.com
MichD
diff�rentes perspectives!
En rapport avec ma premi�re suggestion, regarde ce fil :
http://www.developpez.net/forums/d1137660/autres-langages/general-visual-basic-6-vbscript/vbscript/objet-ie-windows-7-a/