Help!!! Help!!! Help!!! Message box et PDF

Question

Bonjour, je souhaite tranforme un fichier excel en PDF,j'ai trouve le code suivant qui fonctionne bien chez moi.

'Define the postscript and .pdf file names.
Dim PSFileName As String
Dim PDFFileName As String
PSFileName = rep_mac & "" & file_reporting & "\PDF\Reporting Daily du" & date_reporting & ".ps"
PDFFileName = rep_mac & "" & file_reporting & "\PDF\Reporting Daily du" & date_reporting & ".pdf"
PDFText = rep_mac & "" & file_reporting & "\PDF\Reporting Daily du" & date_reporting & ".txt"


' Print the Excel range to the postscript file
Dim MySheet As Worksheet
Set MySheet = ActiveSheet
MySheet.UsedRange.PrintOut copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True, prtofilename:=PSFileName

' Convert the postscript file to .pdf
Dim myPDF As PdfDistiller
Set myPDF = New PdfDistiller
myPDF.FileToPDF PSFileName, PDFFileName, ""
Kill (PSFileName)


mias lorsque je l'installe au travail une message box "print to file" s'affiche me demandant le chemin de l'output file name:

je voudrais savoir savoir s'il ya un moyen d'eviter l'affichage de cette message box, tout en lui passant le chemin desiré.

Je galere depuis trois jours ce petit bout de code,merci pour celui qui pourra m'aider

Ciaw

bouv · Answer

Dis nous en un peu plus. Qu'utilises-tu pour cr&#233;er tes PDF ? Ghostscrpit + RedMon ? Ou autre chose ?


Sinon, mail moi ton projet je jetterai un oeil. Je t'envoi mon email en message perso.


Bonne prog
++

cs_cedric1981 · Answer

Je vais t'envoyer la fentre quie me derange par mail

juste apres cette ligne de code
MySheet.UsedRange.PrintOut copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True, prtofilename:=PSFileName

j'utilise pdfcreator et adobe ditiller pour creer pour PDF

merci pour ton temps et ton aide

bouv · Answer

Je viens de recevoir ton mail. Malheuresement je peux rien faire avec &#231;a. Je comprend que tu ne puisse pas envoyer 

Bonne prog
++

bouv · Answer

Oups message tronqu&#233;...

ton projet.

Tourne toi vers Ghostscript et RedMon, c'est gratuit et tu cr&#233;era une imprimante du genre de PDFCreator (bas&#233; lui m&#234;me sur GhostScript).

Tu pourra ensuite passer les parametres que tu veux. Notamment pour que le fichier se cr&#233;&#233; &#224; un endroit pr&#233;cis sans rien demander &#224; l'utilisateur.

Help!!! Help!!! Help!!! Message box et PDF

4 réponses

Discussions similaires