Problème variable avec Dlookup et Injection dans navigateur incrusté

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:

---

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

---

Que fais-je mal ?

Code:

---

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

Code:

---

(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:

---

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

---

et dans ton code :

Code:

---

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+

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:

---

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