Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel google et chrome vba

google et chrome vba

25 réponses
Avatar
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 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
>>
>
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
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" 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











Avatar
Jacquouille
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" a écrit dans le message de news:
%
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














Avatar
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











Avatar
Mgr T. Banni
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" a écrit dans le message de news:

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















Avatar
FdeCourt
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
Avatar
FdeCourt
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.
Avatar
isabelle
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.



Avatar
FdeCourt
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.
Avatar
shillow
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.





Avatar
shillow
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" a écrit dans le message de news:
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.









1 2 3