Enregistrer un état au format Excel

Question

Bonjour à tous,

Je souhaite enregistrer dans un répertoire prédéfini un état au format Excel lors de la fermeture de celui-ci.

Voici ce que j'ai fait : 

Sub saveTXT()
    DoCmd.Save acReport, "ReqUnionToday", _
    acFormatXLS, Environ("USERPROFILE") & "\Documents\Rapport des appels.xls"
End Sub

Private Sub Report_Close()
    saveTXT
End Sub


J'ai une erreur :
Nombre d'arguments incorrect ou affectation de propriété incorrecte

Quelqu'un aurait-il un idée ?

Merci d'avance.

letzwa · Answer

C'est bon j'ai trouvé pour ceux que ça intéresse voici le code qui permet un enregistrement à la fois PDF et Excel avec la date dans le nom du fichier (afin d'éviter qu'à chaque sauvegarde le fichier soit écrasé) lors du clic sur un bouton :


Sub savePDF()
    DoCmd.OutputTo acOutputReport, "ReqUnionToday", acFormatPDF, Environ("USERPROFILE") & "\Documents\Rapports\Rapport journalier des appels " & Format(Date, "ddmmyy") & "_" & Format(Time, "hhmmss") & ".pdf"
End Sub

Sub saveXLS()
    DoCmd.OutputTo acOutputReport, "ReqUnionToday", acFormatXLS, Environ("USERPROFILE") & "\Documents\Rapports\Rapport journalier des appels " & Format(Date, "ddmmyy") & "_" & Format(Time, "hhmmss") & ".xls"
End Sub

Private Sub btnSave_Click()
    savePDF
    saveXLS
End Sub


Bonne journée

Enregistrer un état au format Excel

1 réponse

Votre réponse

Discussions similaires