PDF Creator Enregistrer dans deux Dossiers

[MuscatMimi]

Bonjour a tous

Avec PDFCreator,je n'arrive pas a trouver la bonne syntaxe
pour enregistrer dans deux dossiers différends
voir ligne en commentaire "ICI" dans OptionButton1 et OptionButton2

Voici Le Code de base de PDFCreator

[COLOR=BLUE]Private Sub[/COLOR] CommandButton1_Click()
 [COLOR=BLUE]Dim[/COLOR] outName [COLOR=BLUE]As String[/COLOR], i [COLOR=BLUE]As Long[/COLOR]
 [COLOR=GREEN]'**If InStr(1, ActiveWorkbook.Name, ".", vbTextCompare) > 1 Then[/COLOR]
 [COLOR=GREEN]'**outName = Mid(ActiveWorkbook.Name, 1, InStr(1, ActiveWorkbook.Name, ".", vbTextCompare) - 1)[/COLOR]
 [COLOR=GREEN]'**Else[/COLOR]
 [COLOR=BLUE]If[/COLOR] Range("B16").Value = "" [COLOR=BLUE]And[/COLOR] Range("B17").Value = "" [COLOR=BLUE]Then Exit Sub[/COLOR]

   outName = Sheets("settings").Range("B16") & "_" & Range("B17") [COLOR=GREEN]'ActiveWorkbook.Name[/COLOR]
 [COLOR=GREEN]'**End If[/COLOR]
 CommandButton1.Enabled = [COLOR=BLUE]False[/COLOR]
 [COLOR=BLUE]If[/COLOR] OptionButton1.Value = [COLOR=BLUE]True Then[/COLOR]
  [COLOR=BLUE]With[/COLOR] PDFCreator1
   .cOption("UseAutosave") = 1
   .cOption("UseAutosaveDirectory") = 1
   .cOption("AutosaveDirectory") = ActiveWorkbook.path & "\Temp"
   [COLOR=GREEN]'.cOption("AutosaveDirectory") = ActiveWorkbook.path & "\Sauvegarde"   ICI[/COLOR]

   .cOption("AutosaveFilename") = outName
   .cOption("AutosaveFormat") = 0                            [COLOR=GREEN]' 0 = PDF[/COLOR]
   .cClearCache
  [COLOR=BLUE]End With[/COLOR]
  [COLOR=BLUE]For[/COLOR] i = 1 [COLOR=BLUE]To[/COLOR] Application.Sheets.Count
   Application.Sheets(i).PrintOut Copies:=1, ActivePrinter:="PDFCreator"
  [COLOR=BLUE]Next[/COLOR] i
  [COLOR=BLUE]Do Until[/COLOR] PDFCreator1.cCountOfPrintjobs = Application.Sheets.Count
   DoEvents
   Sleep 1000
  [COLOR=BLUE]Loop[/COLOR]
  Sleep 1000
  PDFCreator1.cCombineAll
  Sleep 1000
  PDFCreator1.cPrinterStop = [COLOR=BLUE]False[/COLOR]
 [COLOR=BLUE]End If[/COLOR]
 [COLOR=BLUE]If[/COLOR] OptionButton2.Value = [COLOR=BLUE]True Then[/COLOR]
  [COLOR=BLUE]With[/COLOR] PDFCreator1
   .cOption("UseAutosave") = 1
   .cOption("UseAutosaveDirectory") = 1
   .cOption("AutosaveDirectory") = ActiveWorkbook.path & "\Temp"
 [COLOR=GREEN]'.cOption("AutosaveDirectory") = ActiveWorkbook.path & "\Sauvegarde"   ICI[/COLOR]


   [COLOR=BLUE]Debug.Print[/COLOR] outName & "-" & ActiveSheet.Name
   .cOption("AutosaveFilename") = outName [COLOR=GREEN]'& "-" & ActiveSheet.Name[/COLOR]
   .cOption("AutosaveFormat") = 0                            [COLOR=GREEN]' 0 = PDF[/COLOR]
   .cClearCache
  [COLOR=BLUE]End With[/COLOR]
  ActiveSheet.PrintOut Copies:=1, ActivePrinter:="PDFCreator"
  [COLOR=BLUE]Do Until[/COLOR] PDFCreator1.cCountOfPrintjobs = 1
   DoEvents
   Sleep 1000
  [COLOR=BLUE]Loop[/COLOR]
  Sleep 1000
  PDFCreator1.cPrinterStop = [COLOR=BLUE]False[/COLOR]
 [COLOR=BLUE]End If[/COLOR]
[COLOR=BLUE]End Sub[/COLOR]

Merci a l'avance
Cordialement

 

[YANN-56]

Re : PDF Creator Enregistrer dans deux Dossiers

Bonsoir Christian, kjin, et à ceux qui passeront par ici,

J'ai du mal à comprendre pourquoi tu as refusé ce code que je t'ai proposé.

D'autant que tu as dit le connaître!!!

Il me semble, à avoir lu ce que tu sais faire, que tu aurais pu l'adapter à tes besoins.

Comme l'a justement dit kjin:

3 - savoir en changer si manifestement, il ne fonctionne pas

Mais peut-être as-tu d'autres raisons.

Amicalement, et à te lire.

Yann

 

[MuscatMimi]

Re : PDF Creator Enregistrer dans deux Dossiers

Bonjour yann, Kjinet le Forum

Le code que tu m'a passé, je le connais
mais je préfére garder celui d'origine de PdfCreator
et le Modifier
comme Kjin l'a fait
mais rien ne s'enregistre dans le Dossier "Temp" ni dans "Sauvegarde"

j'avoue ne pas arriver a trouver ce qui cloche, car apparament Kjin, l'a fait fonctionner

La seule chose que j'ai modifié et qui fonctionne c'est de Nommer la feuil dans OptionButton2 au lieu que ce soit la Feuil Active

Bon Dimanche

Cordialement