Discussion :

[Cléoline]

Bonjour à tous,

Je sollicite votre aide car je bloque sur une manip. (il faut savoir que je ne suis pas du tout compétence sur Visual Basic, et que je bidouille)

Donc, j'ai un formulaire avec une adresse sur 3 champs différents : adresse, CP, localité.
Je souhaiterai, avec un bouton, pouvoir voir cette adresse sur Google Maps.

J'y arrive à l'aide de ce code en n'allant cherché qu'un champ, la localité :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande317_Click()
 
Dim strString As String
 
strString = "https://www.google.fr/maps/place/" + [Localite] + ""
 
Application.FollowHyperlink strString
 
End Sub

Il faudrait que je puisse remplacer les espaces par des + dans le champ adresse, et concatener avec une virgule, le champ CP et le champ Localité pour avoir l'adresse exacte :

"https://www.google.fr/maps/place/5+Av.+des+Champs-Élysées,+75008+Paris-8E-Arrondissement"

J'ai essayé avec un "REPLACE" mais je n'arrive pas à bien faire.

Merci pour votre aide !

Cléoline

[Thierry_PALLIER]

Bonjour Cléoline.

Ce code devrait fonctionner:

Code :

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

strString = "https://www.google.fr/maps/place/" & [adresse] & " ,+ " & [code postal] & "+" & [localite]

Cdlt

[Cléoline]

Super ça marche !!
Merci beaucoup !!

Bonne après-midi

Cléoline