Script pour impression pdf a partir d'excel

Version imprimable

Hello,

J'essaie d'écrire un script VBS qui me permette d'imprimer un fichier excel, j'utilise pour cela l'imprimante pdf d'Adobe Acrobat. Mais au moment de l'impression, je dois donner un nom pour sauvegarder le pdf contrairement a une impression classique.

Voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 Dim Xlapp 'Excel Dim wb 'le classeur Set XlApp = CreateObject("Excel.application") XlApp.Visible = True Set Wb = XlApp.Workbooks.Open("C:\tmp\MonClasseur.xls") Wb.Sheets(1).PrintOut ,,,,"CutFtp sur FPP1:" wb.close false XlApp.quit Set Wb = Nothing Set XlApp = Nothing
Que dois-je rajouter pour lui donner le nom du fichier pdf générer ?

Merci de votre aide.

Bonsoir voilà avec divers essais se que j'ai trouvé.
J'espère que ça va te convenir:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
' VB Script Document
option explicit
Dim Xlapp 'Excel
 Dim wb 'le classeur
 Set XlApp = CreateObject("Excel.application")
 XlApp.Visible = True
 Set Wb = XlApp.Workbooks.Open("C:\tmp\MonClasseur.xls")
 Wb.Sheets(1).PrintOut ,,,,"Adobe PDF",True,,"c:\tmp\essai.pdf"
 wb.close false 
 XlApp.quit 
 Set Wb = Nothing
 Set XlApp = Nothing

18/06/2008, 10h49
lorifan

Merci de ta réponse.

Alors le fichier pdf est créé mais il n'est pas lisible: quand j'essaie de l'ouvrir, j'obtiens l'erreur suivante :

"Acrobat could not open <File Name> because it is either not a supported file type or because the file has been corrupted (for example, it was sent as an email attachment and wasn't correctly decoded)."

J'utilise Adobe Acrobat 7.1.0

Il s'avère que le fichier généré n'est pas un pdf mais un post script file. Comment puis-je convertir cela facilement en pdf, ou générer automatiquement mon pdf ?

Bon ben j'ai réussi. :D

Il faut utliser distiller pour convertir le .ps en .pdf

Voila le code:

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
option explicit
Dim Xlapp     'Excel
Dim wb        'le classeur
 
 
 
Set XlApp = CreateObject("Excel.application")
XlApp.Visible = False
Set Wb = XlApp.Workbooks.Open("C:\tmp\Publisher_Template_test.xls")
Wb.Sheets(1).PrintOut ,,,,"Adobe PDF",True,,"c:\tmp\essai.ps"
wb.close false 
 
Dim dis         'distiller app
Dim ps          'le fichier ps
Set dis = CreateObject("PdfDistiller.PdfDistiller")
dis.FileToPDF "c:\tmp\essai.ps", "c:\tmp\essai.pdf", ""
XlApp.quit 
Set Wb = Nothing
Set XlApp = Nothing
 
dim fso
dim aFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set aFile = fso.GetFile(".\essai.log")
aFile.Delete
Set aFile = fso.GetFile(".\essai.ps")
aFile.Delete
Set aFile = Nothing
Set fso = Nothing

Merci de ton aide caponord38 ;)