Discussion :

[haonam]

Bonjour à tous,

Je cherche à exporter un état en PDF et à le stocker sur Access puis à l'envoyer par mail.

Mais une chose après l'autre !

Pour l'instant, j'arrive à exporter l'état en PDF sans souci. Mais je voudrais que le code décide du nom du fichier crée ainsi que de son emplacement sur mon ordinateur. J'ai trouvé de très nombreux articles à ce sujet, mais aucun ne donne réponse à ma question.

Voici mon code pour le moment :

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
Private Sub BT_Envoyer_Click()
    'Confirmation de la demande
    If MsgBox("Veuillez confirmer l'exportation et l'envoi de l'audit", vbOKCancel + vbDefaultButton2 + vbExclamation, "Publication d'un audit") = vbOK Then
        'Desactivation des demandes de confirmation
        DoCmd.SetWarnings False
        'Remplissage de la date d'envoi
        DoCmd.OpenQuery "RQ_DateEnvoye"
        'Remplissage de la table d'impression
        DoCmd.OpenQuery "RQ_AjoutImpression"
        'Impression de l état associee a la table Impression
        DoCmd.OpenReport "E_Impression", acViewNormal
        'Suppresion de toutes les lignes de la table
        DoCmd.OpenQuery "RQ_SuppressionImpression"
End If
End Sub

J'explique le programme ! Mon état est vide, et lorsque l'administrateur demande l'exportation de l'état, une requête vient le remplir avec les bonnes infos, l'exporte en PDF, puis vide l'état.

Comment indiquer le nom et le dossier d'enregistrement ?

Merci beaucoup et bonne soirée

[kiki29]

Salut, à voir : Enregistrez vos états au format PDF avec Office 2007

[haonam]

Bonjour,

Merci de votre réactivité.

Le fait est que le lien proposé utilise la fonction "PrintAsPDF". Je dispose d'Access 2016 et cette fonction semble ne pas exister, ou alors je ne sais pas l'utiliser correctement !

Pour l'instant, mon impression s'effectue avec OpenReport et fonctionne très bien, j'aimerais améliorer cette commande pour lui donner un nom variable.

Et kiki29, je crois que tu t'es trompé de lien ^^

[Braiice]

Le fait est que le lien proposé utilise la fonction "PrintAsPDF". Je dispose d'Access 2016 et cette fonction semble ne pas exister, ou alors je ne sais pas l'utiliser correctement !

Utilise la fonction que tu veux pour l'impression. Ce qui est intéressant dans le code c'est la création et manipulation d'un pdf, pas son impression vu que tu sais déjà le faire !
Lis bien le code, essaie de le comprendre et si tu as un pb poste moi les lignes qui restent floues.

[haonam]

Bonjour,

Eh bien il me fallait peut-être juste un petit coup de pouce !

J'ai changé de code et ça marche très bien. Je vous le mets pour information :

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
Private Sub BT_Envoyer_Click()
    Dim NomPDF As String, CheminPDF As String
    'Confirmation de la demande
    If MsgBox("Veuillez confirmer l'exportation et l'envoi de l'audit", vbOKCancel + vbDefaultButton2 + vbExclamation, "Publication d'un audit") = vbOK Then
        'Desactivation des demandes de confirmation
        DoCmd.SetWarnings False
        'Remplissage de la date d'envoi
        DoCmd.OpenQuery "RQ_DateEnvoye"
        'Suppresion de toutes les lignes de la table au cas ou elle n'est pas vide
        DoCmd.OpenQuery "RQ_SuppressionImpression"
        'Remplissage de la table d'impression
        DoCmd.OpenQuery "RQ_AjoutImpression"
        'Impression de l état associee a la table Impression
        CheminPDF = CurrentProject.Path
        NomPDF = "Audit-" & Format(Date, "yyyy-mm-dd") & ".PDF"
        DoCmd.OutputTo acOutputReport, "E_Impression", "PDFFormat(*.pdf)", CheminPDF & NomPDF, True, "", , acExportQualityPrint
        'Suppresion de toutes les lignes de la table
        DoCmd.OpenQuery "RQ_SuppressionImpression"
End If
End Sub

Donc en fait je suis passé de OpenReport à OutputTo et j'ai défini le nom de base et le chemin.

Merci à vous !