bonjour,
jai fait tun code pour l'exportation vers excel mais il me donne l'erreur suivante:

erreur d'execution '53':
voila le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim appExcel As Excel.Application 'Application Excel
    Kill CurDir & "\fich_suivi_mot_pass.xls"
    DoCmd.TransferSpreadsheet acExport, , "Exporter mois courant", "fich_suivi_mot_pass.xls", False, ""

    Set appExcel = CreateObject("excel.application")
    Set wbExcel = appExcel.Workbooks.Open("fich_suivi_mot_pass.xls")

    appExcel.Visible = True

en faisant le deboguage il se positionne sur la ligne suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Kill CurDir & "\fich_suivi_mot_pass.xls"
merci