Outputto access

Fermé
sebcarmi Messages postés 1 Date d'inscription vendredi 24 juillet 2009 Statut Membre Dernière intervention 24 juillet 2009 - 24 juil. 2009 à 11:59
Bonjour,

Je souhaite envoyer des mails avec un état au format pdf. Voici le code que j'utilise :

If IsNull(Me.num_devis.Value) = False Then
If IsNull(Me.zt_a.Value) = False Then
DoCmd.OpenForm "param"
Forms!param.Visible = False
Forms!param!tva.Value = Me.tva.Value
DoCmd.OpenReport "e_devis", acViewPreview, , "num_devis = " & Me.num_devis.Value, acHidden
DoCmd.OutputTo acOutputReport, "e_devis", acFormatPDF, Cdir & "\" & Me.id_devis.Value & ".pdf", True, , , acExportQualityScreen
DoCmd.Close

Dim Ol_App As New Outlook.Application

Dim Ol_Item As Outlook.MailItem

Set Ol_Item = Ol_App.CreateItem(olMailItem)


With Ol_Item
'adresse mail
.To = Me.zt_a.Value
'sujet
.Subject = Me.zt_sujet.Value
'corps du mail
If IsNull(zt_corps) = False Then
.Body = Me.zt_corps.Value
End If

'piece jointe
.Attachments.Add Cdir & "\" & Me.id_devis.Value & ".pdf"
'enregistrement
.Save
'envoie
.send
Kill Cdir & "\" & Me.id_devis.Value & ".pdf"
End With
MsgBox "message envoyé"
Else
MsgBox "saisir une adresse mail", vbInformation
End If
Else
MsgBox "entrez d'abord des informations", vbInformation
End If

Ce code marche pour certains formulaires mais pas pour tous. En effet, sur certains formulaires, j'ai un probleme dans le outputto, plus précisement au niveau du chemin ou je souhaite stocker mon état.
Est ce que quelqu'un à une idée de mon prblème ou éventuellement une autre solution