Voici le code:
Dim db As Database, rs1 As Recordset
Dim rs2 As Recordset
Dim stDocName As String
Dim chain As String
Dim nom As String
nom = "DUPOND"

Set db = CurrentDb()
Set rs1 = db.OpenRecordset("Select * from Salarie WHERE [NomSalarie]=" & nom)
chain = rs1.Fields("NumSalarie")

MsgBox chain
db.Close

La msgbox m'affiche "Trop peu de paramètres 1 attendu"

Alors que dois-je faire ???

Merci
Y.C

Enlève les cochets de NomSalarie et essai cette requête

Set rs1 = db.OpenRecordset("Select * from Salarie WHERE [NomSalarie]='" & nom & "'")