Discussion :

[jokenjo]

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 :

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

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

[tomy7]

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

[jokenjo]

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

[tomy7]

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!

[jokenjo]

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

[tomy7]

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

[jokenjo]

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