navigation dans IE a partir d'excel

Le
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é 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.comecherche.html je ne continue pas la macro ?


Merci de votre aide.
bonne journée.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #4904431
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.



isabelle
Le #4904421
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.



sleg
Le #4902361
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.


sleg
Le #4901471
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


isabelle
Le #4901441
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



jps
Le #4901321
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





sleg
Le #4901061
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



sleg
Le #4900701
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


sleg
Le #4900681
On 10 juil, 08:57, sleg
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 ;-)



Publicité
Poster une réponse
Anonyme