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 : 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
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