Discussion :

[CmzxNene]

Bonjour,

Je développe une appli et dans celle-ci je souhaiterais positionner un champ qui ferait apparaître GOOGLE MAPS et un drapeau ou autre au regard de l'adresse inscrite dans un champ texte à côté.
Pouvez-vous m'aiguiller et me dire si c'est faisable.
Si vous avez des exemples tout fait, je suis preneur.

Dans l'attente d'une réponse,
cordiales salutations

[User]

Bonjour,

Il y a des exemples disponibles dans les contributions, voici le résultat de la recherche :

http://www.developpez.net/forums/d15...avascript-vba/

http://www.developpez.net/forums/d15...s-google-maps/

http://www.developpez.net/forums/d65...sses-postales/

http://www.developpez.net/forums/d12...-maps-capture/

Cdlt

[CmzxNene]

Bonjour User,

Merci pour les liens.
J'ai téléchargé l'exemple figurant dans le 4ème lien, mais lorsque je clique sur le bouton 'Capture MAP' avec l'adresse de la Tour Eiffel figurant sur la base Access, j'ai le débogage MS VB suivant :

Code :

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

1
2
3
4
5
Private Sub Go_Click()
WBC.Document.getElementById("q_d").innerText = Nz(search, "") '<== en jaune
WBC.Document.Forms("q_form").submit
InitMap
End Sub

et ensuite, si je fais 'Fin', le formulaire Fm_Capture s'ouvre et un MSG GOOGLE me signifie 'Vous semblez utiliser un navigateur non compatible' alors que j'ai la dernière version de Firefox.
J'ai essayé de mettre IE en navigateur par défaut car je crois que Web Browser est un active x de IE, mais rien n'y fait.

Une idée ?
Merci

[User]

Bonjour,

Il faudrait contacter l'auteur de cette contribution :

A première vue je dirai qu'il faut repérer la commande

Code :

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

1
2
 
WBC.Navigate "www.lesite.fr"

Ensuite, repéré la variable search pour voir son contenu :

Par exemple, faire un debug.print avant le passage de la variable dans le code pour voir son contenu:

Code :

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

1
2
3
4
5
6
Private Sub Go_Click()
debug.print search
WBC.Document.getElementById("q_d").innerText = Nz(search, "") '<== en jaune
WBC.Document.Forms("q_form").submit
InitMap
End Sub

Et en effet, l'objet browser WBC est assimilable à un objet IE dans lequel tu as un document dont tu peux explorer les éléments.

Donc, c'est une technologie internet explorer, cf. ce tutoriel :
IE et VBA

Cdlt,