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 Settings\jean-paul\Local Settings\Application
> Data\Google\Chrome\Application\chrome.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
>>
>
en fait ca marche nikel mais en fait voila ce que je voudrais
la mise de l'adresse marche top alors voila mon souhait messieurs et mesdames les génies
la cellule a1 est bien reprise ( merci isabelle!)
dans le site: http://paris-a-la-carte-version-pl.paris.fr/carto/mapping
je voudrais qu il aille dans cartes thématiques urbanisme a gauche et PLU SECTEUR DE RISQUES et clike sur le bouton RECHERCHER
est ce possible?
merci d'avance à tous!
"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
re bonjour,
en fait ca marche nikel
mais en fait voila ce que je voudrais
la mise de l'adresse marche top
alors voila mon souhait messieurs et mesdames les génies
la cellule a1 est bien reprise ( merci isabelle!)
dans le site:
http://paris-a-la-carte-version-pl.paris.fr/carto/mapping
je voudrais qu il aille dans cartes thématiques
urbanisme a gauche
et PLU SECTEUR DE RISQUES
et clike sur le bouton RECHERCHER
est ce possible?
merci d'avance à tous!
"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?
en fait ca marche nikel mais en fait voila ce que je voudrais
la mise de l'adresse marche top alors voila mon souhait messieurs et mesdames les génies
la cellule a1 est bien reprise ( merci isabelle!)
dans le site: http://paris-a-la-carte-version-pl.paris.fr/carto/mapping
je voudrais qu il aille dans cartes thématiques urbanisme a gauche et PLU SECTEUR DE RISQUES et clike sur le bouton RECHERCHER
est ce possible?
merci d'avance à tous!
"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
FdeCourt
A moins que quelqu'un ait une autre solution pour s'assurer que la page a été correctement et intégralement chargée, ralonge le temps d'attente dans Application.Wait Now + TimeValue(" 00:00:05 ")
Cordialement,
F.
A moins que quelqu'un ait une autre solution pour s'assurer que la
page a été correctement et intégralement chargée, ralonge le temps
d'attente dans Application.Wait Now + TimeValue(" 00:00:05 ")
A moins que quelqu'un ait une autre solution pour s'assurer que la page a été correctement et intégralement chargée, ralonge le temps d'attente dans Application.Wait Now + TimeValue(" 00:00:05 ")
Cordialement,
F.
FdeCourt
En dehors du zoom :
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 = "1 place du trocadéro" With ie .Visible = IIf(debug1 = False, False, True) .Silent = True .Navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/ mapping" restart: If attente_Fin_Chargement(ie) = False Then GoTo restart Set pageHTML = .Document pageHTML.all("Secteurs de risque").Click If attente_Fin_Chargement(ie) = False Then GoTo restart pageHTML.all("input_recherche_adresse").Value = MaValeur
For Each d In pageHTML.all If d.outerhtml = "<INPUT class=bgall type=submit value=RECHERCHER>" Then d.Click: GoTo suite Next If attente_Fin_Chargement(ie) = False Then GoTo restart 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 While .ReadyState <> 4 'attend que la page soit chargée DoEvents Loop
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.
En dehors du zoom :
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 = "1 place du trocadéro"
With ie
.Visible = IIf(debug1 = False, False, True)
.Silent = True
.Navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/
mapping"
restart:
If attente_Fin_Chargement(ie) = False Then GoTo restart
Set pageHTML = .Document
pageHTML.all("Secteurs de risque").Click
If attente_Fin_Chargement(ie) = False Then GoTo restart
pageHTML.all("input_recherche_adresse").Value = MaValeur
For Each d In pageHTML.all
If d.outerhtml = "<INPUT class=bgall type=submit
value=RECHERCHER>" Then d.Click: GoTo suite
Next
If attente_Fin_Chargement(ie) = False Then GoTo restart
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 While .ReadyState <> 4 'attend que la page soit chargée
DoEvents
Loop
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
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 = "1 place du trocadéro" With ie .Visible = IIf(debug1 = False, False, True) .Silent = True .Navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/ mapping" restart: If attente_Fin_Chargement(ie) = False Then GoTo restart Set pageHTML = .Document pageHTML.all("Secteurs de risque").Click If attente_Fin_Chargement(ie) = False Then GoTo restart pageHTML.all("input_recherche_adresse").Value = MaValeur
For Each d In pageHTML.all If d.outerhtml = "<INPUT class=bgall type=submit value=RECHERCHER>" Then d.Click: GoTo suite Next If attente_Fin_Chargement(ie) = False Then GoTo restart 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 While .ReadyState <> 4 'attend que la page soit chargée DoEvents Loop
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.
shillow
merci beaucoup mais ca plante à ce niveau
If attente_Fin_Chargement(ie) = False Then GoTo restart Set pageHTML = .Document pageHTML.all("Secteurs de risque").Click
"FdeCourt" a écrit dans le message de news:
En dehors du zoom :
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 = "1 place du trocadéro" With ie .Visible = IIf(debug1 = False, False, True) .Silent = True .Navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/ mapping" restart: If attente_Fin_Chargement(ie) = False Then GoTo restart Set pageHTML = .Document pageHTML.all("Secteurs de risque").Click If attente_Fin_Chargement(ie) = False Then GoTo restart pageHTML.all("input_recherche_adresse").Value = MaValeur
For Each d In pageHTML.all If d.outerhtml = "<INPUT class=bgall type=submit value=RECHERCHER>" Then d.Click: GoTo suite Next If attente_Fin_Chargement(ie) = False Then GoTo restart 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 While .ReadyState <> 4 'attend que la page soit chargée DoEvents Loop
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.
merci beaucoup mais ca plante à ce niveau
If attente_Fin_Chargement(ie) = False Then GoTo restart
Set pageHTML = .Document
pageHTML.all("Secteurs de risque").Click
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
14f2d831-646a-452d-8325-050effc88f9f@u41g2000yqe.googlegroups.com...
En dehors du zoom :
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 = "1 place du trocadéro"
With ie
.Visible = IIf(debug1 = False, False, True)
.Silent = True
.Navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/
mapping"
restart:
If attente_Fin_Chargement(ie) = False Then GoTo restart
Set pageHTML = .Document
pageHTML.all("Secteurs de risque").Click
If attente_Fin_Chargement(ie) = False Then GoTo restart
pageHTML.all("input_recherche_adresse").Value = MaValeur
For Each d In pageHTML.all
If d.outerhtml = "<INPUT class=bgall type=submit
value=RECHERCHER>" Then d.Click: GoTo suite
Next
If attente_Fin_Chargement(ie) = False Then GoTo restart
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 While .ReadyState <> 4 'attend que la page soit chargée
DoEvents
Loop
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
If attente_Fin_Chargement(ie) = False Then GoTo restart Set pageHTML = .Document pageHTML.all("Secteurs de risque").Click
"FdeCourt" a écrit dans le message de news:
En dehors du zoom :
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 = "1 place du trocadéro" With ie .Visible = IIf(debug1 = False, False, True) .Silent = True .Navigate "http://paris-a-la-carte-version-pl.paris.fr/carto/ mapping" restart: If attente_Fin_Chargement(ie) = False Then GoTo restart Set pageHTML = .Document pageHTML.all("Secteurs de risque").Click If attente_Fin_Chargement(ie) = False Then GoTo restart pageHTML.all("input_recherche_adresse").Value = MaValeur
For Each d In pageHTML.all If d.outerhtml = "<INPUT class=bgall type=submit value=RECHERCHER>" Then d.Click: GoTo suite Next If attente_Fin_Chargement(ie) = False Then GoTo restart 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 While .ReadyState <> 4 'attend que la page soit chargée DoEvents Loop
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.
FdeCourt
A quel ligne exactement ? et quelle est l'erreur ?
Peut être faut il allonger le temp de chargement de la page ?
Cordialement,
F.
On 11 jan, 17:39, "shillow" wrote:
merci beaucoup mais ca plante à ce niveau
If attente_Fin_Chargement(ie) = False Then GoTo restart Set pageHTML = .Document pageHTML.all("Secteurs de risque").Click
A quel ligne exactement ? et quelle est l'erreur ?
Peut être faut il allonger le temp de chargement de la page ?
Cordialement,
F.
On 11 jan, 17:39, "shillow" <step...@prodiag.fr> wrote:
merci beaucoup mais ca plante à ce niveau
If attente_Fin_Chargement(ie) = False Then GoTo restart
Set pageHTML = .Document
pageHTML.all("Secteurs de risque").Click
A quel ligne exactement ? et quelle est l'erreur ?
Peut être faut il allonger le temp de chargement de la page ?
Cordialement,
F.
On 11 jan, 17:39, "shillow" wrote:
merci beaucoup mais ca plante à ce niveau
If attente_Fin_Chargement(ie) = False Then GoTo restart Set pageHTML = .Document pageHTML.all("Secteurs de risque").Click
isabelle
bonjour,
pour simuler un "Enter" ou un click sur "Rechercher"
SendKeys ("~")
isabelle
Le 2010-01-11 10:38, shillow a écrit :
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.
bonjour,
pour simuler un "Enter" ou un click sur "Rechercher"
SendKeys ("~")
isabelle
Le 2010-01-11 10:38, shillow a écrit :
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
pour simuler un "Enter" ou un click sur "Rechercher"
SendKeys ("~")
isabelle
Le 2010-01-11 10:38, shillow a écrit :
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.
shillow
> pageHTML.all("Secteurs de risque").Click
"FdeCourt" a écrit dans le message de news:
A quel ligne exactement ? et quelle est l'erreur ?
Peut être faut il allonger le temp de chargement de la page ?
Cordialement,
F.
On 11 jan, 17:39, "shillow" wrote:
merci beaucoup mais ca plante à ce niveau
If attente_Fin_Chargement(ie) = False Then GoTo restart Set pageHTML = .Document pageHTML.all("Secteurs de risque").Click
> pageHTML.all("Secteurs de risque").Click
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
e1190cd2-9166-4345-88c4-67c086d6658c@r24g2000yqd.googlegroups.com...
A quel ligne exactement ? et quelle est l'erreur ?
Peut être faut il allonger le temp de chargement de la page ?
Cordialement,
F.
On 11 jan, 17:39, "shillow" <step...@prodiag.fr> wrote:
merci beaucoup mais ca plante à ce niveau
If attente_Fin_Chargement(ie) = False Then GoTo restart
Set pageHTML = .Document
pageHTML.all("Secteurs de risque").Click
A quel ligne exactement ? et quelle est l'erreur ?
Peut être faut il allonger le temp de chargement de la page ?
Cordialement,
F.
On 11 jan, 17:39, "shillow" wrote:
merci beaucoup mais ca plante à ce niveau
If attente_Fin_Chargement(ie) = False Then GoTo restart Set pageHTML = .Document pageHTML.all("Secteurs de risque").Click
FdeCourt
Alors je pense que la page ne s'est pas completement chargée avant de chercher à cliquer sur Secteurs à risques. Remplace : Application.Wait Now + TimeValue(" 00:00:05 ") par :Application.Wait Now + TimeValue(" 00:00:15 ").
L'application va attendre 15 secondes. C'est une durée qu'il faudra que tu ajustes.
Cordialement,
F.
Alors je pense que la page ne s'est pas completement chargée avant de
chercher à cliquer sur Secteurs à risques.
Remplace : Application.Wait Now + TimeValue(" 00:00:05 ")
par :Application.Wait Now + TimeValue(" 00:00:15 ").
L'application va attendre 15 secondes. C'est une durée qu'il faudra
que tu ajustes.
Alors je pense que la page ne s'est pas completement chargée avant de chercher à cliquer sur Secteurs à risques. Remplace : Application.Wait Now + TimeValue(" 00:00:05 ") par :Application.Wait Now + TimeValue(" 00:00:15 ").
L'application va attendre 15 secondes. C'est une durée qu'il faudra que tu ajustes.
Cordialement,
F.
michdenis
Une suggestion:
Cette approche permet de continuer d'interagir avec l'application Excel durant que la procédure écoule les secondes.
L'usage de timer est problématique si l'application doit s'exécuter autour de minuit. Voir l'aide sur sujet. Si c'est le cas, on pourrait le remplacer par GetTickCount() et son API. Un exemple plus bas.
'------------------------------- Dim X As Double ' 5 représente en seconde, le temps d'attente X = Timer + 5
Do While Timer < X DoEvents Loop '-------------------------------
Un exemple de 'Api dans le haut du module standard Public Declare Function GetTickCount Lib "kernel32" () As Long
'Quand requis Appel de la procédure avec le nombre de milliseconde requis comme temps d'attente. '--------------------------------------- Sub AttendreBis(Millisec As Long) Dim old As Long old = GetTickCount While GetTickCount - old < Millisec DoEvents Wend End Sub '---------------------------------------
"FdeCourt" a écrit dans le message de groupe de discussion :
Alors je pense que la page ne s'est pas completement chargée avant de chercher à cliquer sur Secteurs à risques. Remplace : Application.Wait Now + TimeValue(" 00:00:05 ") par :Application.Wait Now + TimeValue(" 00:00:15 ").
L'application va attendre 15 secondes. C'est une durée qu'il faudra que tu ajustes.
Cordialement,
F.
Une suggestion:
Cette approche permet de continuer d'interagir
avec l'application Excel durant que la procédure
écoule les secondes.
L'usage de timer est problématique si l'application doit
s'exécuter autour de minuit. Voir l'aide sur sujet.
Si c'est le cas, on pourrait le remplacer par GetTickCount()
et son API. Un exemple plus bas.
'-------------------------------
Dim X As Double
' 5 représente en seconde, le temps d'attente
X = Timer + 5
Do While Timer < X
DoEvents
Loop
'-------------------------------
Un exemple de
'Api dans le haut du module standard
Public Declare Function GetTickCount Lib "kernel32" () As Long
'Quand requis Appel de la procédure avec le nombre de milliseconde
requis comme temps d'attente.
'---------------------------------------
Sub AttendreBis(Millisec As Long)
Dim old As Long
old = GetTickCount
While GetTickCount - old < Millisec
DoEvents
Wend
End Sub
'---------------------------------------
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de groupe de discussion :
a6b8d1d7-c500-439c-bbea-12e8434d23a6@u7g2000yqm.googlegroups.com...
Alors je pense que la page ne s'est pas completement chargée avant de
chercher à cliquer sur Secteurs à risques.
Remplace : Application.Wait Now + TimeValue(" 00:00:05 ")
par :Application.Wait Now + TimeValue(" 00:00:15 ").
L'application va attendre 15 secondes. C'est une durée qu'il faudra
que tu ajustes.
Cette approche permet de continuer d'interagir avec l'application Excel durant que la procédure écoule les secondes.
L'usage de timer est problématique si l'application doit s'exécuter autour de minuit. Voir l'aide sur sujet. Si c'est le cas, on pourrait le remplacer par GetTickCount() et son API. Un exemple plus bas.
'------------------------------- Dim X As Double ' 5 représente en seconde, le temps d'attente X = Timer + 5
Do While Timer < X DoEvents Loop '-------------------------------
Un exemple de 'Api dans le haut du module standard Public Declare Function GetTickCount Lib "kernel32" () As Long
'Quand requis Appel de la procédure avec le nombre de milliseconde requis comme temps d'attente. '--------------------------------------- Sub AttendreBis(Millisec As Long) Dim old As Long old = GetTickCount While GetTickCount - old < Millisec DoEvents Wend End Sub '---------------------------------------
"FdeCourt" a écrit dans le message de groupe de discussion :
Alors je pense que la page ne s'est pas completement chargée avant de chercher à cliquer sur Secteurs à risques. Remplace : Application.Wait Now + TimeValue(" 00:00:05 ") par :Application.Wait Now + TimeValue(" 00:00:15 ").
L'application va attendre 15 secondes. C'est une durée qu'il faudra que tu ajustes.
Cordialement,
F.
FdeCourt
Dans l'immédiat, je n'ai pas accès à l'aide !!!
L'inconvénient de tes deux solutions, c'est que ca bouffe tout le CPU, alors que le Wait bloque Excel, sans utiliser 100% du CPU... A chacun ses avantages et invénients.
Cordialement,
F.
On 12 jan, 12:41, "michdenis" wrote:
Une suggestion:
Cette approche permet de continuer d'interagir avec l'application Excel durant que la procédure écoule les secondes.
L'usage de timer est problématique si l'application doit s'exécuter autour de minuit. Voir l'aide sur sujet. Si c'est le cas, on pourrait le remplacer par GetTickCount() et son API. Un exemple plus bas.
Dans l'immédiat, je n'ai pas accès à l'aide !!!
L'inconvénient de tes deux solutions, c'est que ca bouffe tout le CPU,
alors que le Wait bloque Excel, sans utiliser 100% du CPU...
A chacun ses avantages et invénients.
Cordialement,
F.
On 12 jan, 12:41, "michdenis" <michde...@hotmail.com> wrote:
Une suggestion:
Cette approche permet de continuer d'interagir
avec l'application Excel durant que la procédure
écoule les secondes.
L'usage de timer est problématique si l'application doit
s'exécuter autour de minuit. Voir l'aide sur sujet.
Si c'est le cas, on pourrait le remplacer par GetTickCount()
et son API. Un exemple plus bas.
L'inconvénient de tes deux solutions, c'est que ca bouffe tout le CPU, alors que le Wait bloque Excel, sans utiliser 100% du CPU... A chacun ses avantages et invénients.
Cordialement,
F.
On 12 jan, 12:41, "michdenis" wrote:
Une suggestion:
Cette approche permet de continuer d'interagir avec l'application Excel durant que la procédure écoule les secondes.
L'usage de timer est problématique si l'application doit s'exécuter autour de minuit. Voir l'aide sur sujet. Si c'est le cas, on pourrait le remplacer par GetTickCount() et son API. Un exemple plus bas.
