thom02
XLDnaute Junior
Bonjour,
J'ai trouvé ce code qui me permet de convertir mon fichier word depuis excel avec VBA.
Mais j'aimerais bien que le document pdf fraichement crée s'ouvre une fois la procédure terminée.
J'ai essayé via FollowHyperlink mais cela ne fonctionne pas.
Auriez vous des idées?
Un grand merci !!
J'ai trouvé ce code qui me permet de convertir mon fichier word depuis excel avec VBA.
Mais j'aimerais bien que le document pdf fraichement crée s'ouvre une fois la procédure terminée.
J'ai essayé via FollowHyperlink mais cela ne fonctionne pas.
Auriez vous des idées?
Un grand merci !!
Code:
Sub WordToPdf()
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomWord = ActiveDocument.Name
NomPdf = Left(NomWord, Len(NomWord) - 4) & ".pdf"
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") = ActiveDocument.Path
.cOption("AutosaveFilename") = NomPdf
.cOption("AutosaveFormat") = 0
.cOption("Autolaunch") = True
.cClearCache
End With
Application.ActivePrinter = "PDFCreator"
Application.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
Dim detailPDF As String
detailPDF = ActiveDocument.Path & "\" & NomPdf & ".pdf"
'ActiveWorkbook.FollowHyperlink detailPDF
End Sub
Dernière édition: