Bonjour,
Je souhaite enregistrer un rapport en pdf.
J'ai utilisé la macro ci dessous. Cela bloque au niveau de l'enregistrement sur 2 points : je n'arrive pas au chemin souhaité et j'ai une boite de dialogue qui s'ouvre pour confirmer l'enregistrement.
Avez vous une idée ?
Cdt
sub ImprimerRapport
vRapport = "RP03"
vNom = "Bilan"
ActiveDocument.PrintReport(vRapport), "QlikViewPDF",False
vAdresse = "C:\QV\test" & vNom&".pdf"
ImprimerRapportPDF(vAdresse)
ActiveDocument.GetApplication.Sleep 2000
end sub
'===========================================================================
Function ImprimerRapportPDF(pdfOutputFile)
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite "HKCU\Software\QlikViewPDF\OutputFile", pdfOutputFile, "REG_SZ"
WSHShell.RegWrite "HKCU\Software\QlikViewPDF\BypassSaveAs", "1", "REG_SZ"
Set WSHShell = nothing
End function
