liljuanites
-
Modifié par liljuanites le 3/10/2011 à 16:04
Bonjour,
Ma question est la suivante :
J'utilise une macro qui me permet de convertir les zones d'impressions excel en pdf (voir le code ci-dessous).
Sub ToPDf()
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomExcel = ThisWorkbook.Name
NomPdf = Left(NomExcel, Len(NomExcel) - 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") = ThisWorkbook.path
.cOption("AutosaveFilename") = NomPdf
.cOption("AutosaveFormat") = 0
.cClearCache
End With
Sheets(Array("1 - J+1", "2 - Commentaires", "3 - Graphes total", _
"4 - Graphes pays")).PrintOut Copies:=1, ActivePrinter:="PDFCreator"
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
End Sub
Dans mon code, j'ai la possibilité de choisir, soit les onglets à imprimer en indiquant leur nom dans le code, soit d'imprimer toutes les feuilles.
J'aimerais avoir la possibilité d'imprimer en pdf tous les onglets de couleurs rouge (par exemple). Cela m'éviterais de devoir tapper à la main tous les noms des onglets que je souhaite imprimer.