Discussion :

[nine2002]

Bonjour,
2° question du jour!

Après saisie des infos sur un formulaire de devis, je voudrais pouvoir avoir une copie de ce formulaire en PDF, dans un dossier qui regrouperais tout les devis, avec comme nom de fichier le nom du client & le N° du devis (ou N° facture ou N° avoir)

Ce fichier PDF, me servira par la suite de l'envoyer par mail, et d'une certaine façon de sauvegarder toute ma gestion.

Merci par avance

[Micki]

Bonjour,

tu peux par exemple utiliser pdf creator pour faire cela.

http://sourceforge.net/projects/pdfcreator/

[zoom61]

Salut,

Normalement tu as la possibilité de créer un PDF avec ACCESS, il se peut que le SaveAsPDFandXPS ne soit pas intallé. Installe-le,
ensuite tu pourras facilement créer tes fichiers PDF.

@+.

[Invité]

Bonjour

Pour information, comme ils 'agit d'Access 2010, la création des PDF est fournie avec le logiciel.

nine2002

Où coinces-tu ?
Pourquoi un formulaire ? C'est un état pour un devis.

Philippe

[fclus]

Voici un exemple de génération d'un PDF (à partir d'un état), d'enregistrement dans un dossier et d'envoi par mail

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
pStrsql = "Select * From QryRepBI Where oenumero=" & Me.oenumero
Dim StrFile, StrChemin, StrRep As String
StrFile = Me.oenref & "-" & Me.oetitre & ".pdf"
Dim MonOutlook As New Outlook.Application
Dim MonMessage As Outlook.MailItem
' Initialisation
Set MonMessage = MonOutlook.CreateItem(0)
'Remplissage de l'objet MailItem
MonMessage.To = "adressemaildevotrechoix"
StrChemin = "\\chemindevotrechoix\sous-dossier"
DoCmd.OutputTo acOutputReport, "Nomdevotreétat", "PDF", StrChemin & StrFile
MonMessage.Attachments.Add StrChemin & StrFile, , , StrFile
MonMessage.Subject = "Bon interne " & Me.oenref & " - " & Me.oetitre
' Envoi du mail
MonMessage.Display
Set MonOutlook = Nothing