Discussion :

[djack7917]

bonjour, la semaine dernière j'ai demandé de l'aide pour créé un état en PDF, merci philippe,
aujourd'hui, je suis toujours sur le meme projet, comment peut on envoyer ce meme état mar mail directement sans que l'on aille chercher la pièce jointe
et comment change t on le chemin de destination du fichier PDF.

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
 
Private Sub Commande161_Click()
 
Dim strFilename As String
Dim strReportName As String
Dim strCriteria As String
strCriteria = "[N°Enr]='" & Me![N°Enr] & "'"
 
' Ouvrir l'état pour modifier le filtre
DoCmd.OpenReport "remise espèces", acViewDesign,,,acHidden
Reports![remise espèces].Filter = strCriteria 'Filtrer l'état
DoCmd.Close acReport, "remise espèces", acSaveYes 'Fermer et sauver la modification
 
' Imprimer en PDF
DoCmd.OutputTo acOutputReport, "remise espèces", acFormatPDF, strFilename, blnOpenReader
 
End Sub

merci

[ClaudeLELOUP]

Bonjour,

Regarde ici, il y a un exemple : http://claudeleloup.developpez.com/t...plic-ploc/#LVI