Re : [xl 2003] Archiver une feuille excel en pdf vers dossier
Salut,
Merci C'est NICKEl !!!!!!!!!
Par contre puis-je abuser de ta gentillesse pour me dire que dois-je et ou dois-je écrire le lien pour enregistrer dans ma ressource partagée
et comment faire pour que la date du jour s'incremente au nom de l'enregistrement (SFic) ?
et aussi
seule la feuille compte rendu reunion m'interesse à la sauvegarde, les autres sont sans importance
merci !!!! et bonne journée
Sub ImpressionPDF()
Dim sPath As String, sFic As String, pdfjob As Object
' Mémoriser les paramètres
sPath = ThisWorkbook.Path & "\"
' Nom du fichier
sFic = "CompteRenduTravauxIN1.pdf"
' Créer une instance de Job PDFCreator
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
' Avec le job
With pdfjob
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sPath
.cOption("AutosaveFilename") = sFic
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With
' LAncer l'impression
ThisWorkbook.PrintOut Copies:=1, ActivePrinter:="PDFCreator"
'Wait until the print job has entered the print queue
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
pdfjob.cClose
Set pdfjob = Nothing
End Sub