google et chrome vba

Le
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
>>
>
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Mgr T. Banni
Le #20934601
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"
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"
suite
chez moi et donc à adapter :

Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1

tout sur une seule ligne....
T.B.

"shillow" %23IZB%
Bonjour,

Connaissez vous le code en vba qui permette d'ouvri google chrome et non
IE7?

merci par avance

shillow











Jacquouille
Le #20936201
Monseigneur a-t-il reçu mon courriel dans sa BAL perso ?
Jacques, très impatient.

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"Mgr T. Banni" %
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"
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"
suite
chez moi et donc à adapter :

Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1

tout sur une seule ligne....
T.B.

"shillow" %23IZB%
Bonjour,

Connaissez vous le code en vba qui permette d'ouvri google chrome et
non
IE7?

merci par avance

shillow














shillow
Le #20947311
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"
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"
suite
chez moi et donc à adapter :

Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1

tout sur une seule ligne....
T.B.

"shillow" %23IZB%
Bonjour,

Connaissez vous le code en vba qui permette d'ouvri google chrome et non
IE7?

merci par avance

shillow











Mgr T. Banni
Le #20947541
bonjour shillow
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"
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"
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"
suite
chez moi et donc à adapter :

Shell "C:Documents and Settingsjean-paulLocal SettingsApplication
DataGoogleChromeApplicationchrome.exe", 1

tout sur une seule ligne....
T.B.

"shillow" %23IZB%
Bonjour,

Connaissez vous le code en vba qui permette d'ouvri google chrome et
non
IE7?

merci par avance

shillow















FdeCourt
Le #20948411
Salut,

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



FdeCourt
Le #20949931
Salut Isabelle,

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
Le #20950411
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
Le #20950601
Merci a tout le monde pour votre aide je sents qu'on approche de la
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" O$%
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.









Publicité
Poster une réponse
Anonyme