Discussion :

[clickandgo]

Bonjour à tous,

J'ai enregistré dans une table paramètres le path servant de modèle de la page de recherche de google maps que mon code est sensé récupérer avec Dlookup pour alimenter la variable strURL, or après un Debug.print les valeurs des variables strStartingPoint et strDestination contenues dans le dit path enregistré ne "remontent pas" dans la chaîne qui suit ...

Code :

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

(https://maps.google.com/maps?f=d&hl=fr&saddr="& strStartingPoint &"&daddr="& strDestination &"&ie=UTF8&z=5&om=1)

Que fais-je mal ?

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
Option Compare Database
Option Explicit
Public strURL As String
Public Function RechGoogleMaps(strStartingPoint As String, strDestination As String)
 
Dim strURL As String
Dim ie As Object
 
strStartingPoint = Replace(strStartingPoint, " ", "+")
strDestination = Replace(strDestination, " ", "+")
 
strURL = DLookup("pathgooglemaps", "paramètres")
Debug.Print strURL
 
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate strURL
ie.Visible = True
 
End Function

Merci beaucoup d'avance

[marot_r]

Code :

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

(https://maps.google.com/maps?f=d&hl=fr&saddr="& strStartingPoint &"&daddr="& strDestination &"&ie=UTF8&z=5&om=1)

est le contenu de strURL, n'est-ce pas ?

Une chaîne n'est pas interprétée comme du code, voici ce que je te suggère :

Mettre dans ta table :

Code :

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

(https://maps.google.com/maps?f=d&hl=fr&saddr=[prmStartingPoint]&daddr=[prmDestination]&ie=UTF8&z=5&om=1)

et dans ton code :

Code :

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

1
2
strUL=replace(strURL, "[prmStartingPoint]", strStartingPoint)
strUL=replace(strURL, "[prmDestination]", strDestination)

qui vont remplacer les paramètres par leurs valeurs

Note : j'utilise "prm" pour "paramètre". Cela permet de savoir que l'info vient de l'extérieur.

A+

[clickandgo]

Merci pour ta réponse, cependant, il me dit "incompatibilité de type"
J'ai déclaré les paramètres en string (je ne sais pas si c'est nécéssaire...)

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
Public Function RechGoogleMaps(strStartingPoint As String, strDestination As String)
 
Dim strURL As String
Dim ie As Object
Dim prmStartingPoint As String
Dim Destination As String
 
strStartingPoint = Replace("[prmStartingPoint]", strStartingPoint, " ", "+")
strDestination = Replace("[prmDestination]", strDestination, " ", "+")
 
strURL = DLookup("pathgooglemaps", "paramètres")
Debug.Print strURL
 
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate strURL
ie.Visible = True
 
End Function

D'autre part je voudrais afficher le résultat dans un contrôle navigateur incrusté (access 2010), j'ai essayé en utilisant "Navigate ..." ça n'accepte pas la commande ...) Je ne comprends pas pourquoi