Enregistrer un fichier en pdf

[NICOALBERT]

Bonsoir le forum.

Je voudrait savoir si il y a un moyen d'enregistrer un fichier en PDF selon une condition .

J'ai dans mon code actuellement :

sPDFName = "contrat.pdf" et ce que je voudrait c'est contrat + la date de la feuille 1 en cellule B1 exemple: contrat_18092011.pdf;

Est ce que quelqu'un à une idée de code.

Cordialement.

 

[mth]

Re : Enregistrer un fichier en pdf

Bonsoir,

Peut-être comme ceci:

sPDFName = "contrat_" & Format(Sheets(1).Range("B1"), "dd mm yyyy") & ".pdf"

Bonne soirée,

mth

 

[NICOALBERT]

Re : Enregistrer un fichier en pdf

Re bonsoir,

J'ai le code qui fonctionne très bien ( que j'ai récuperer sur le forum et adapter à mon projet , mais qui ne me permet que d'enregistrer en PDF la feuille active est ce qu'il y a un moyen pour que je puisse sélectionner plusieurs feuille.


Sub PrintToPDF_Early()
'Author : Ken Puls (Excelguru.ca | Tips and pointers for Excel and other MS Office applications)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from SourceForge.net: PDFCreator)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
Dim d As String 'déclare la variable d (Date)
'/// Changer le nom du fichier de sortie sur la ligne ci dessous: ///
d = CStr(Format(Range("AA1"), "ddmmyyyy")) 'définit la variable d (cellule à adapter)
sPDFName = "RECAP EO2_" & d & ".pdf" 'enregistre le classeur sous...
sPDFPath = ActiveWorkbook.Path & Application.PathSeparator
'Check if worksheet is empty and exit if so
If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub
Set pdfjob = New 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("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sPDFPath
.cOption("AutosaveFilename") = sPDFName
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With
'Imprime le document en PDF
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
'Attend que le document soit entré dans la file d'impression
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
'Attend que l'impression du document soit terminée
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
pdfjob.cClose
Set pdfjob = Nothing
End Sub


Cordialement.

 

[NICOALBERT]

Re : Enregistrer un fichier en pdf

Bonsoir le forum,

En fait ce que je recherche c'est avec ce code que je puisse sélectionner par exemple RECAP EO + RECAP EO2 ainsi de suite selon mes critères.

Est ce que quelqu'un a une idée

Cordialement.