Discussion :

[urbain5]

Bonjour voici ma "question" :
tout est dans le titre créer le pdf de base en automatique, il y a plusieurs forums qui donne la solution, mais manuellement pdfcreator permet de "sécuriser" et de faire des restrictions à la copie ou autres.. sur un pdf alors je souhaiterai le faire en automatique.
Merci pour vos conseils

[urbain5]

vu que le lien a été supprimé, je mets sous forme de code la fonction SaveAsPDF que j'utilise actuellement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Public Sub SaveAsPDF( _
  ByVal strReportName As String, _
  Optional ByVal strWhere As String = "", _
  Optional ByVal strPDFName As String = "", _
  Optional ByVal strDirectory As String = "")
 
  Dim pdfc As PDFCreator.clsPDFCreator
  Dim DefaultPrinter As String
  Dim c As Long
  Dim OutputFilename As String
 
  Set pdfc = New clsPDFCreator
 
 ' objet PDFCreator
  With pdfc
    .cStart "/NoProcessingAtStartup"
    .cOption("UseAutosave") = 1
    .cOption("UseAutosaveDirectory") = 1
    ' Chemin de destination
    ' Par défaut : dossier 'Mes documents' de l'utilisateur
    If strDirectory = "" Then
       strDirectory = "c:\"
 
    End If
    .cOption("AutosaveDirectory") = strDirectory
 
    ' Nom du fichier PDF à générer
    .cOption("AutosaveFilename") = _
      IIf(strPDFName = "", strReportName, strPDFName)
 
    ' Format de sauvegarde (0 = PDF)
    .cOption("AutosaveFormat") = 0
 
 
 
    ' Mémoriser l'imprimante par défaut
    ' et définir PDFCreator à la place
    DefaultPrinter = .cDefaultPrinter
    .cDefaultPrinter = "PDFCreator avec protection"
    .cClearCache
 
    ' Imprimer l'état
    DoCmd.OpenReport strReportName, acViewNormal, , strWhere
    .cPrinterStop = False
  End With
 
  ' Temporisation
  c = 0
  Do While (pdfc.cOutputFilename = "") And (c < (maxTime * 1000 / sleepTime))
    c = c + 1
    Sleep 200
  Loop
 
  ' Nom du fichier PDF produit
  OutputFilename = pdfc.cOutputFilename
 
  ' Réinstaller l'imprimante d'origine
  With pdfc
    .cDefaultPrinter = DefaultPrinter
    Sleep 200
    .cClose
  End With
 
  ' Attendre jusqu'à ce que PDFCreator soit supprimé de la mémoire
  Sleep 2000
 
  ' Vérifier si le fichier a été créé
  If OutputFilename = "" Then
    MsgBox "Création du fichier PDF." & vbCrLf & vbCrLf & _
      "Une erreur s'est produite : temps écoulé !", vbExclamation + vbSystemModal
  End If
End Sub

dans cette fonction si l'on supprime

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   .cOption("UseAutosave") = 1
    .cOption("UseAutosaveDirectory") = 1

nous arrivons à la commande manuelle de pdfcreator je voudrais simplement si elles existent
avoir les commandes pour valider les différentes fenêtres qui s'affichent manuellement et remplir celle qui demande un mot de passe par un mot de passe préétabli.

J'ai trouvé des noms de "fonction" mais ne sais pas les utiliser en VBA ou si elles existent vraiment?

PDFUseSecurity ?
.cOption("PDFUseSecurity") = 1 ???

ProgramAutosaveDescription ?
.cOption("ProgramAutosaveDescription") = 1 ???
save ?
.cOption("save") = 1 ???
OwnerPass="motdepasse" ??
PassOK=OK ???
PDFEnterPasswords=Entrer les mots de passe ???
PDFUseSecurity=Utiliser les options de sécurité ????


Merci pour votre aide

[kiki29]

Salut, cette liste permet de naviguer dans la contribution Excel / Word / PDF avec Adobe Acrobat Pro et PDFCreator , il y a, entre autres, des exemples de protection par mot de passe utilisateur/propriétaire et les restrictions souhaitées. A toi d'aller à la pêche .....

[urbain5]

Je n'ai pas encore tout compris mais je pense que je vais trouver mon bonheur
Un grand merci pour tout ce travail

[kiki29]

Salut, cette liste oriente aussi vers des exemples comme ce dernier : Conversion d'un dossier Images en PDFs protégés par mots de passe via PDFCreator