PDf creator enregistrer sous nouveau fichier

Version imprimable

Bonjour,

J'utilise un script VBS afin de sauvegarder un rapport PDF depuis qlikview. Le code fonctionne nickel !!

Le seul soucis c'est que ça écrase les anciennes valeurs à chaque fois que j'exporte mon rapport. Or je souhaite que cela génére à chaque fois un nouveau fichier PDF avec en nom la date du jour par exemple. Et la je bloque.

le code sauvegarde PDF:

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
Sub Print
  PrintPDF "","RP04"
End Sub
' 
Function PrintPDF(NamePDF, qvObject)
  Dim vPath
 ' vPath= "A modifier "
  Set PDFCreator = CreateObject("PDFCreator.clsPDFCreator")
  PDFCreator.cStart ("/NoProcessingAtStartup")
 
   PDFCreator.cOption("UseAutosave") = 1 ' J'ai essayé avec 0 mais cela ouvre la sauvegarde à la main.
   PDFCreator.cOption("UseAutosaveDirectory") = 1 ' Use a specific save directory
  'Comment this line if you already set on PDFCreator a directory where you wont to save a PDFfile
   PDFCreator.cOption("AutosaveDirectory") =vPath  ' Set autosave directory from variable  'ActiveDocument.getVariable("TempPath").GetContent.String ' Set autosave directory from set analisis variable
   PDFCreator.cOption("AutosaveFormat") = 0 '  0=PDF, 1=PNG, 2=JPG, 3=BMP, 4=PCX, 5=TIFF, 6=PS, 7= EPS, 8=ASCII
   PDFCreator.cOption("AutosaveFilename") = NamePDF ' & ".pdf"' set the filename, optionally you can get the Caption of the object and use it as Filename
   PDFCreator.cPrinterStop = False          'printer enabled
 
  ActiveDocument.PrintDocReport qvObject, "PDFCreator"    'print
 
  ActiveDocument.GetApplication.Sleep 10000    'stop my macro for 5 sec, its time is need to save a PDF
  PDFCreator.cClearCache()    'clear cache
  PDFCreator.cClose() 
end function

Si vous avez une idée,

Merci d'avance.

Salut, te renseigner sur l'instruction Format ?

Code:

1
2
3
4
 
                sNomPDF = "Test" & "_" & Format(Now, "yyyymmdd hhmmss")
                .....
                .cOption("AutosaveFilename") = sNomPDF

24/04/2017, 15h08
nonesofar
Salut kiki29,

Merci de ton aide, alors je me suis renseigné sur l'instruction format. Mais j'ai une erreur Type incompatible: 'Format'.

Mais peût-etre que je devrais poster dans le forum qlikview, si c'est pas un problème propre à vb.
Code:

1 2 3 4 5 6 7 8 9 Dim vPath Dim qvObject Dim sNomPDF Dim MyDate qvObject = "CH01" vPath= "" MyDate = Format(Now, "mm/dd/yy") ' sNomPDF = "Test" & "_" & MyDate
Bonne journée
25/04/2017, 13h02
kiki29

Salut, comme il s'agit d'un nom de fichier à sauvegarder il y a des caractères interdits dont "/" fait partie ....
25/04/2017, 17h49
nonesofar

Hello,

D'accord mais j'ai essayé avec ton modéle et pareil

Code:

Format(Now, "yyyymmdd hhmmss")

Pourtant j'ai vu sur d'autres forum que c'est juste comme tu l'as indiqué, en vba c'est comme ça en tout cas.

Salut

Format pour les dates sous VBScript:
Code:

1 2 3 Dim MyDate MyDate = FormatDateTime(Now,2) MsgBox MyDate ' 25/04/2017
Citation:

Envoyé par kiki29

Salut, comme il s'agit d'un nom de fichier à sauvegarder il y a des caractères interdits dont "/" fait partie ....

:yaisse:
Code:

1 2 3 4 5 6 7 Dim MyDate, sNomPDF MyDate = FormatDateTime(Now,0) MyDate = replace(MyDate,"/","-") MyDate = replace(MyDate,":","-") sNomPDF = "Test " & MyDate MsgBox sNomPDF ' Test 25-04-2017 20-47-57

26/04/2017, 12h27
nonesofar

Merci de l'aide en effet ça marche mieux.

Bonne journée