Bonsoir,
peux-tu ajouter Debug.Print strSql avant la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
    Dim Qrd As DAO.QueryDef
et poster le résultat qui apparait dans la fenêtre d'exécution de VBA ?
Merci