Merci pour ta réponse,
Pour résumer:
J'ai besoin d'avoir deux macro:
La première qui enregistre en V, V2, V3,
C'est celle ci dessous, mais si je comprend ce que tu dis paritec il faudrait plutôt V1, V2, V3
J'ai essayé mais je n'y arrive pas!
Sub PdfCreator_connecteur()
Dim Chemin$, date_test$, NomFichier$, i&, JobPDF As Object
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")
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
La seconde qui est identique à la première mais qui enregistre en écrasant la version la plus élevée
Merci pour votre aide!