Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel navigation dans IE a partir d'excel

navigation dans IE a partir d'excel

9 réponses
Avatar
sleg
Bonjour,

J'aimerais savoir il est possible de verifier l'accas a ue page web ?

mon exemple est le suivant a l'heure actuelle j'arrive sur une page
web je saisie un login et password et je valide la j'ai un wait de x
secondes, le probleme est de gerer le temps d'attente apres validation
il n'est jamais le meme suivant le pc utilis=E9 le moment de la jorn=E9e
ou j'accede a mon site etcc et je me demandais s'il etait possible
apres la validation du password de faire une verification de la page
de destination du style je valide temps que je ne suis pas sur le page
http:\\www.monsite.com\recherche.html je ne continue pas la macro ?


Merci de votre aide.
bonne journ=E9e.
Signaler un problème avec ce contenu

9 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
isabelle
bonjour sleg,

Do While IE.ReadyState <> 4 'attend que la page soit chargee
DoEvents
Loop

isabelle


Bonjour,

J'aimerais savoir il est possible de verifier l'accas a ue page web ?

mon exemple est le suivant a l'heure actuelle j'arrive sur une page
web je saisie un login et password et je valide la j'ai un wait de x
secondes, le probleme est de gerer le temps d'attente apres validation
il n'est jamais le meme suivant le pc utilisé le moment de la jornée
ou j'accede a mon site etcc et je me demandais s'il etait possible
apres la validation du password de faire une verification de la page
de destination du style je valide temps que je ne suis pas sur le page
http:www.monsite.comrecherche.html je ne continue pas la macro ?


Merci de votre aide.
bonne journée.



Avatar
isabelle
bonjour sleg,

Set IE = CreateObject("InternetExplorer.Application") 'creation objetIE
IE.Visible = True
IE.Navigate ("https://............")
Do While IE.ReadyState <> 4 'attend que la page soit chargee
DoEvents
Loop

isabelle


Bonjour,

J'aimerais savoir il est possible de verifier l'accas a ue page web ?

mon exemple est le suivant a l'heure actuelle j'arrive sur une page
web je saisie un login et password et je valide la j'ai un wait de x
secondes, le probleme est de gerer le temps d'attente apres validation
il n'est jamais le meme suivant le pc utilisé le moment de la jornée
ou j'accede a mon site etcc et je me demandais s'il etait possible
apres la validation du password de faire une verification de la page
de destination du style je valide temps que je ne suis pas sur le page
http:www.monsite.comrecherche.html je ne continue pas la macro ?


Merci de votre aide.
bonne journée.



Avatar
sleg
On 6 juil, 17:24, isabelle wrote:
bonjour sleg,

Set IE = CreateObject("InternetExplorer.Application") 'creation objet IE
IE.Visible = True
IE.Navigate ("https://............")
Do While IE.ReadyState <> 4 'attend que la page soit chargee
DoEvents
Loop

isabelle




Bonjour,

J'aimerais savoir il est possible de verifier l'accas a ue page web ?

mon exemple est le suivant a l'heure actuelle j'arrive sur une page
web je saisie un login et password et je valide la j'ai un wait de x
secondes, le probleme est de gerer le temps d'attente apres validation
il n'est jamais le meme suivant le pc utilisé le moment de la jornée
ou j'accede a mon site etcc et je me demandais s'il etait possible
apres la validation du password de faire une verification de la page
de destination du style je valide temps que je ne suis pas sur le page
http:www.monsite.comrecherche.html je ne continue pas la macro ?

Merci de votre aide.
bonne journée.- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


Bonjour,

Merci Isabelle je teste cela et merci de ton aide.


Avatar
sleg
On 6 juil, 17:24, isabelle wrote:
bonjour sleg,

Set IE = CreateObject("InternetExplorer.Application") 'creation objet IE
IE.Visible = True
IE.Navigate ("https://............")
Do While IE.ReadyState <> 4 'attend que la page soit chargee
DoEvents
Loop

isabelle




Bonjour,

J'aimerais savoir il est possible de verifier l'accas a ue page web ?

mon exemple est le suivant a l'heure actuelle j'arrive sur une page
web je saisie un login et password et je valide la j'ai un wait de x
secondes, le probleme est de gerer le temps d'attente apres validation
il n'est jamais le meme suivant le pc utilisé le moment de la jornée
ou j'accede a mon site etcc et je me demandais s'il etait possible
apres la validation du password de faire une verification de la page
de destination du style je valide temps que je ne suis pas sur le page
http:www.monsite.comrecherche.html je ne continue pas la macro ?

Merci de votre aide.
bonne journée.- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


Bonjour,

petit probleme

voici le code avec ta modif mais cela ne fonctionne pas ?? et je ne
comprends pas pourquoi .

Merci de ton aide

