google et chrome vba
shillow
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" <ba...@lacurie.va> a �crit dans le message de news:
e4lolIRk...@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" <ste...@prodiag.fr> a �crit dans le message de news:
> %23IZB%23ARkK...@TK2MSFTNGP02.phx.gbl...
>> Bonjour,
>>
>> Connaissez vous le code en vba qui permette d'ouvri google chrome et non
>> IE7?
>>
>> merci par avance
>>
>> shillow
>>
>
Mgr T. Banni
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" <ste...@prodiag.fr> a ï¿œcrit dans le message de news:
uWYwoyRk...@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" <ba...@lacurie.va> a ï¿œcrit dans le message de news:
> e4lolIRk...@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" <ste...@prodiag.fr> a ï¿œcrit dans le message de news:
Jacquouille
Jacques, tr�s impatient.
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est � la femme."
Jacquouille.
"Mgr T. Banni" <ba...@lacurie.va> a �crit dans le message de news:
%23HqRybT...@TK2MSFTNGP06.phx.gbl...
> 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" <ste...@prodiag.fr> a �crit dans le message de news:
> uWYwoyRk...@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" <ba...@lacurie.va> a �crit dans le message de news:
>> e4lolIRk...@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" <ste...@prodiag.fr> a �crit dans le message de news:
shillow
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" <ste...@prodiag.fr> a �crit dans le message de news:
uWYwoyRk...@TK2MSFTNGP02.phx.gbl...
Mgr T. Banni
je vois bien ce que tu veux faire et je sais juste que pour faire cela, il
te faut un �crire un fichier .vbs dont les premi�res lignes pourraient �tre
:
Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("http://paris-a-la-carte-version-pl.paris.fr/carto/mapping")
Do While IE.ReadyState <> 4
Loop
with ie
.Top = 0
.Left = 0
.Visible = True: IE.Top = 0: IE.Left = 0: IE.Width = "1050": IE.Height =
"800"
' .FullScreen = True 'Plein �cran Si d�sir�
End with
c'est ensuite que �a devient compliqu� selon la structure de la page Web
tu dois s�rement avoir des exemples de scripts (ce sont ces fichiers .vbs)
sur la toile
sache seulement qu'un script s'�crit dans Notepad et qu'il te suffit de
modifier l'extension .txt en .vbs
c'est toute l'aide divine que je peux t'apporter
par contre, si tu as des pneus neige d'occas', �a m'int�resse :-)
Mgr T.B.
"shillow" <ste...@prodiag.fr> a �crit dans le message de news:
udv7iIpk...@TK2MSFTNGP02.phx.gbl...
FdeCourt
Je ne sais pas ce que tu souhaites faire, mais la code ci-dessous te
permet de renseigner automatique le champ, et de cliquer sur le bouton
rechercher.
Comme la page est bourrée de javascript, j'a
FdeCourt
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.
isabelle
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
FdeCourt
Ca ne fonctionne pas à tous les coups !
Sur mon poste (Windows 2000, Office 2000, IE 6), sans l'attente de 5
secondes, cela ne passe pas. avec un simple IE.ReadyState <> 4
Cordialement,
F.
shillow
rechercher ou bien il ne marche pas
"isabelle" <i@v> a �crit dans le message de news:
O7fLmtsk...@TK2MSFTNGP05.phx.gbl...
FdeCourt
page a été correctement et intégralement chargée, ralonge le temps
d'attente dans Application.Wait Now + TimeValue(" 00:00:05 ")
Cordialement,
F.
shillow
perfection....
en fait tout marche nikel
alors voila la proc�dure que j'aimerais car en fait y pas mal de truc
donc:
on imagine que vous etes sur le site
http://paris-a-la-carte-version-pl.paris.fr/carto/mapping
l adresse de la cellule a1 est bien mise ( merci isabelle!!!)
j'aimerais aller dans l onglet thematique
puis sur la gauche urbanisme puis secteur de risque
avec le zoom a droite de 75 % si possible!!!
je demande bcps je sais mais alors vous m enlevez une aiquille ( � tricoter)
du pieds!
merci d'avance
"shillow" <ste...@prodiag.fr> a �crit dans le message de news:
O$%2300Qtk...@TK2MSFTNGP05.phx.gbl...
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" <ste...@prodiag.fr> a �crit dans le message de news:
uWYwoyRk...@TK2MSFTNGP02.phx.gbl...
FdeCourt
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
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" <fdec...@gmail.com> a �crit dans le message de news:
14f2d831-646a-452d...@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"
Do While .ReadyState <> 4 'attend que la page soit charg�e
FdeCourt
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
isabelle
pour simuler un "Enter" ou un click sur "Rechercher"
SendKeys ("~")
isabelle
Le 2010-01-11 10:38, shillow a �crit :
shillow
"FdeCourt" <fdec...@gmail.com> a �crit dans le message de news:
e1190cd2-9166-4345...@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
FdeCourt
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
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" <fdec...@gmail.com> a �crit dans le message de groupe de discussion :
a6b8d1d7-c500-439c...@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
FdeCourt
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.
michdenis
Il n'en tient qu'� toi de le faire travailler sur autre chose plut�t
que de le regarder travailler (boucler) !
"FdeCourt" <fdec...@gmail.com> a �crit dans le message de groupe de discussion :
27350554-d06f-4ae0...@j14g2000yqm.googlegroups.com...
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.
FdeCourt
> | c'est que ca bouffe tout le CPU
>
> Il n'en tient qu' toi de le faire travailler sur autre chose plut t
> que de le regarder travailler (boucler) !
Et comment dire au CPU de travailler sur autre chose, quand il semble
sollicité par Excel au maximum ?
michdenis
Tu n'as rien � lui dire. C'est le r�le de DoEvents
Si tu sollicites le CPU pendant la boucle en demandant � Windows
l'ex�cution d'une autre t�che...Si il n'y avait pas la commande "DoEvents"
tout ce que tu demandes � Windows demeurerait en attente jusqu'�
la t�che soit termin�e. DoEvents permet � chaque boucle de donner la
main � Windows et de lui demander s'il n'y a pas d'autres t�ches en attente
demandant son intervention. Si oui, ces t�ches sont ex�cut�es imm�diatement
au lieu de demeurer en attente.
Voil� pour le principe !
"FdeCourt" <fdec...@gmail.com> a �crit dans le message de groupe de discussion :
3932301e-21ae-4f19...@c34g2000yqn.googlegroups.com...
sollicit� par Excel au maximum ?
FdeCourt
Cordialement,
F.
shillow
LE SEUL TRUC C EST QUE JE DOIS A CHAQUE FOIS AJOUTER MANUELLEMENT LA LIBRARY
MICROSOFT INTERNET ETC... mais bon pas grave
"michdenis" <mich...@hotmail.com> a �crit dans le message de news:
ueGkGm6k...@TK2MSFTNGP06.phx.gbl...