Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA excel et IE

VBA excel et IE

3 réponses
Avatar
Alain
bonjour,

voulant automatiser une tache r=E9p=E9titive (aller chercher des donn=E9e=
s sur
une page web prot=E9g=E9e) j'ai =E9crit ce code:

'Sub ie1()
'Set ie =3D CreateObject("InternetExplorer.Application")

'ie.Visible =3D True

'ie.Navigate ("http://url de la page")

'Do While ie.ReadyState <> 4
'DoEvents
'Loop

'ie.document.all("login").Value =3D "utilisateur"
'ie.document.all("password").Value =3D "mot de passe"
'ie.Navigate ("vbscript:logon_submit()")

'traitement des donn=E9es

'ie.Application.Quit
'Set ie =3D Nothing
'end sub

le probl=E8me est que je ne parvient pas =E0 me loger automatiquement
je suis oblig=E9 de valider la touche "enter" =


de plus quel sont les commandes que l'on peut passer =E0 IE par
l'interm=E9diaire de CreateObjet ?

merci d'avance
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
poypoy
Bonjour,

Pour la première question, as tu essayé de faire comme dans excel un
application.displayalerts = false ?

Je ne sais pas si cela existe n'ayant jamais utilisé Ie...

Cordialement
Benjamin


bonjour,

voulant automatiser une tache répétitive (aller chercher des données sur
une page web protégée) j'ai écrit ce code:

'Sub ie1()
'Set ie = CreateObject("InternetExplorer.Application")

'ie.Visible = True

'ie.Navigate ("http://url de la page")

'Do While ie.ReadyState <> 4
'DoEvents
'Loop

'ie.document.all("login").Value = "utilisateur"
'ie.document.all("password").Value = "mot de passe"
'ie.Navigate ("vbscript:logon_submit()")

'traitement des données

'ie.Application.Quit
'Set ie = Nothing
'end sub

le problème est que je ne parvient pas à me loger automatiquement
je suis obligé de valider la touche "enter"

de plus quel sont les commandes que l'on peut passer à IE par
l'intermédiaire de CreateObjet ?

merci d'avance



Avatar
Alain
merci pour ta réponse mais je cherche a emuler l'appui sur le bouton de
validation de la page web et ayant de forte lacune en langage HTML et
JAVA je suis dans une impasse (j'ignore d'ailleurs si cela est possible
en VBA excel)


Bonjour,

Pour la première question, as tu essayé de faire comme dans e xcel un
application.displayalerts = false ?

Je ne sais pas si cela existe n'ayant jamais utilisé Ie...

Cordialement
Benjamin


bonjour,

voulant automatiser une tache répétitive (aller chercher de s données sur
une page web protégée) j'ai écrit ce code:

'Sub ie1()
'Set ie = CreateObject("InternetExplorer.Application")

'ie.Visible = True

'ie.Navigate ("http://url de la page")

'Do While ie.ReadyState <> 4
'DoEvents
'Loop

'ie.document.all("login").Value = "utilisateur"
'ie.document.all("password").Value = "mot de passe"
'ie.Navigate ("vbscript:logon_submit()")

'traitement des données

'ie.Application.Quit
'Set ie = Nothing
'end sub

le problème est que je ne parvient pas à me loger automatique ment
je suis obligé de valider la touche "enter"

de plus quel sont les commandes que l'on peut passer à IE par
l'intermédiaire de CreateObjet ?

merci d'avance





Avatar
Eldé
Bonjour,

Ce n'est pas génial, mais peut-être arriverez-vous à vos
fins avec l'instruction Senkeys "{ENTER}". Avant ou après
ie.Navigate ("vbscript:logon_submit()")... il faut
essayer...

Bonne journée

-----Message d'origine-----
bonjour,

voulant automatiser une tache répétitive (aller chercher
des données sur

une page web protégée) j'ai écrit ce code:

'Sub ie1()
'Set ie = CreateObject("InternetExplorer.Application")

'ie.Visible = True

'ie.Navigate ("http://url de la page")

'Do While ie.ReadyState <> 4
'DoEvents
'Loop

'ie.document.all("login").Value = "utilisateur"
'ie.document.all("password").Value = "mot de passe"
'ie.Navigate ("vbscript:logon_submit()")

'traitement des données

'ie.Application.Quit
'Set ie = Nothing
'end sub

le problème est que je ne parvient pas à me loger
automatiquement

je suis obligé de valider la touche "enter"

de plus quel sont les commandes que l'on peut passer à IE
par

l'intermédiaire de CreateObjet ?

merci d'avance
.