Bonjour,
j'ai un petit soucis.
J'ai un état de plusieurs pages (1 personne par page) et j'aimerais obtenir plusieurs pdf (1 pdf par personne) pour les envoyer à chaque destinataire.
J'ai ce code pour pouvoir renommer et extraire en pdf mon état, mais j'aimerais créer un pdf par personne
Si quelqu'un pouvais me filer un coup de main ...
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
22
23
24
25
26
27 Private Sub Commande86_Click() ' Nommer automatiquement le fichier si impression en pdf DoCmd.OpenReport "E_Or Mi_Fournisseurs", acPreview Dim sFileName As String 'construction du nom du fichier sFileName = LValue & " " & Me.N°_Secu_Employé.Column(1) & "_" & Me.N°_Secu_Employé.Column(2) & "_" & Me.Enseigne & "_" & Me.date_anim & "_" & " OR MI " & "_" & Me.Envoi_des_contrats & ".pdf" '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''' A PERSONNALISER !! '''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' sFileName = "c:\Users\Megaport\Desktop\a envoyer\" & sFileName '<= Personalisation du dossier d'enregistrement // enregistrement dans le dossier d'origine => CurrentProject.Path &"\"& '--- méthode d'enregistrement avec possibilité de changer de dossier, de nom, ou d'annuler With Application.FileDialog(msoFileDialogSaveAs) '=> (msoFileDialogSaveAs)à écrire à la main, le copier/coller ne fonctionne pas !! .Title = "Sauver le contrat au format pdf" .InitialFileName = sFileName If .Show Then sFileName = .SelectedItems(1) DoCmd.OutputTo acOutputReport, "E_Or Mi_Fournisseurs", acFormatPDF, sFileName, , , , acExportQualityPrint Else MsgBox "Annulé (non enregistré)", , "Pour info" End If End With End Sub
merci d'avance
Partager