Sub PdfCreator()
Dim Chemin$, date_test$, NomFichier$, i&, JobPDF As Object
'à quoi sert ce copier-coller ???
Range("O639").Select
Selection.Copy
Range("V643").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Chemin = "O:\DEV & Q PRODUITS\1 - DEVELOPPEMENT PRODUITS\Calculations prix\PDF généré\"
'Chemin = ThisWorkbook.Path & "\" 'plus facile pour tester
date_test = Format([M1], "dd.mm.yyyy")
If Dir(Chemin & [P1] & "__" & [F1] & "__* V.pdf") = "" Then
NomFichier = [P1] & "__" & [F1] & "__" & date_test & " V.pdf"
Else
i = 2
While Dir(Chemin & [P1] & "__" & [F1] & "__* V" & i & ".pdf") <> ""
i = i + 1
Wend
NomFichier = [P1] & "__" & [F1] & "__" & date_test & " V" & i & ".pdf"
End If
Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")
With JobPDF
.cStart "/NoProcessingAtStartup"
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = Chemin
.cOption("AutosaveFilename") = NomFichier
.cOption("AutosaveStartStandardProgram") = 1
.cOption("UpdateInterval") = 0
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until JobPDF.cCountOfPrintjobs = 1
DoEvents
Loop
JobPDF.cPrinterStop = False
Do Until JobPDF.cCountOfPrintjobs = 0
DoEvents
Loop
JobPDF.cClose
Set JobPDF = Nothing
End Sub