Imprimer pdf word à partir d'excel
Résolu/Fermé
infodes
Messages postés
49
Date d'inscription
mardi 26 novembre 2013
Statut
Membre
Dernière intervention
15 avril 2021
-
Modifié par pijaku le 7/10/2014 à 08:47
Whismeril Messages postés 18279 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 17 mars 2023 - 8 avril 2016 à 17:36
Whismeril Messages postés 18279 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 17 mars 2023 - 8 avril 2016 à 17:36
A voir également:
- Imprimer pdf word à partir d'excel
- Liste déroulante excel - Guide
- Supprimer une page word - Guide
- Formule excel - Guide
- Telecharger pdf - Guide
- Convertir pdf en word excel gratuit - Guide
3 réponses
eriiic
Messages postés
24510
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
7 166
Modifié par eriiic le 6/10/2014 à 23:46
Modifié par eriiic le 6/10/2014 à 23:46
Bonjour,
J'ai l'impression que tu définis l'imprimante pour excel, pas pour word.
Essaie en la choisissant déjà manuellement dans word (si il est affiché, et en mettant un stop dans ta procédure avant l'impression) voir si ça se confirme.
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
J'ai l'impression que tu définis l'imprimante pour excel, pas pour word.
Essaie en la choisissant déjà manuellement dans word (si il est affiché, et en mettant un stop dans ta procédure avant l'impression) voir si ça se confirme.
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
7 oct. 2014 à 10:22
7 oct. 2014 à 10:22
Bonjour,
Je ne suis pas sur d'avoir compris. Vous voulez imprimer un document Word en PDF à partir d'Excel?
Si c'est cela, voici le code:
Voilà
Je ne suis pas sur d'avoir compris. Vous voulez imprimer un document Word en PDF à partir d'Excel?
Si c'est cela, voici le code:
'Allez dans Outils-référence et cochez: Microsoft Word 12.0 Object Library et PDFCreator
Option Explicit
Sub ToPdf()
Dim chemindoc, chemindossier, NomWord, NomPdf As String
Dim DefaultPrinter
Dim pdfjob
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.ShowMe
AppWord.Visible = True
chemindoc = "c:\users\jsgermain\documents\test\toto.doc"
chemindossier = "c:\users\jsgermain\documents"
Set DocWord = AppWord.Documents.Open(chemindoc, ReadOnly:=False)
NomWord = AppWord.ActiveDocument.Name
NomPdf = Left(NomWord, Len(NomWord) - 4) & ".pdf"
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
With pdfjob
If .cstart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = chemindossier 'Chemin dossier destination
.cOption("AutosaveFilename") = NomPdf
.cOption("AutosaveFormat") = 0
.cClearCache
End With
pdfjob.cDefaultprinter = "PDFCreator"
AppWord.ActiveDocument.PrintOut copies:=1
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultprinter = DefaultPrinter
.cClearCache
.cClose
End With
Set pdfjob = Nothing
AppWord.Documents.Close
AppWord.Visible = False
MsgBox "Votre PDF se trouve à cet emplacement: " & chemindossier & NomPdf, vbInformation, "Convertir en PDF"
End Sub
Voilà
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
7 oct. 2014 à 10:24
7 oct. 2014 à 10:24
Il faut lire
Le site a supprimé l'antislash
chemindossier = "c:\users\jsgermain\documents\test\"
Le site a supprimé l'antislash
Whismeril
Messages postés
18279
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 mars 2023
888
>
Rems
8 avril 2016 à 17:36
8 avril 2016 à 17:36
Bonjour, as tu installé pdfcreator?
infodes
Messages postés
49
Date d'inscription
mardi 26 novembre 2013
Statut
Membre
Dernière intervention
15 avril 2021
17 nov. 2014 à 19:44
17 nov. 2014 à 19:44
:-) Merci!