je te remercie mais je voudrais aussi renseigner du texte sur cette page
web
avec le contenu de la cellule se trouvant en A1
voila mon code et la page a ouvrir
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics"
(ByVal nIndex As Long) As Long
Sub Site()
ThisWorkbook.FollowHyperlink
"http://paris-a-la-carte-version-pl.paris.fr/carto/mapping", , True
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
Je voudrais donc quue le code me rappatrie le contenu de ma cellule a1
est ce possible?
merci d'avance
"Mgr T. Banni" a écrit dans le message de news:suite
chez moi et donc à adapter :
Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1
tout sur une seule ligne....
T.B.
"shillow" a écrit dans le message de news:
%23IZB%Bonjour,
Connaissez vous le code en vba qui permette d'ouvri google chrome et non
IE7?
merci par avance
shillow
je te remercie mais je voudrais aussi renseigner du texte sur cette page
web
avec le contenu de la cellule se trouvant en A1
voila mon code et la page a ouvrir
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics"
(ByVal nIndex As Long) As Long
Sub Site()
ThisWorkbook.FollowHyperlink
"http://paris-a-la-carte-version-pl.paris.fr/carto/mapping", , True
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
Je voudrais donc quue le code me rappatrie le contenu de ma cellule a1
est ce possible?
merci d'avance
"Mgr T. Banni" <banni@lacurie.va> a écrit dans le message de news:
e4lolIRkKHA.6096@TK2MSFTNGP02.phx.gbl...
suite
chez moi et donc à adapter :
Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1
tout sur une seule ligne....
T.B.
"shillow" <stephol@prodiag.fr> a écrit dans le message de news:
%23IZB%23ARkKHA.3792@TK2MSFTNGP02.phx.gbl...
Bonjour,
Connaissez vous le code en vba qui permette d'ouvri google chrome et non
IE7?
merci par avance
shillow
je te remercie mais je voudrais aussi renseigner du texte sur cette page
web
avec le contenu de la cellule se trouvant en A1
voila mon code et la page a ouvrir
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics"
(ByVal nIndex As Long) As Long
Sub Site()
ThisWorkbook.FollowHyperlink
"http://paris-a-la-carte-version-pl.paris.fr/carto/mapping", , True
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
Je voudrais donc quue le code me rappatrie le contenu de ma cellule a1
est ce possible?
merci d'avance
"Mgr T. Banni" a écrit dans le message de news:suite
chez moi et donc à adapter :
Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1
tout sur une seule ligne....
T.B.
"shillow" a écrit dans le message de news:
%23IZB%Bonjour,
Connaissez vous le code en vba qui permette d'ouvri google chrome et non
IE7?
merci par avance
shillow
désolé, shillow, mais là, ça dépasse mon entendement : je ne parle pas le
ouèbe littéraire, un peu de latin tout au plus
mais il y a ici des spécialistes des scripts mais encore auront-ils besoin
de savoir où tu veux coller dans ta page web le contenu de ta cellule
A1....
attendons la réaction des grands chefs 4 plumes
Mgr T.B.
"shillow" a écrit dans le message de news:je te remercie mais je voudrais aussi renseigner du texte sur cette page
web
avec le contenu de la cellule se trouvant en A1
voila mon code et la page a ouvrir
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics"
(ByVal nIndex As Long) As Long
Sub Site()
ThisWorkbook.FollowHyperlink
"http://paris-a-la-carte-version-pl.paris.fr/carto/mapping", , True
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
Je voudrais donc quue le code me rappatrie le contenu de ma cellule a1
est ce possible?
merci d'avance
"Mgr T. Banni" a écrit dans le message de news:suite
chez moi et donc à adapter :
Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1
tout sur une seule ligne....
T.B.
"shillow" a écrit dans le message de news:
%23IZB%Bonjour,
Connaissez vous le code en vba qui permette d'ouvri google chrome et
non
IE7?
merci par avance
shillow
désolé, shillow, mais là, ça dépasse mon entendement : je ne parle pas le
ouèbe littéraire, un peu de latin tout au plus
mais il y a ici des spécialistes des scripts mais encore auront-ils besoin
de savoir où tu veux coller dans ta page web le contenu de ta cellule
A1....
attendons la réaction des grands chefs 4 plumes
Mgr T.B.
"shillow" <stephol@prodiag.fr> a écrit dans le message de news:
uWYwoyRkKHA.4912@TK2MSFTNGP02.phx.gbl...
je te remercie mais je voudrais aussi renseigner du texte sur cette page
web
avec le contenu de la cellule se trouvant en A1
voila mon code et la page a ouvrir
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics"
(ByVal nIndex As Long) As Long
Sub Site()
ThisWorkbook.FollowHyperlink
"http://paris-a-la-carte-version-pl.paris.fr/carto/mapping", , True
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
Je voudrais donc quue le code me rappatrie le contenu de ma cellule a1
est ce possible?
merci d'avance
"Mgr T. Banni" <banni@lacurie.va> a écrit dans le message de news:
e4lolIRkKHA.6096@TK2MSFTNGP02.phx.gbl...
suite
chez moi et donc à adapter :
Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1
tout sur une seule ligne....
T.B.
"shillow" <stephol@prodiag.fr> a écrit dans le message de news:
%23IZB%23ARkKHA.3792@TK2MSFTNGP02.phx.gbl...
Bonjour,
Connaissez vous le code en vba qui permette d'ouvri google chrome et
non
IE7?
merci par avance
shillow
désolé, shillow, mais là, ça dépasse mon entendement : je ne parle pas le
ouèbe littéraire, un peu de latin tout au plus
mais il y a ici des spécialistes des scripts mais encore auront-ils besoin
de savoir où tu veux coller dans ta page web le contenu de ta cellule
A1....
attendons la réaction des grands chefs 4 plumes
Mgr T.B.
"shillow" a écrit dans le message de news:je te remercie mais je voudrais aussi renseigner du texte sur cette page
web
avec le contenu de la cellule se trouvant en A1
voila mon code et la page a ouvrir
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics"
(ByVal nIndex As Long) As Long
Sub Site()
ThisWorkbook.FollowHyperlink
"http://paris-a-la-carte-version-pl.paris.fr/carto/mapping", , True
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
Je voudrais donc quue le code me rappatrie le contenu de ma cellule a1
est ce possible?
merci d'avance
"Mgr T. Banni" a écrit dans le message de news:suite
chez moi et donc à adapter :
Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1
tout sur une seule ligne....
T.B.
"shillow" a écrit dans le message de news:
%23IZB%Bonjour,
Connaissez vous le code en vba qui permette d'ouvri google chrome et
non
IE7?
merci par avance
shillow
je te remercie mais je voudrais aussi renseigner du texte sur cette page
web
avec le contenu de la cellule se trouvant en A1
voila mon code et la page a ouvrir
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics"
(ByVal nIndex As Long) As Long
Sub Site()
ThisWorkbook.FollowHyperlink
"http://paris-a-la-carte-version-pl.paris.fr/carto/mapping", , True
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
Je voudrais donc quue le code me rappatrie le contenu de ma cellule a1
est ce possible?
merci d'avance
"Mgr T. Banni" a écrit dans le message de news:suite
chez moi et donc à adapter :
Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1
tout sur une seule ligne....
T.B.
"shillow" a écrit dans le message de news:
%23IZB%Bonjour,
Connaissez vous le code en vba qui permette d'ouvri google chrome et non
IE7?
merci par avance
shillow
je te remercie mais je voudrais aussi renseigner du texte sur cette page
web
avec le contenu de la cellule se trouvant en A1
voila mon code et la page a ouvrir
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics"
(ByVal nIndex As Long) As Long
Sub Site()
ThisWorkbook.FollowHyperlink
"http://paris-a-la-carte-version-pl.paris.fr/carto/mapping", , True
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
Je voudrais donc quue le code me rappatrie le contenu de ma cellule a1
est ce possible?
merci d'avance
"Mgr T. Banni" <banni@lacurie.va> a écrit dans le message de news:
e4lolIRkKHA.6096@TK2MSFTNGP02.phx.gbl...
suite
chez moi et donc à adapter :
Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1
tout sur une seule ligne....
T.B.
"shillow" <stephol@prodiag.fr> a écrit dans le message de news:
%23IZB%23ARkKHA.3792@TK2MSFTNGP02.phx.gbl...
Bonjour,
Connaissez vous le code en vba qui permette d'ouvri google chrome et non
IE7?
merci par avance
shillow
je te remercie mais je voudrais aussi renseigner du texte sur cette page
web
avec le contenu de la cellule se trouvant en A1
voila mon code et la page a ouvrir
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics"
(ByVal nIndex As Long) As Long
Sub Site()
ThisWorkbook.FollowHyperlink
"http://paris-a-la-carte-version-pl.paris.fr/carto/mapping", , True
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
Je voudrais donc quue le code me rappatrie le contenu de ma cellule a1
est ce possible?
merci d'avance
"Mgr T. Banni" a écrit dans le message de news:suite
chez moi et donc à adapter :
Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1
tout sur une seule ligne....
T.B.
"shillow" a écrit dans le message de news:
%23IZB%Bonjour,
Connaissez vous le code en vba qui permette d'ouvri google chrome et non
IE7?
merci par avance
shillow
Bonjour,
En fait je voudrais copier le contenu de la cellule A1 de excel vers ma
page web
"http://paris-a-la-carte-version-pl.paris.fr/carto/mapping
et que ensuite il click tout seul sur le bouton rechercher se trouvant sur
la page web.
"shillow" a écrit dans le message de news:je te remercie mais je voudrais aussi renseigner du texte sur cette page
web
avec le contenu de la cellule se trouvant en A1
voila mon code et la page a ouvrir
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics"
(ByVal nIndex As Long) As Long
Sub Site()
ThisWorkbook.FollowHyperlink
"http://paris-a-la-carte-version-pl.paris.fr/carto/mapping", , True
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
Je voudrais donc quue le code me rappatrie le contenu de ma cellule a1
est ce possible?
merci d'avance
"Mgr T. Banni" a écrit dans le message de news:suite
chez moi et donc à adapter :
Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1
tout sur une seule ligne....
T.B.
"shillow" a écrit dans le message de news:
%23IZB%Bonjour,
Connaissez vous le code en vba qui permette d'ouvri google chrome et
non
IE7?
merci par avance
shillow
Bonjour,
En fait je voudrais copier le contenu de la cellule A1 de excel vers ma
page web
"http://paris-a-la-carte-version-pl.paris.fr/carto/mapping
et que ensuite il click tout seul sur le bouton rechercher se trouvant sur
la page web.
"shillow" <stephol@prodiag.fr> a écrit dans le message de news:
uWYwoyRkKHA.4912@TK2MSFTNGP02.phx.gbl...
je te remercie mais je voudrais aussi renseigner du texte sur cette page
web
avec le contenu de la cellule se trouvant en A1
voila mon code et la page a ouvrir
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics"
(ByVal nIndex As Long) As Long
Sub Site()
ThisWorkbook.FollowHyperlink
"http://paris-a-la-carte-version-pl.paris.fr/carto/mapping", , True
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
Je voudrais donc quue le code me rappatrie le contenu de ma cellule a1
est ce possible?
merci d'avance
"Mgr T. Banni" <banni@lacurie.va> a écrit dans le message de news:
e4lolIRkKHA.6096@TK2MSFTNGP02.phx.gbl...
suite
chez moi et donc à adapter :
Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1
tout sur une seule ligne....
T.B.
"shillow" <stephol@prodiag.fr> a écrit dans le message de news:
%23IZB%23ARkKHA.3792@TK2MSFTNGP02.phx.gbl...
Bonjour,
Connaissez vous le code en vba qui permette d'ouvri google chrome et
non
IE7?
merci par avance
shillow
Bonjour,
En fait je voudrais copier le contenu de la cellule A1 de excel vers ma
page web
"http://paris-a-la-carte-version-pl.paris.fr/carto/mapping
et que ensuite il click tout seul sur le bouton rechercher se trouvant sur
la page web.
"shillow" a écrit dans le message de news:je te remercie mais je voudrais aussi renseigner du texte sur cette page
web
avec le contenu de la cellule se trouvant en A1
voila mon code et la page a ouvrir
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics"
(ByVal nIndex As Long) As Long
Sub Site()
ThisWorkbook.FollowHyperlink
"http://paris-a-la-carte-version-pl.paris.fr/carto/mapping", , True
Application.Wait (Now + TimeValue("0:00:05"))
End Sub
Je voudrais donc quue le code me rappatrie le contenu de ma cellule a1
est ce possible?
merci d'avance
"Mgr T. Banni" a écrit dans le message de news:suite
chez moi et donc à adapter :
Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1
tout sur une seule ligne....
T.B.
"shillow" a écrit dans le message de news:
%23IZB%Bonjour,
Connaissez vous le code en vba qui permette d'ouvri google chrome et
non
IE7?
merci par avance
shillow
Raaaah... la suite :
Comme il y a plein de javascript, je n'arrive pas a déterminer quand
le browser a terminé de travailler.
Sub RechercheAuto()
'Ajouter la référence Microsoft Internet Controls
Dim debug1 As Boolean
debug1 = True
Dim ie As InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
MaValeur = Cells(1, 1).Value
With ie
.Visible = IIf(debug1 = False, False, True)
.Silent = True
.Navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/
mapping"
If attente_Fin_Chargement(ie) = False Then End
.Document.all("input_recherche_adresse").Value = "MaValeur"
For Each D In .Document.all
If D.outerhtml = "<INPUT class=bgall type=submit
value=RECHERCHER>" Then D.Click: GoTo suite
Next
suite:
If attente_Fin_Chargement(ie) = False Then End
End With
Set ie = Nothing
End Sub
Function attente_Fin_Chargement(ie As Object) As Boolean
On Error GoTo err_handler
Application.Wait Now + TimeValue(" 00:00:05 ")
With ie
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Do Until .Busy = False
DoEvents
Loop
Do Until UCase(Left(.StatusText, 6)) = "TERMIN"
DoEvents
Loop
End With
attente_Fin_Chargement = True
On Error GoTo 0
Exit Function
err_handler:
attente_Fin_Chargement = False
End Function
Cordialement,
F.
Raaaah... la suite :
Comme il y a plein de javascript, je n'arrive pas a déterminer quand
le browser a terminé de travailler.
Sub RechercheAuto()
'Ajouter la référence Microsoft Internet Controls
Dim debug1 As Boolean
debug1 = True
Dim ie As InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
MaValeur = Cells(1, 1).Value
With ie
.Visible = IIf(debug1 = False, False, True)
.Silent = True
.Navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/
mapping"
If attente_Fin_Chargement(ie) = False Then End
.Document.all("input_recherche_adresse").Value = "MaValeur"
For Each D In .Document.all
If D.outerhtml = "<INPUT class=bgall type=submit
value=RECHERCHER>" Then D.Click: GoTo suite
Next
suite:
If attente_Fin_Chargement(ie) = False Then End
End With
Set ie = Nothing
End Sub
Function attente_Fin_Chargement(ie As Object) As Boolean
On Error GoTo err_handler
Application.Wait Now + TimeValue(" 00:00:05 ")
With ie
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Do Until .Busy = False
DoEvents
Loop
Do Until UCase(Left(.StatusText, 6)) = "TERMIN"
DoEvents
Loop
End With
attente_Fin_Chargement = True
On Error GoTo 0
Exit Function
err_handler:
attente_Fin_Chargement = False
End Function
Cordialement,
F.
Raaaah... la suite :
Comme il y a plein de javascript, je n'arrive pas a déterminer quand
le browser a terminé de travailler.
Sub RechercheAuto()
'Ajouter la référence Microsoft Internet Controls
Dim debug1 As Boolean
debug1 = True
Dim ie As InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
MaValeur = Cells(1, 1).Value
With ie
.Visible = IIf(debug1 = False, False, True)
.Silent = True
.Navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/
mapping"
If attente_Fin_Chargement(ie) = False Then End
.Document.all("input_recherche_adresse").Value = "MaValeur"
For Each D In .Document.all
If D.outerhtml = "<INPUT class=bgall type=submit
value=RECHERCHER>" Then D.Click: GoTo suite
Next
suite:
If attente_Fin_Chargement(ie) = False Then End
End With
Set ie = Nothing
End Sub
Function attente_Fin_Chargement(ie As Object) As Boolean
On Error GoTo err_handler
Application.Wait Now + TimeValue(" 00:00:05 ")
With ie
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Do Until .Busy = False
DoEvents
Loop
Do Until UCase(Left(.StatusText, 6)) = "TERMIN"
DoEvents
Loop
End With
attente_Fin_Chargement = True
On Error GoTo 0
Exit Function
err_handler:
attente_Fin_Chargement = False
End Function
Cordialement,
F.
bonjour à tous,
pour attendre que la page soit chargée,
Do While IE.ReadyState <> 4 'attend que la page soit chargée
DoEvents
Loop
isabelle
Le 2010-01-11 05:44, FdeCourt a écrit :Raaaah... la suite :
Comme il y a plein de javascript, je n'arrive pas a déterminer quand
le browser a terminé de travailler.
Sub RechercheAuto()
'Ajouter la référence Microsoft Internet Controls
Dim debug1 As Boolean
debug1 = True
Dim ie As InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
MaValeur = Cells(1, 1).Value
With ie
.Visible = IIf(debug1 = False, False, True)
.Silent = True
.Navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/
mapping"
If attente_Fin_Chargement(ie) = False Then End
.Document.all("input_recherche_adresse").Value = "MaValeur"
For Each D In .Document.all
If D.outerhtml = "<INPUT class=bgall type=submit
value=RECHERCHER>" Then D.Click: GoTo suite
Next
suite:
If attente_Fin_Chargement(ie) = False Then End
End With
Set ie = Nothing
End Sub
Function attente_Fin_Chargement(ie As Object) As Boolean
On Error GoTo err_handler
Application.Wait Now + TimeValue(" 00:00:05 ")
With ie
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Do Until .Busy = False
DoEvents
Loop
Do Until UCase(Left(.StatusText, 6)) = "TERMIN"
DoEvents
Loop
End With
attente_Fin_Chargement = True
On Error GoTo 0
Exit Function
err_handler:
attente_Fin_Chargement = False
End Function
Cordialement,
F.
bonjour à tous,
pour attendre que la page soit chargée,
Do While IE.ReadyState <> 4 'attend que la page soit chargée
DoEvents
Loop
isabelle
Le 2010-01-11 05:44, FdeCourt a écrit :
Raaaah... la suite :
Comme il y a plein de javascript, je n'arrive pas a déterminer quand
le browser a terminé de travailler.
Sub RechercheAuto()
'Ajouter la référence Microsoft Internet Controls
Dim debug1 As Boolean
debug1 = True
Dim ie As InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
MaValeur = Cells(1, 1).Value
With ie
.Visible = IIf(debug1 = False, False, True)
.Silent = True
.Navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/
mapping"
If attente_Fin_Chargement(ie) = False Then End
.Document.all("input_recherche_adresse").Value = "MaValeur"
For Each D In .Document.all
If D.outerhtml = "<INPUT class=bgall type=submit
value=RECHERCHER>" Then D.Click: GoTo suite
Next
suite:
If attente_Fin_Chargement(ie) = False Then End
End With
Set ie = Nothing
End Sub
Function attente_Fin_Chargement(ie As Object) As Boolean
On Error GoTo err_handler
Application.Wait Now + TimeValue(" 00:00:05 ")
With ie
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Do Until .Busy = False
DoEvents
Loop
Do Until UCase(Left(.StatusText, 6)) = "TERMIN"
DoEvents
Loop
End With
attente_Fin_Chargement = True
On Error GoTo 0
Exit Function
err_handler:
attente_Fin_Chargement = False
End Function
Cordialement,
F.
bonjour à tous,
pour attendre que la page soit chargée,
Do While IE.ReadyState <> 4 'attend que la page soit chargée
DoEvents
Loop
isabelle
Le 2010-01-11 05:44, FdeCourt a écrit :Raaaah... la suite :
Comme il y a plein de javascript, je n'arrive pas a déterminer quand
le browser a terminé de travailler.
Sub RechercheAuto()
'Ajouter la référence Microsoft Internet Controls
Dim debug1 As Boolean
debug1 = True
Dim ie As InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
MaValeur = Cells(1, 1).Value
With ie
.Visible = IIf(debug1 = False, False, True)
.Silent = True
.Navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/
mapping"
If attente_Fin_Chargement(ie) = False Then End
.Document.all("input_recherche_adresse").Value = "MaValeur"
For Each D In .Document.all
If D.outerhtml = "<INPUT class=bgall type=submit
value=RECHERCHER>" Then D.Click: GoTo suite
Next
suite:
If attente_Fin_Chargement(ie) = False Then End
End With
Set ie = Nothing
End Sub
Function attente_Fin_Chargement(ie As Object) As Boolean
On Error GoTo err_handler
Application.Wait Now + TimeValue(" 00:00:05 ")
With ie
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Do Until .Busy = False
DoEvents
Loop
Do Until UCase(Left(.StatusText, 6)) = "TERMIN"
DoEvents
Loop
End With
attente_Fin_Chargement = True
On Error GoTo 0
Exit Function
err_handler:
attente_Fin_Chargement = False
End Function
Cordialement,
F.
je vous remercie ca marche nikel mais il manque le clik automatique sur
rechercher ou bien il ne marche pas
"isabelle" a écrit dans le message de news:bonjour à tous,
pour attendre que la page soit chargée,
Do While IE.ReadyState <> 4 'attend que la page soit chargée
DoEvents
Loop
isabelle
Le 2010-01-11 05:44, FdeCourt a écrit :Raaaah... la suite :
Comme il y a plein de javascript, je n'arrive pas a déterminer quand
le browser a terminé de travailler.
Sub RechercheAuto()
'Ajouter la référence Microsoft Internet Controls
Dim debug1 As Boolean
debug1 = True
Dim ie As InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
MaValeur = Cells(1, 1).Value
With ie
.Visible = IIf(debug1 = False, False, True)
.Silent = True
.Navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/
mapping"
If attente_Fin_Chargement(ie) = False Then End
.Document.all("input_recherche_adresse").Value = "MaValeur"
For Each D In .Document.all
If D.outerhtml = "<INPUT class=bgall type=submit
value=RECHERCHER>" Then D.Click: GoTo suite
Next
suite:
If attente_Fin_Chargement(ie) = False Then End
End With
Set ie = Nothing
End Sub
Function attente_Fin_Chargement(ie As Object) As Boolean
On Error GoTo err_handler
Application.Wait Now + TimeValue(" 00:00:05 ")
With ie
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Do Until .Busy = False
DoEvents
Loop
Do Until UCase(Left(.StatusText, 6)) = "TERMIN"
DoEvents
Loop
End With
attente_Fin_Chargement = True
On Error GoTo 0
Exit Function
err_handler:
attente_Fin_Chargement = False
End Function
Cordialement,
F.
je vous remercie ca marche nikel mais il manque le clik automatique sur
rechercher ou bien il ne marche pas
"isabelle" <i@v> a écrit dans le message de news:
O7fLmtskKHA.2780@TK2MSFTNGP05.phx.gbl...
bonjour à tous,
pour attendre que la page soit chargée,
Do While IE.ReadyState <> 4 'attend que la page soit chargée
DoEvents
Loop
isabelle
Le 2010-01-11 05:44, FdeCourt a écrit :
Raaaah... la suite :
Comme il y a plein de javascript, je n'arrive pas a déterminer quand
le browser a terminé de travailler.
Sub RechercheAuto()
'Ajouter la référence Microsoft Internet Controls
Dim debug1 As Boolean
debug1 = True
Dim ie As InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
MaValeur = Cells(1, 1).Value
With ie
.Visible = IIf(debug1 = False, False, True)
.Silent = True
.Navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/
mapping"
If attente_Fin_Chargement(ie) = False Then End
.Document.all("input_recherche_adresse").Value = "MaValeur"
For Each D In .Document.all
If D.outerhtml = "<INPUT class=bgall type=submit
value=RECHERCHER>" Then D.Click: GoTo suite
Next
suite:
If attente_Fin_Chargement(ie) = False Then End
End With
Set ie = Nothing
End Sub
Function attente_Fin_Chargement(ie As Object) As Boolean
On Error GoTo err_handler
Application.Wait Now + TimeValue(" 00:00:05 ")
With ie
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Do Until .Busy = False
DoEvents
Loop
Do Until UCase(Left(.StatusText, 6)) = "TERMIN"
DoEvents
Loop
End With
attente_Fin_Chargement = True
On Error GoTo 0
Exit Function
err_handler:
attente_Fin_Chargement = False
End Function
Cordialement,
F.
je vous remercie ca marche nikel mais il manque le clik automatique sur
rechercher ou bien il ne marche pas
"isabelle" a écrit dans le message de news:bonjour à tous,
pour attendre que la page soit chargée,
Do While IE.ReadyState <> 4 'attend que la page soit chargée
DoEvents
Loop
isabelle
Le 2010-01-11 05:44, FdeCourt a écrit :Raaaah... la suite :
Comme il y a plein de javascript, je n'arrive pas a déterminer quand
le browser a terminé de travailler.
Sub RechercheAuto()
'Ajouter la référence Microsoft Internet Controls
Dim debug1 As Boolean
debug1 = True
Dim ie As InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
MaValeur = Cells(1, 1).Value
With ie
.Visible = IIf(debug1 = False, False, True)
.Silent = True
.Navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/
mapping"
If attente_Fin_Chargement(ie) = False Then End
.Document.all("input_recherche_adresse").Value = "MaValeur"
For Each D In .Document.all
If D.outerhtml = "<INPUT class=bgall type=submit
value=RECHERCHER>" Then D.Click: GoTo suite
Next
suite:
If attente_Fin_Chargement(ie) = False Then End
End With
Set ie = Nothing
End Sub
Function attente_Fin_Chargement(ie As Object) As Boolean
On Error GoTo err_handler
Application.Wait Now + TimeValue(" 00:00:05 ")
With ie
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Do Until .Busy = False
DoEvents
Loop
Do Until UCase(Left(.StatusText, 6)) = "TERMIN"
DoEvents
Loop
End With
attente_Fin_Chargement = True
On Error GoTo 0
Exit Function
err_handler:
attente_Fin_Chargement = False
End Function
Cordialement,
F.