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