Fonction Output To sans enregistrer le fichier ouvert

Bonjour à tous !

J'utilise la fonction Output To depuis quelques temps, et je me demandais s'il était possible d’empêcher un fichier de s'enregistrer automatiquement lorsqu'il s'ouvre :

Par exemple avec ce code là

Code:

---

DoCmd.OutputTo acOutputReport, "E_Etatcivil", acFormatPDF, "Etat civil " & [Nom_personnes] & " " & [Prenom_personnes] & ".PDF", True

---

le fichier s'enregistre automatiquement dans mes documents à l'ouverture, et donc même si je le ferme sans enregistrer il restera dans mes documents.

Auriez vous une idée pour faire en sorte que si je le ferme sans enregistrer il ne soit plus dans un dossier ?

Cordialement,

Sardaucar

Bonjour,

Il s'agit d'un PDF: tu nas pas d'autre choix que de le stocker sur le disque pour y accéder...
C'est conçu comme ça.

Donc, un moyen : supprimer physiquement le fichier dans le process de création une fois visualisé via un Kill().

Par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub TestPDF() Dim strPDFFilename As String   On Error GoTo L_ErrTestPDF   strPDFFilename = Application.CurrentProject.Path & "\PDF Output\Test Output.pdf" DoCmd.OutputTo acOutputReport, "Test_PDF", acFormatPDF, strPDFFilename, True DoEvents If MsgBox("On garde le PDF ?", vbQuestion + vbYesNo + vbDefaultButton2, "Humm...") = vbNo Then Kill strPDFFilename End If   On Error GoTo 0 L_ExTestPDF: Exit Sub   L_ErrTestPDF: MsgBox err.Description, 48, err.Source Resume L_ExTestPDF End Sub

---

Toutefois, selon la façon dont sera géré le process, l'erreur 70 peut être de mise...

Argy

Ha d'accord ! Je vais essayer ça et modifier un peu le kill pour avoir plutôt une boite de dialogue qui propose d'enregistrer le fichier, je vais travailler dessus !


merci encore !