Discussion :

[WeeJay]

Bonjour,

J'essaie d'utiliser les attributs d'affichage Windows pour rendre mes répertoires de PDF plus faciles à consulter. En pratique, je souhaite obtenir l'affichage suivant :


(la capture ne le montre pas, mais certains de ces fichiers peuvent être des word non convertis)

En particulier, ce sont les attributs "Objet", "auteur" et "mots-clés" qui m'intéressent.

J'ai tout d'abord vu que pour renseigner ces champs :
- pour les fichiers word, il suffit de remplir les champs correspondants dans fichier > propriétés > onglet "résumé"
- pour les fichiers PDF, ce sont les champs que propose de remplir PDFcreator :


je me disais donc qu'il suffisait de suivre une procédure de ce genre :
1) remplir les propriétés du fichier word
2) convertir avec PDFCreator.

Je pensais que la correspondance entre les champs word et PDFCreator serait reconnue ; or ce n'est pas le cas et par conséquent je dois taper deux fois le sujet et les mots clés si je veux voir ces attributs dans l'affichage détaillé windows.

Si quelqu'un a une piste de solution pour mon problème, je suis preneur. Un autre soft que PDFCreator (gratuit)? une configuration du logiciel à côté de laquelle je serais passé? etc.

Merci d'avance

[Heureux-oli]

Salut,

Je ne vois que le VBA pour te venir en aide.

Par exemple : StandardKeywords pour les mots clés.

[WeeJay]

Je ne suis pas sûr de voir de quoi tu veux parler.

J'ai fait une petite recherche sur "StandardKeywords" sur le net, je ne trouve à peu près rien...

Tu veux dire, faire le passage Word > PDF via une macro, en utilisant une .dll pour la conversion?

[Heureux-oli]

Salut,

Lorsque tu utilises PDFCreator avec Word, tu peux aussi l'utiliser avec du code.

http://heureuxoli.developpez.com/office/word/doc2pdf/

On peut injecter les propriétés de cette manière :

Code :

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

1
2
3
 
Dim myPDF As New PDFCreator
myPDF.clsPDFCreatorsOptions.StandardKeywords = ActiveDocument.BuiltInDocumentProperties("Keywords")

[WeeJay]

Bon bon bon.
Alors j'ai essayé un peu avec ce que j'ai trouvé, mais pas encore réussi.
Voilà ma pauvre tentative :

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
Sub ImprimerPDF()
    Dim oldPrinter As String
    Dim strDir As String
    Dim strFichier As String
    Dim strTitle, strSubject, strAuthor, strKeywords As String
    ' Affichage de la fenêtre de PDF
    Shell "C:\Program Files\PDFCreator\PDFCreator.exe", vbNormalFocus
 
    Dim PDFCreator1 As New clsPDFCreator
    'Choix de l imprimante
    oldPrinter = ActivePrinter
    ActivePrinter = "PDFCreator"
 
    'parametres d impression
    strDir = "c:\monrepertoire"
    strFichier = "mondocumentpdf.pdf"
    strTitle = "mon titre"
    strSubject = "mon sujet"
    strAuthor = "p.nom"
    strKeywords = "mots cles"
 
    With PDFCreator1
       .cStart
       .cOption("UseAutosave") = 1
       .cOption("UseAutosaveDirectory") = 1
       .cOption("AutosaveDirectory") = strDir
       .cOption("AutosaveFilename") = strFichier
       .cOption("AutosaveFormat") = 0
 
       'marche pas
       '.cOptions.StandardAuthor = strAuthor
       '.cOptions.StandardKeywords = strKeywords
       '.cOptions.StandardSubject = strSubject
       '.cOptions.StandardTitle = strTitle
 
       'marche pas non plus
       .clsPDFCreatorOptions.StandardAuthor = strAuthor
       .clsPDFCreatorOptions.StandardKeywords = strKeywords
       .clsPDFCreatorOptions.StandardSubject = strSubject
       .clsPDFCreatorOptions.StandardTitle = strTitle
 
       'bordel y a rien qui marche
       '.cOption("StandardSubject") = strSubject
       '.cOption("StandardAuthor") = strAuthor
       '.cOption("StandardTitle") = strTitle
       '.cOption("StandardKeywords") = strKeywords
 
       .cClearCache
    End With
    ActiveDocument.PrintOut Background:=True
    PDFCreator1.cClose
    'remise de l imprimante par defaut
    ActivePrinter = oldPrinter
End Sub

Comme vous le voyez j'ai essayé 3 façons, sachant que je n'ai pas trop trouvé de doc pour la syntaxe de heureux-oli, et que d'après ce que j'ai trouvcé sur le net je ne vois pas trop la différence entre .cOption("truc") et .cOptions.truc.

Qu'est ce que j'ai raté?

[WeeJay]

Je vais m'auto-apporter un élément de réponse.

En me baladant dans le répertoire de PDFCreator de C:/Program Files, j'ai trouvé des formulaires tout faits pour Word, Excel...

Du coup j'ai importé le bon dans mon projet, rajouté des champs dans le code... Et tout marche bien...
... enfin presque. J'ai toujours un souci avec le champ auteur : l'auteur du PDF reste celui par défaut (à savoir, moi), quel que soit le nom entré dans le formulaire.

J'ai mis le contenu du formulaire existant dans C:\Program Files\PDFCreator\COM\MS Office, plus ma petite insertion.

plus particulièrement :

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
Private Sub SaveWholeDocumentAsPDF(Filename As String)
 AddStatus "Start ..."
 With PDFCreator1
  .cOption("UseAutosave") = 1
  .cOption("UseAutosaveDirectory") = 1
  .cOption("AutosaveDirectory") = ActiveDocument.Path
  .cOption("AutosaveFilename") = Filename
  .cOption("AutosaveFormat") = 0                            ' 0 = PDF
  .cClearCache
 
  'MON INSERTION
  .cOption("StandardSubject") = "MON SUJET"
  .cOption("StandardTitle") = "MON TITRE"
  .cOption("StandardAuthor") = "MON AUTEUR" ' MARCHE PAS
  .cOption("StandardKeywords") = "mot1;mot2;mot composé 3"
  'FIN INSERTION
 
  DoEvents
  ActiveDocument.PrintOut Background:=False
  DoEvents
  .cPrinterStop = False
 End With
End Sub

Une nouvelle fois, je ne suis pas trop sûr de savoir ce que je rate.

A vot'bon coeur