Discussion :

[nonesofar]

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 :

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

[kiki29]

Salut, te renseigner sur l'instruction Format ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

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

[nonesofar]

Hello,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ProgElecT]

Salut

Format pour les dates sous VBScript:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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