Bonjour

Mon code plante sur la ligne TransferSpreadsheet. Le moteur de données n'a pas pu trouver l'objet QryExportXLS
Il est pourtant bien créé

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Dim q As DAO.QueryDef
DoCmd.DeleteObject acQuery, "QryExportXLS"
Set q = CurrentDb.CreateQueryDef("QryExportXLS", StrSql)
DoCmd.TransferSpreadsheet acExport, , "QryExportXLS", StrFile, True
DoCmd.DeleteObject acQuery, "QryExportXLS"
Quelqu'un aurait une idée ?

Merci d'avance