Re,
Private Sub Commande0_Click()
DoCmd.OpenReport "table1", acViewDesign, , , acHidden
lasql = "SELECT [Filtrage état].[Choix personnel], [Cra avec et sans mission].[N° de semaine], [Cra avec et sans mission].[Nom personnel], * FROM [Cra avec et sans mission], [Filtrage état] WHERE ((([Cra avec et sans mission].[N° de semaine])=[N° de semaine de cra]) AND (([Cra avec et sans mission].[Nom personnel])=[Choix personnel])); "
lesql = "SELECT Table1.nom, Table1.sem, * FROM Table1 WHERE (((Table1.nom)='" & nomf & "') );"
Reports!table1.RecordSource = lesql
'Fermer et enregistrer l'état
'acSaveYes pour valider l'enregistrement de l'état
DoCmd.Close acReport, "table1", acSaveYes
End Sub
peut répondre au reste.
Cordialement