Bonjour Michel,
Voici une façon de faire pour récupérer le texte
du contrôle dans la page web :
'-------------------------------------
Sub Récupérer_Page_Web()
Dim Wk As Workbook, Sh As Shape
Dim Adr As String
Adr = "http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"
Application.ScreenUpdating = False
Set Wk =
Workbooks.Open("http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php")
Texte = Wk.Worksheets(1).Shapes _
("Contrôle 1").OLEFormat.Object.Object
Wk.Close False
Application.ScreenUpdating = True
MsgBox Texte
End Sub
'-------------------------------------
"Michel Angelosanto" a écrit dans le message de groupe
de discussion :
Bonjour,
A partir d'Excel, j'essaie de récupérer des données avec IE que je pilote
avec des commandes passées par sendkeys.
Le pb c'est que les commandes sélectionner tout CTRL+A, copier CTRL+C et
coller CTRL+V ne marchent pas ans IE via sendkeys alors que manuellement
tout va bien.
Auriez-vous une idée ? Je vous joins le code dans lequel j'ai mis des
pauses
pour voir ce qui se passe (ou plutot ne se passe pas!)
Merci pour votre aide.
Sub interro_coordonnees_gps()
Set ws = VBA.CreateObject("WScript.Shell")
ws.SendKeys "%{TAB}" 'ok on va sur IE
Application.Wait (Now + TimeValue("0:00:01"))
SetURL "http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"
clic 1195, 99 'click sur ok
ws.SendKeys "%{TAB}" 'ok on revient sur Excel
Application.Wait (Now + TimeValue("0:00:05"))
Cells(1, 2).Copy
ws.SendKeys "%{TAB}" 'ok on passe sur IE
Application.Wait (Now + TimeValue("0:00:05"))
clic 372, 183
ws.SendKeys "^A" 'pas ok
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "^V" 'pas ok
clic 707, 179 'bouton Convertir en coordonnées GPS
Application.Wait (Now + TimeValue("0:00:05"))
clic 256, 210 'click dans la zone latitude
ws.SendKeys "^A" 'pas ok
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "^C" 'pas ok
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "%{TAB}" 'ok on passe à Excel
Application.Wait (Now + TimeValue("0:00:05"))
Cells(2, 2).Select
ws.SendKeys "^V" 'ok on est dans Excel
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "%{TAB}" 'ok on passe à IE
Application.Wait (Now + TimeValue("0:00:05"))
clic 416, 210 'click dans la zone longitude
ws.SendKeys "^A" 'pas ok
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "^C" 'pas ok
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "%{TAB}" 'ok on passe à Excel
Application.Wait (Now + TimeValue("0:00:05"))
Cells(2, 4).Select
ws.SendKeys "^V" 'ok on est dans Excel
End Sub
Michel Angelosanto, Bordeaux, France
Bonjour Michel,
Voici une façon de faire pour récupérer le texte
du contrôle dans la page web :
'-------------------------------------
Sub Récupérer_Page_Web()
Dim Wk As Workbook, Sh As Shape
Dim Adr As String
Adr = "http://www.gpsfrance.net/services/adresse2gps.php"
Application.ScreenUpdating = False
Set Wk =
Workbooks.Open("http://www.gpsfrance.net/services/adresse2gps.php")
Texte = Wk.Worksheets(1).Shapes _
("Contrôle 1").OLEFormat.Object.Object
Wk.Close False
Application.ScreenUpdating = True
MsgBox Texte
End Sub
'-------------------------------------
"Michel Angelosanto" <angelosa@free.fr> a écrit dans le message de groupe
de discussion :
erym3dDHKHA.4024@TK2MSFTNGP02.phx.gbl...
Bonjour,
A partir d'Excel, j'essaie de récupérer des données avec IE que je pilote
avec des commandes passées par sendkeys.
Le pb c'est que les commandes sélectionner tout CTRL+A, copier CTRL+C et
coller CTRL+V ne marchent pas ans IE via sendkeys alors que manuellement
tout va bien.
Auriez-vous une idée ? Je vous joins le code dans lequel j'ai mis des
pauses
pour voir ce qui se passe (ou plutot ne se passe pas!)
Merci pour votre aide.
Sub interro_coordonnees_gps()
Set ws = VBA.CreateObject("WScript.Shell")
ws.SendKeys "%{TAB}" 'ok on va sur IE
Application.Wait (Now + TimeValue("0:00:01"))
SetURL "http://www.gpsfrance.net/services/adresse2gps.php"
clic 1195, 99 'click sur ok
ws.SendKeys "%{TAB}" 'ok on revient sur Excel
Application.Wait (Now + TimeValue("0:00:05"))
Cells(1, 2).Copy
ws.SendKeys "%{TAB}" 'ok on passe sur IE
Application.Wait (Now + TimeValue("0:00:05"))
clic 372, 183
ws.SendKeys "^A" 'pas ok
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "^V" 'pas ok
clic 707, 179 'bouton Convertir en coordonnées GPS
Application.Wait (Now + TimeValue("0:00:05"))
clic 256, 210 'click dans la zone latitude
ws.SendKeys "^A" 'pas ok
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "^C" 'pas ok
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "%{TAB}" 'ok on passe à Excel
Application.Wait (Now + TimeValue("0:00:05"))
Cells(2, 2).Select
ws.SendKeys "^V" 'ok on est dans Excel
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "%{TAB}" 'ok on passe à IE
Application.Wait (Now + TimeValue("0:00:05"))
clic 416, 210 'click dans la zone longitude
ws.SendKeys "^A" 'pas ok
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "^C" 'pas ok
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "%{TAB}" 'ok on passe à Excel
Application.Wait (Now + TimeValue("0:00:05"))
Cells(2, 4).Select
ws.SendKeys "^V" 'ok on est dans Excel
End Sub
Michel Angelosanto, Bordeaux, France
Bonjour Michel,
Voici une façon de faire pour récupérer le texte
du contrôle dans la page web :
'-------------------------------------
Sub Récupérer_Page_Web()
Dim Wk As Workbook, Sh As Shape
Dim Adr As String
Adr = "http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"
Application.ScreenUpdating = False
Set Wk =
Workbooks.Open("http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php")
Texte = Wk.Worksheets(1).Shapes _
("Contrôle 1").OLEFormat.Object.Object
Wk.Close False
Application.ScreenUpdating = True
MsgBox Texte
End Sub
'-------------------------------------
"Michel Angelosanto" a écrit dans le message de groupe
de discussion :
Bonjour,
A partir d'Excel, j'essaie de récupérer des données avec IE que je pilote
avec des commandes passées par sendkeys.
Le pb c'est que les commandes sélectionner tout CTRL+A, copier CTRL+C et
coller CTRL+V ne marchent pas ans IE via sendkeys alors que manuellement
tout va bien.
Auriez-vous une idée ? Je vous joins le code dans lequel j'ai mis des
pauses
pour voir ce qui se passe (ou plutot ne se passe pas!)
Merci pour votre aide.
Sub interro_coordonnees_gps()
Set ws = VBA.CreateObject("WScript.Shell")
ws.SendKeys "%{TAB}" 'ok on va sur IE
Application.Wait (Now + TimeValue("0:00:01"))
SetURL "http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.gpsfrance.net/services/adresse2gps.php"
clic 1195, 99 'click sur ok
ws.SendKeys "%{TAB}" 'ok on revient sur Excel
Application.Wait (Now + TimeValue("0:00:05"))
Cells(1, 2).Copy
ws.SendKeys "%{TAB}" 'ok on passe sur IE
Application.Wait (Now + TimeValue("0:00:05"))
clic 372, 183
ws.SendKeys "^A" 'pas ok
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "^V" 'pas ok
clic 707, 179 'bouton Convertir en coordonnées GPS
Application.Wait (Now + TimeValue("0:00:05"))
clic 256, 210 'click dans la zone latitude
ws.SendKeys "^A" 'pas ok
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "^C" 'pas ok
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "%{TAB}" 'ok on passe à Excel
Application.Wait (Now + TimeValue("0:00:05"))
Cells(2, 2).Select
ws.SendKeys "^V" 'ok on est dans Excel
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "%{TAB}" 'ok on passe à IE
Application.Wait (Now + TimeValue("0:00:05"))
clic 416, 210 'click dans la zone longitude
ws.SendKeys "^A" 'pas ok
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "^C" 'pas ok
Application.Wait (Now + TimeValue("0:00:01"))
ws.SendKeys "%{TAB}" 'ok on passe à Excel
Application.Wait (Now + TimeValue("0:00:05"))
Cells(2, 4).Select
ws.SendKeys "^V" 'ok on est dans Excel
End Sub
Michel Angelosanto, Bordeaux, France
Bonjour Michel,
Comme on ne peut pas utiliser les moyens habituels
de programmation, il faut s'aider un peu ! Pour ce
faire, Excel est déjà ouvert, moi, je l'ai mis à l'adresse
suivante : http://mail.live.com/
et afin de m'assurer que la procédure débute toujours
dans la même séquence, je sélectionne l'adresse dans
la boîte d'adresse d'internet explorer.
Dans la procédure "Activer la fenêtre", tu dois définir
cette variable avec ce que l'application "internet explorer"
affiche dans sa barre de titre... mais c'est ce que j'ai ...
Voir_Fenêtre = "Windows Live Hotmail - Windows Internet Explorer"
Dans la procédure, tu dois définir le nom de la feuille et de la
plage de cellules où sont situées tes adresses. Moi j'ai retenu
range("A1:A3") . La latitude s'inscrit dans la colonne B et la
longitude dans la colonne C sur la même ligne que l'adresse.
à 2 endroits dans le code, tu as un ligne de code comme suit :
Application.SendKeys "{TAB 9}" et Application.SendKeys "{TAB 13}"
Les numéros 9 et 13 sont probablement différents dans ton
environnement. Proablement plus près de 4 à 6 et de 8 à 10.
C'est à toi de tester.
Les délais par Application.Wait() sont plutôt longs... cela dépend
de la machine. Ça roule lentement, mais cela fait le travail tout seul.
Tu places tout ce qui suit dans un module standard.
Déclaration des API dans le haut du module
'----------------------------------------------------------
Private Declare Function OpenClipboard Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_NORMAL = 1
'----------------------------------------------------------
Sub Activer_Voir_Fenêtre()
Dim hwnd As Long, Voir_Fenêtre As String
Voir_Fenêtre = "Windows Live Hotmail - Windows Internet Explorer"
hwnd = FindWindow(vbNullString, Voir_Fenêtre)
If hwnd = 0 Then Exit Sub
SetForegroundWindow hwnd
ShowWindow hwnd, SW_NORMAL
End Sub
'----------------------------------------------------------
Sub Vider_Presse_Papier()
OpenClipboard 0
EmptyClipboard
CloseClipboard
End Sub
'----------------------------------------------------------
Sub Denis()
Dim C As Range
Dim X As New DataObject
Dim IE As Object
Dim Adr As String
Dim Adresse As String
Vider_Presse_Papier
Activer_Voir_Fenêtre
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "http://www.gpsfrance.net/services/adresse2gps.php"
Application.Wait Now + TimeValue("00:00:02")
SendKeys "~"
Application.Wait Now + TimeValue("00:00:04")
Application.SendKeys "{TAB 9}"
Application.Wait Now + TimeValue("00:00:02")
With worksheets("Feuil") 'Nom de la feuille à adapter
For Each C In .range("A1:A3") 'Plage à adapter
Adresse = C.Value
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys Adresse
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "{TAB}" & "~"
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "{TAB}"
Application.Wait Now + TimeValue("00:00:03")
Application.SendKeys "^c"
Application.Wait Now + TimeValue("00:00:01")
X.GetFromClipboard
MyVar = X.GetText(1)
C.Offset(, 1).Value = MyVar
Vider_Presse_Papier
Application.Wait Now + TimeValue("00:00:03")
Application.SendKeys "{TAB}"
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "^c"
Application.Wait Now + TimeValue("00:00:01")
X.GetFromClipboard
MyVar = X.GetText(1)
C.Offset(, 2).Value = MyVar
Vider_Presse_Papier
Application.Wait Now + TimeValue("00:00:01")
Application.SendKeys "{TAB 13}"
Application.Wait Now + TimeValue("00:00:02")
End With
Next
End Sub
'----------------------------------------------------------
Bonjour Michel,
Comme on ne peut pas utiliser les moyens habituels
de programmation, il faut s'aider un peu ! Pour ce
faire, Excel est déjà ouvert, moi, je l'ai mis à l'adresse
suivante : http://mail.live.com/
et afin de m'assurer que la procédure débute toujours
dans la même séquence, je sélectionne l'adresse dans
la boîte d'adresse d'internet explorer.
Dans la procédure "Activer la fenêtre", tu dois définir
cette variable avec ce que l'application "internet explorer"
affiche dans sa barre de titre... mais c'est ce que j'ai ...
Voir_Fenêtre = "Windows Live Hotmail - Windows Internet Explorer"
Dans la procédure, tu dois définir le nom de la feuille et de la
plage de cellules où sont situées tes adresses. Moi j'ai retenu
range("A1:A3") . La latitude s'inscrit dans la colonne B et la
longitude dans la colonne C sur la même ligne que l'adresse.
à 2 endroits dans le code, tu as un ligne de code comme suit :
Application.SendKeys "{TAB 9}" et Application.SendKeys "{TAB 13}"
Les numéros 9 et 13 sont probablement différents dans ton
environnement. Proablement plus près de 4 à 6 et de 8 à 10.
C'est à toi de tester.
Les délais par Application.Wait() sont plutôt longs... cela dépend
de la machine. Ça roule lentement, mais cela fait le travail tout seul.
Tu places tout ce qui suit dans un module standard.
Déclaration des API dans le haut du module
'----------------------------------------------------------
Private Declare Function OpenClipboard Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_NORMAL = 1
'----------------------------------------------------------
Sub Activer_Voir_Fenêtre()
Dim hwnd As Long, Voir_Fenêtre As String
Voir_Fenêtre = "Windows Live Hotmail - Windows Internet Explorer"
hwnd = FindWindow(vbNullString, Voir_Fenêtre)
If hwnd = 0 Then Exit Sub
SetForegroundWindow hwnd
ShowWindow hwnd, SW_NORMAL
End Sub
'----------------------------------------------------------
Sub Vider_Presse_Papier()
OpenClipboard 0
EmptyClipboard
CloseClipboard
End Sub
'----------------------------------------------------------
Sub Denis()
Dim C As Range
Dim X As New DataObject
Dim IE As Object
Dim Adr As String
Dim Adresse As String
Vider_Presse_Papier
Activer_Voir_Fenêtre
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "http://www.gpsfrance.net/services/adresse2gps.php"
Application.Wait Now + TimeValue("00:00:02")
SendKeys "~"
Application.Wait Now + TimeValue("00:00:04")
Application.SendKeys "{TAB 9}"
Application.Wait Now + TimeValue("00:00:02")
With worksheets("Feuil") 'Nom de la feuille à adapter
For Each C In .range("A1:A3") 'Plage à adapter
Adresse = C.Value
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys Adresse
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "{TAB}" & "~"
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "{TAB}"
Application.Wait Now + TimeValue("00:00:03")
Application.SendKeys "^c"
Application.Wait Now + TimeValue("00:00:01")
X.GetFromClipboard
MyVar = X.GetText(1)
C.Offset(, 1).Value = MyVar
Vider_Presse_Papier
Application.Wait Now + TimeValue("00:00:03")
Application.SendKeys "{TAB}"
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "^c"
Application.Wait Now + TimeValue("00:00:01")
X.GetFromClipboard
MyVar = X.GetText(1)
C.Offset(, 2).Value = MyVar
Vider_Presse_Papier
Application.Wait Now + TimeValue("00:00:01")
Application.SendKeys "{TAB 13}"
Application.Wait Now + TimeValue("00:00:02")
End With
Next
End Sub
'----------------------------------------------------------
Bonjour Michel,
Comme on ne peut pas utiliser les moyens habituels
de programmation, il faut s'aider un peu ! Pour ce
faire, Excel est déjà ouvert, moi, je l'ai mis à l'adresse
suivante : http://mail.live.com/
et afin de m'assurer que la procédure débute toujours
dans la même séquence, je sélectionne l'adresse dans
la boîte d'adresse d'internet explorer.
Dans la procédure "Activer la fenêtre", tu dois définir
cette variable avec ce que l'application "internet explorer"
affiche dans sa barre de titre... mais c'est ce que j'ai ...
Voir_Fenêtre = "Windows Live Hotmail - Windows Internet Explorer"
Dans la procédure, tu dois définir le nom de la feuille et de la
plage de cellules où sont situées tes adresses. Moi j'ai retenu
range("A1:A3") . La latitude s'inscrit dans la colonne B et la
longitude dans la colonne C sur la même ligne que l'adresse.
à 2 endroits dans le code, tu as un ligne de code comme suit :
Application.SendKeys "{TAB 9}" et Application.SendKeys "{TAB 13}"
Les numéros 9 et 13 sont probablement différents dans ton
environnement. Proablement plus près de 4 à 6 et de 8 à 10.
C'est à toi de tester.
Les délais par Application.Wait() sont plutôt longs... cela dépend
de la machine. Ça roule lentement, mais cela fait le travail tout seul.
Tu places tout ce qui suit dans un module standard.
Déclaration des API dans le haut du module
'----------------------------------------------------------
Private Declare Function OpenClipboard Lib "user32" _
(ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_NORMAL = 1
'----------------------------------------------------------
Sub Activer_Voir_Fenêtre()
Dim hwnd As Long, Voir_Fenêtre As String
Voir_Fenêtre = "Windows Live Hotmail - Windows Internet Explorer"
hwnd = FindWindow(vbNullString, Voir_Fenêtre)
If hwnd = 0 Then Exit Sub
SetForegroundWindow hwnd
ShowWindow hwnd, SW_NORMAL
End Sub
'----------------------------------------------------------
Sub Vider_Presse_Papier()
OpenClipboard 0
EmptyClipboard
CloseClipboard
End Sub
'----------------------------------------------------------
Sub Denis()
Dim C As Range
Dim X As New DataObject
Dim IE As Object
Dim Adr As String
Dim Adresse As String
Vider_Presse_Papier
Activer_Voir_Fenêtre
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "http://www.gpsfrance.net/services/adresse2gps.php"
Application.Wait Now + TimeValue("00:00:02")
SendKeys "~"
Application.Wait Now + TimeValue("00:00:04")
Application.SendKeys "{TAB 9}"
Application.Wait Now + TimeValue("00:00:02")
With worksheets("Feuil") 'Nom de la feuille à adapter
For Each C In .range("A1:A3") 'Plage à adapter
Adresse = C.Value
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys Adresse
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "{TAB}" & "~"
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "{TAB}"
Application.Wait Now + TimeValue("00:00:03")
Application.SendKeys "^c"
Application.Wait Now + TimeValue("00:00:01")
X.GetFromClipboard
MyVar = X.GetText(1)
C.Offset(, 1).Value = MyVar
Vider_Presse_Papier
Application.Wait Now + TimeValue("00:00:03")
Application.SendKeys "{TAB}"
Application.Wait Now + TimeValue("00:00:02")
Application.SendKeys "^c"
Application.Wait Now + TimeValue("00:00:01")
X.GetFromClipboard
MyVar = X.GetText(1)
C.Offset(, 2).Value = MyVar
Vider_Presse_Papier
Application.Wait Now + TimeValue("00:00:01")
Application.SendKeys "{TAB 13}"
Application.Wait Now + TimeValue("00:00:02")
End With
Next
End Sub
'----------------------------------------------------------
| Pour l'instant, il me faut 6 secondes par adresse.
**** Pourquoi ne pas publier le code que tu utilises ici ?
Question d'en faire bénéficier les amis !
| Pour l'instant, il me faut 6 secondes par adresse.
**** Pourquoi ne pas publier le code que tu utilises ici ?
Question d'en faire bénéficier les amis !
| Pour l'instant, il me faut 6 secondes par adresse.
**** Pourquoi ne pas publier le code que tu utilises ici ?
Question d'en faire bénéficier les amis !
| Pour l'instant, il me faut 6 secondes par adresse.
**** Pourquoi ne pas publier le code que tu utilises ici ?
Question d'en faire bénéficier les amis !
| Pour l'instant, il me faut 6 secondes par adresse.
**** Pourquoi ne pas publier le code que tu utilises ici ?
Question d'en faire bénéficier les amis !
| Pour l'instant, il me faut 6 secondes par adresse.
**** Pourquoi ne pas publier le code que tu utilises ici ?
Question d'en faire bénéficier les amis !