Discussion :

[pkrvz]

Bonjour,

Je cherche à interface mappy ou google map dans un formulaire access 97 avec le control active x web browser. pour qu'a la lecture d'une adresse dans mon formulaire, le control web browser pointe sur la page de mappy qui m'affiche la cartographie du lieu.

Merci de vos conseils

Cordialement
Patrick

[francishop]

Bonsoir,

Je préfères travailler avec Explorer.

Aprés avoir vu pour afficher une page web dans un formulaire par l'intermédiaire de webBrowser :
http://www.developpez.net/forums/sho...d.php?t=501128
Il te revient d'adapter à ton besoin.

... . Un formulaire
... . Quatre champs--> txtRue, txtVille, txtCP, txtPays
... . Un bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub cmdGoogle_Click()
 Call viaGoogle(Me!txtRue, Me!txtVille, _
                Me!txtCP, Me!txtPays)
End Sub

Dans un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub viaGoogle(strDireccion As String, strVille As String, strCP As String, strfr As String)
    Dim strURL As String
    Dim ie As Object
 
    strDireccion = Replace(strDireccion, " ", "-") 'Convertir les espace en -
    strDireccion = Replace(strDireccion, ",", "")  'Convertir les virgules en ""
 
    strVille = Replace(strVille, " ", "+") & ","
 
    strURL = "http://www.google.com/maps?"
    strURL = strURL & "hl=fr&q=" & strDireccion & ","
    strURL = strURL & strVille
    strURL = strURL & strCP
    strURL = strURL & "," & strfr 'Là je fais "facile"
                                  'mais comme je reste en France...
 
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Navigate strURL
    ie.Visible = True
End Sub

Cordialement.

[pkrvz]

Merci de ta réponse,

Je teste ce soir

Cordialement

Patrick

[pkrvz]

c'est super Merci bcp de ton aide, c'est impec...

Cordialement

Patrick