export avec parametre inputbox

Bonjour
je n´arrive pas trouver,l´erreur sur ce code d´export de donnee access vers excel avec un inputbox.En fait l´utilisateur saisit un nom de personne dans un Inputbox et les données sont alors envoyer sur la feuille excel.
voici mon code :

Code:

---

1 2 3 4 5 6 7 8

Dim db As DAO.Database Dim rec As DAO.Recordset Dim personne As String Set db = DAO.OpenDatabase(ThisWorkbook.Path & "\users.mdb", False, False) personne = InputBox("entrez nom")   Set rec = db.OpenRecordset("SELECT name FROM travailleur where prenom = " & personne, DAO.dbOpenSnapshot)

---

l´erreur ces qu´il 1 manque le parametre ..
merci

quelle est le message d erreur quand tu lance ta routine?

Citation:

---

Envoyé par tomy7

quelle est le message d erreur quand tu lance ta routine?

---

"il manque un parametre ,il y a peu de parametre "
je pense qu´il ne reconnait pas le paramtre passe dans le inputbox ?
merci

tu as bien mis dans tools>references >Microsoft DAO 3.6 object library et Microsoft excel 11.0 object library?
ca vient peut etre de la!

Oui j ai bien cocher la librairie dao,En fait avec une export normal sans parametre je peux importer les données sur excels .Mais avec ce type d´Inputbox je ne comprend pas pourquoi il ne reconnait pas ce parametre ?
merci

solution de rechange si il ne reconnait pas ta inputbox essaye de creer un userform avec un textbox et tu teste de la meme maniere ce que rentre le "user" dedans?

non?

car la sinon je vois pas mes connaissances sont encore trop limitees

dsl

en tou ca merci , je cherche toujours , des que je trouve je laisserai la solution ici :-)
merci

t inquiet si j ai une idee ou un truc qui peut t interesser je te l envoi!
mais pour le moment je seche sur ton prob!
ciao


tom

bonjour

Essaye

Code:

---

where prenom = '" & personne & "'", DAO.dbOpenSnapshot)

---

bonne soirée
michel

merci Silkyroad ,c´etait cela le probleme :-)
probleme resolu