Sauvegarder document Excel et Word au format PDF, sans intervention

Question

Bonjour,

N'ayant pas réussi à faire des pdf en ligne de commande, voici un petit code (selon le logiciel utilisé) qui remplira la fenêtre qui s'ouvre avec les logiciels type cutepdf.

Voici mon code j'ai utilisé CutePDF, mais comme vous le voyez on peut le changer facilement.

POUR EXCEL :
Private cheminDest, nomDest, imprimante_pdf
Sub sauvegarde_pdf()
    cheminDest =   "c:"
    nomDest = "test.pdf"
    imprimante_pdf = "CutePDF Writer sur CPW2:"
    enregistre_pdf
End Sub
Function enregistre_pdf()
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
                imprimante_pdf, Collate:=True
    'A MODIFIER EB FONCTION DU TEMPS D'AFFICHAGE DE LA FENETRE
    tempo = Now() + TimeValue("00:00:01")
    Timer tempo
End Function
Function enregistre_sous()
    AppActivate "Enregistrer sous"
    SendKeys cheminDest & nomDest
    SendKeys "{ENTER}"
End Function
Function Timer(tempo)
    On Error Resume Next
    Do Until Now > tempo
        DoEvents
    Loop
    enregistre_sous
End Function

  POUR WORD :  
Il n'y a que la fonction enregistre_pdf()
qui change

Function enregistre_pdf()
    Application.PrintOut FileName:  ="", Range:=wdPrintAllDocument, Item:= _
            wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
            ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
            False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
            PrintZoomPaperHeight:=0
    'A MODIFIER EB FONCTION DU TEMPS D'AFFICHAGE DE LA FENETRE
    tempo = Now() + TimeValue("00:00:01")
    Timer tempo
End Function

Java : Write once, run anywhere

econs · Answer

Je pense que ce message devrait être placé dans la rubrique 'Sources' du site, et pas sur le forum.
Il y serait mieux  :) 

Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

tump · Answer

si ça vous interesse, je sais faire des pdf en ligne de commande depuis vba

poum :-)

ggenier · Answer

econs :  je suis d'accord, mais j'ai pas trouver ou c'était.

tump :  clair que sa m'intéresse, mais avec des logiciels gratuit !

Java : Write once, run anywhere

cs_steph65 · Answer

Thanks, &#231;a faisait longtemps que je cherchais ce code pour lancer des cr&#233;ations de pdf &#224; la cha&#238;ne depuis une macro excel...


&#231;a marche nickel

Sauvegarder document Excel et Word au format PDF, sans intervention

4 réponses

Discussions similaires