Discussion :

[sardaucar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[argyronet]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sardaucar]

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 !