Générer un pdf

'Verifie si le repertoire existe

cheminBase = CurrentProject.Path & "\"

mondoss = Dir(cheminBase & "Pdf\" & nomRepertoire & "\" & nomDossier, vbDirectory) 'si il existe, renverra le chemin, sinon renvoit ""

If mondoss = "" Then 'existe pas

monrep = Dir(cheminBase & "Pdf\" & nomRepertoire, vbDirectory)

If monrep = "" Then

MkDir cheminBase & "Pdf\" & nomRepertoire 'on le crée

End If

End If

'Générer le fichier pdf à partir d'un fichier

DoCmd.OpenReport stDocName, acPreview

monchemin = cheminBase & "Pdf\" & nomRepertoire & "\" & nomDossier & "\" & nomfichier

'Création du pdf avec le nouveau nom

DoCmd.OutputTo acOutputReport, , acFormatPDF, monchemin

DoCmd.Close acReport, Nom du FOrmulaire

*********************************************************************************************************************

'Générer un fichier à partir de plusieurs fichiers

'construction de la chaine de caractere avec les noms des différents fichier

fichier1 = cheminBase & "Pdf\" & nomRepertoire & "\" & nomDossier & "\" & nomfichier

fichier2 = cheminBase & "\Pdf\Nom du doc.pdf"

'Nouveau nom du fichier généré

fichierResultat = cheminBase & "Pdf\" & nomRepertoire & "\" & nomDossier & "\" & nomfichier

'Fusionner 2 pdf ensemble

chemin = cheminBase & "images\pdfmerge\"

mastring = chemin & "pdftk.exe" => exe a mettre dans un repertoire pdfmerge

'Création d'un seul pdf a aprtir des 2fichiers

Call Tempo(300)

Shell mastring

Call Tempo(300)

Kill monchemin