Variable dans requête Access vers Excel

[Xtian_Québec]

Salut le forum, bonne nouvelle année à tous...

J'ai enregistré une requête dans Excel pour récupérer des données à partir d'une base de données Access. Ma requête contient une condition et cette condition est représenté par le code suivant:

"SELECT HIST.ChefEquipe, HIST.CodeAgent, HIST.Agent, HIST.RefDossier" & Chr(13) & "" & Chr(10) & "FROM HIST HIST" & Chr(13) & "" & Chr(10) & _
"WHERE (HIST.CodeAgent=20171)")

Mon problème est que je veux utiliser une variable pour remplacer 20171 dans mon code. J'ai fait des recherches et j'ai trouvé la logique suivante:

Dim StrCodeAgent as String
StrCodeAgent = Range("A1").value

"WHERE (HIST.CodeAgent='" & CStr(StrCodeAgent) & "'")")

Ça ne fonctionne pas, c'est probablement à cause d'un ' ou d'un " en trop ou en moins...J'ai essayé plusieurs possibilités et rien ne fonctionne.

Quelqu'un peut m'expliquer ou est l'erreur ?

Merci à l'avance

Xtian du Québec
@+

 

[BOISGONTIER]

Re : Variable dans requête Access vers Excel

Bonjour,

Si le champ CodeAgent est numérique, il ne faut pas d'apostrophes.

"WHERE (HIST.CodeAgent=" & StrCodeAgent & ")")

JB

 

[Xtian_Québec]

Re : Variable dans requête Access vers Excel

Re BOISGONTIER

Merci,Merci,Merci !!!

J'avais tout essayer sauf enlever les apostrophes...

Merci, Merci, Merci !!! Tu fais ma journée !!!

à la prochaine

Xtian