Sub PageWeb_seb()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True:' IE.Top = 0: IE.Left = 0
IE.Navigate ("http://www..monsite./login.htm)
Do While IE.ReadyState <> 4 'attend que la page soit chargee
DoEvents
Loop
Application.Wait Now + 5 / 3600 / 24
SendKeys ("login")
SendKeys "{TAB}"
SendKeys ("password")
Application.Wait Now + 4 / 3600 / 24
SendKeys "{TAB}", True
SendKeys "~"
'Do While IE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 3 / 3600 / 24
'SendKeys "{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}
{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}",
True
'SendKeys "~"
'Do While IE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 75 / 3600 / 24
'SendKeys "^A"
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "^C"
'SendKeys "%ES%TP%Y{down 2}~", True
'Application.Wait Now + 2 / 3600 / 24
'SendKeys "%EP%TP%Y{down 2}~", True
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "%FF%TP%Y{down 2}~", True
Set IE = Nothing
End Sub


Avatar
isabelle
bonjour sleg,

execute la macro pas à pas et dit moi sur quelle ligne cela ne fonctionne pas,

isabelle


voici le code avec ta modif mais cela ne fonctionne pas ?? et je ne
comprends pas pourquoi .

Merci de ton aide

Sub PageWeb_seb()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True:' IE.Top = 0: IE.Left = 0
IE.Navigate ("http://www..monsite./login.htm)
Do While IE.ReadyState <> 4 'attend que la page soit chargee
DoEvents
Loop
Application.Wait Now + 5 / 3600 / 24
SendKeys ("login")
SendKeys "{TAB}"
SendKeys ("password")
Application.Wait Now + 4 / 3600 / 24
SendKeys "{TAB}", True
SendKeys "~"
'Do While IE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 3 / 3600 / 24
'SendKeys "{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}
{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}",
True
'SendKeys "~"
'Do While IE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 75 / 3600 / 24
'SendKeys "^A"
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "^C"
'SendKeys "%ES%TP%Y{down 2}~", True
'Application.Wait Now + 2 / 3600 / 24
'SendKeys "%EP%TP%Y{down 2}~", True
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "%FF%TP%Y{down 2}~", True
Set IE = Nothing
End Sub



Avatar
jps
bonjour isabelle, bonjour sleg
tous les Sendkeys que je vois dans la proc sont du plus mauvais augure
good luck
jps

"isabelle" a écrit dans le message de news:
eTNSN%
bonjour sleg,

execute la macro pas à pas et dit moi sur quelle ligne cela ne fonctionne
pas,

isabelle


voici le code avec ta modif mais cela ne fonctionne pas ?? et je ne
comprends pas pourquoi .

Merci de ton aide

Sub PageWeb_seb()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True:' IE.Top = 0: IE.Left = 0
IE.Navigate ("http://www..monsite./login.htm)
Do While IE.ReadyState <> 4 'attend que la page soit chargee
DoEvents
Loop
Application.Wait Now + 5 / 3600 / 24
SendKeys ("login")
SendKeys "{TAB}"
SendKeys ("password")
Application.Wait Now + 4 / 3600 / 24
SendKeys "{TAB}", True
SendKeys "~"
'Do While IE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 3 / 3600 / 24
'SendKeys "{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}
{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}",
True
'SendKeys "~"
'Do While IE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 75 / 3600 / 24
'SendKeys "^A"
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "^C"
'SendKeys "%ES%TP%Y{down 2}~", True
'Application.Wait Now + 2 / 3600 / 24
'SendKeys "%EP%TP%Y{down 2}~", True
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "%FF%TP%Y{down 2}~", True
Set IE = Nothing
End Sub





Avatar
sleg
On 9 juil, 18:27, "jps" wrote:
bonjour isabelle, bonjour sleg
tous les Sendkeys que je vois dans la proc sont du plus mauvais augure
good luck
jps

"isabelle" a écrit dans le message de news:
eTNSN%



bonjour sleg,

execute la macro pas à pas et dit moi sur quelle ligne cela ne foncti onne
pas,

isabelle



voici le code avec ta modif mais cela ne fonctionne pas ?? et je ne
comprends pas pourquoi .

Merci de ton aide

Sub PageWeb_seb()
DimIEAs Object
SetIE= CreateObject("internetexplorer.application")
IE.Visible = True:'IE.Top = 0:IE.Left = 0
IE.Navigate ("http://www..monsite./login.htm)
Do WhileIE.ReadyState <> 4 'attend que la page soit chargee
DoEvents
Loop
Application.Wait Now + 5 / 3600 / 24
SendKeys ("login")
SendKeys "{TAB}"
SendKeys ("password")
Application.Wait Now + 4 / 3600 / 24
SendKeys "{TAB}", True
SendKeys "~"
'Do WhileIE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 3 / 3600 / 24
'SendKeys "{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}
{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}",
True
'SendKeys "~"
'Do WhileIE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 75 / 3600 / 24
'SendKeys "^A"
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "^C"
'SendKeys "%ES%TP%Y{down 2}~", True
'Application.Wait Now + 2 / 3600 / 24
'SendKeys "%EP%TP%Y{down 2}~", True
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "%FF%TP%Y{down 2}~", True
SetIE= Nothing
End Sub- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -


avant d'ajouter la modif cela fonctionnais bien avec les sndkays donc
je testerais demain matin le pas a pas pour voir

merci et bonne soiree



Avatar
sleg
On 9 juil, 17:41, isabelle wrote:
bonjour sleg,

execute la macro pas à pas et dit moi sur quelle ligne cela ne fonction ne pas,

isabelle




voici le code avec ta modif mais cela ne fonctionne pas ?? et je ne
comprends pas pourquoi .

Merci de ton aide

Sub PageWeb_seb()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True:' IE.Top = 0: IE.Left = 0
IE.Navigate ("http://www..monsite./login.htm)
Do While IE.ReadyState <> 4 'attend que la page soit chargee
DoEvents
Loop
Application.Wait Now + 5 / 3600 / 24
SendKeys ("login")
SendKeys "{TAB}"
SendKeys ("password")
Application.Wait Now + 4 / 3600 / 24
SendKeys "{TAB}", True
SendKeys "~"
'Do While IE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 3 / 3600 / 24
'SendKeys "{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}
{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}",
True
'SendKeys "~"
'Do While IE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 75 / 3600 / 24
'SendKeys "^A"
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "^C"
'SendKeys "%ES%TP%Y{down 2}~", True
'Application.Wait Now + 2 / 3600 / 24
'SendKeys "%EP%TP%Y{down 2}~", True
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "%FF%TP%Y{down 2}~", True
Set IE = Nothing
End Sub- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


Sub PageWeb_seb()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True:' IE.Top = 0: IE.Left = 0
IE.Navigate ("http://www..monsite./login.htm)
Do While IE.ReadyState <> 4 'attend que la page soit chargee
DoEvents
Loop
Application.Wait Now + 5 / 3600 / 24
SendKeys ("login")
SendKeys "{TAB}"
SendKeys ("password")
Application.Wait Now + 4 / 3600 / 24
SendKeys "{TAB}", True
SendKeys "~"

!!!!!!!! le probleme est ici !!!!!!!


'Do While IE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 3 / 3600 / 24
'SendKeys "{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}
{tab}
{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}",
True
'SendKeys "~"
'Do While IE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 75 / 3600 / 24
'SendKeys "^A"
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "^C"
'SendKeys "%ES%TP%Y{down 2}~", True
'Application.Wait Now + 2 / 3600 / 24
'SendKeys "%EP%TP%Y{down 2}~", True
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "%FF%TP%Y{down 2}~", True
Set IE = Nothing
End Sub


Avatar
sleg
On 10 juil, 08:57, sleg wrote:
On 9 juil, 17:41, isabelle wrote:





bonjour sleg,

execute la macro pas à pas et dit moi sur quelle ligne cela ne foncti onne pas,

isabelle



voici le code avec ta modif mais cela ne fonctionne pas ?? et je ne
comprends pas pourquoi .

Merci de ton aide

Sub PageWeb_seb()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True:' IE.Top = 0: IE.Left = 0
IE.Navigate ("http://www..monsite./login.htm)
Do While IE.ReadyState <> 4 'attend que la page soit chargee
DoEvents
Loop
Application.Wait Now + 5 / 3600 / 24
SendKeys ("login")
SendKeys "{TAB}"
SendKeys ("password")
Application.Wait Now + 4 / 3600 / 24
SendKeys "{TAB}", True
SendKeys "~"
'Do While IE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 3 / 3600 / 24
'SendKeys "{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{ta b}
{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}",
True
'SendKeys "~"
'Do While IE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 75 / 3600 / 24
'SendKeys "^A"
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "^C"
'SendKeys "%ES%TP%Y{down 2}~", True
'Application.Wait Now + 2 / 3600 / 24
'SendKeys "%EP%TP%Y{down 2}~", True
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "%FF%TP%Y{down 2}~", True
Set IE = Nothing
End Sub- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


Sub PageWeb_seb()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True:' IE.Top = 0: IE.Left = 0
IE.Navigate ("http://www..monsite./login.htm)
Do While IE.ReadyState <> 4 'attend que la page soit chargee
DoEvents
Loop
Application.Wait Now + 5 / 3600 / 24
SendKeys ("login")
SendKeys "{TAB}"
SendKeys ("password")
Application.Wait Now + 4 / 3600 / 24
SendKeys "{TAB}", True
SendKeys "~"

!!!!!!!! le probleme est ici !!!!!!!

'Do While IE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 3 / 3600 / 24
'SendKeys "{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}
{tab}
{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}",
True
'SendKeys "~"
'Do While IE.ReadyState <> 4 'attend que la page soit chargee
'DoEvents
'Loop
'Application.Wait Now + 75 / 3600 / 24
'SendKeys "^A"
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "^C"
'SendKeys "%ES%TP%Y{down 2}~", True
'Application.Wait Now + 2 / 3600 / 24
'SendKeys "%EP%TP%Y{down 2}~", True
'Application.Wait Now + 1 / 3600 / 24
'SendKeys "%FF%TP%Y{down 2}~", True
Set IE = Nothing
End Sub- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


oups j'oublias biensur il n'y a pas les ' dans les lignes sous mon
commentaire dans la macro que j'utilise ;-)