Sub PdfCreator_connecteur()
Dim Chemin$, date_test$, NomFichier$, i&, JobPDF As Object
Dim VersionPDF As String, Version0 As Integer, Version1 As Integer
Chemin = "O:\DEV & Q PRODUITS\1 - DEVELOPPEMENT PRODUITS\Calculations prix\PDF généré\2015\"
'Chemin = ThisWorkbook.Path & "\" 'plus facile pour tester
date_test = Format([M1], "dd.mm.yyyy")
Version0 = 1
VersionPDF = Dir(Chemin & [P1] & "__*V??.pdf")
Do While VersionPDF <> ""
Version1 = CInt(Left(Right(VersionPDF, 6), 2))
If Version1 > Version0 Then Version0 = Version1
VersionPDF = Dir
Loop
'incrémenter ou non la version de l'offre
'******
'Prévoir une cellule, par exemple Z1 qui contiendra 1 ou 0 si on veut ou non augmenter d'une version
Version0 = Version0 + Range("Z1").Value
NomFichier = [P1] & "__" & [f1] & "__" & date_test & " V" & Format(Version0, "00") & ".pdf"
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