QLIKVIEW PDF-XChange 3.0

En version 9 j'utilisais QlikViewPDF pour générer des fichiers PDF, en version 11 QlikViewPDF n'est plus supporté et ne fonctionne pas :-((
Maintenant j'utilise PDF-XChange 3.0 qui génére un fichier nommé "QlikView Printing.pdf", j'ai adapté mon code VB et modifié la base de registre pour l'adapter à PDF-XChange 3.0.
Mais je ne parviens pas à sauvegarder le fichier PDF avec ma règle de nommage. Ci-dessous mon code VB.

Quelqu'un peut-ol m'aider ? Par avance merci.

Cordialement,

Bruno

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub ImprimerPDF     Set WSHShell = CreateObject("WScript.Shell")   set vReport = ActiveDocument.getReport("RP02")   vFilePdf = getVariable("RepQvw") & getVariable("RepPdf") & vReport.Name & "_qvw.pdf"     'RegKey = "HKEY_CURRENT_USER\Software\QlikViewPDF\" RegKey = "HKEY_CURRENT_USER\Software\Tracker Software\PDF-XChange 3.0\"   WSHShell.RegWrite RegKey & "BypassSaveAs", 1   WSHShell.RegWrite RegKey & "OutputFile", vFilePdf WSHShell.RegWrite RegKey & "Result.FileName", vFilePdf     'ActiveDocument.PrintDocReport "RP02", "QlikViewPDF" ActiveDocument.PrintDocReport "RP02", "PDF-XChange 3.0"       ActiveDocument.GetApplication.Sleep 15000   Set WSHShell = nothing 'msgbox("fin") End sub

---