Transformer un .doc en .pdf via Access

**Herman** · 04/10/2006, 11h22

Bonjour,

Voilà tout est dans le titre. Je commande des signets Word via Access et je voudrais maintenant savoir si il était possible de transformer ce fichier Word en pdf.

Je pense que pour passer d'un .doc en .pdf il faut un logiciel à part ? Est ce qu'il est possible de lancer ce logiciel via Access ? Ca me semble difficile mais si quelqu'un sait

Merci d'avance

**argyronet** · 04/10/2006, 12h33

Bonjour,

et trouver ta réponse dans la

mais aussi de lire les tutoriels associés

Argy

**Herman** · 04/10/2006, 13h37

J'ai déjà utilisé la fonction de Recherche et la faq. Si je post un nouveau thread c'est que je n'ai rien trouvé de concluant parlant de pdf+access+word à part ça qui parle des états : http://cafeine.developpez.com/access/tutoriel/pdf/ :/

**argyronet** · 04/10/2006, 14h50

Si tu lis et comprends ce code dont je suis l'auteur, tu as la réponse à ta requête.

Bon courage...

Argy

**Herman** · 04/10/2006, 16h09

ah, le soucis c'est que je le comprend pas parfaitement

et surtout que je vois pas où modifier le code pour qu'il colle avec Word

**argyronet** · 04/10/2006, 17h07

Le principe est le suivant :
Attention cette procédure requiert que PDFWriter soit installé sur ton poste...

Le code est prévu pour Access donc ici, on change l'imprimante par défaut en sélectionnat par programme PDFWriter avec la procédure SetDefaultPrinter().

Une fois cela fait on restitue l'imprimante par défaut avec cette procédure fnctGetDefaultPrinter().

C'est avec la procédure subCreatePDFFromReport() que tu créés ton PDF à partir d'un document, d'un classeur ou d'un état selon le cas...

Donc il suffit de modifier la procédure en question comme il se doit à savoir créer un objet OLE Word que instancies et auquel tu ordonnes en mode invisible l'ouverture, l'impression et la fermeture du document.
La procédure ensuite restitue l'imprimante par défaut et c'est transparent pour l'utilisateur...

Argy

**Herman** · 04/10/2006, 17h16

merci, je vais faire quelque test, j'ai pas tout compris à ce que tu as dit mais je verrai si ce que je fais marche :p

**argyronet** · 04/10/2006, 17h33

Qu'est-ce que tu n'a pas compris ?

**Herman** · 04/10/2006, 17h48

Le mode invisible et "objet OLE Word" :/ je doit savoir ce que c'est je pense mais ce nom là : objet OLE Word me dit rien :s

**argyronet** · 04/10/2006, 17h51

Ah...

Bon, voici comment modifier le code...

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
Private Sub CreatePDFFromWord(ByVal DocumentToConvert As String, ByVal _
****PDFFileName As String)
Dim oWord As Object

**m_strOriginalPrinter = GetDefaultPrinter()
**SetDefaultPrinter "Acrobat PDFWriter"
**WriteEntry rrkHKeyCurrentUser, "Software\Adobe\Acrobat PDFWriter\", _
******"PDFFileName", PDFFileName, RRKREGSZ
**
**Set oWord = CreateObject ("Word.Application")
**With oWord
****.Visible = True
****.Documents.Open DocumentToConvert
****.PrintOut
****.ActiveDocument.Close False
****.Quit
**End With
**Set oWord = Nothing
**
**SetDefaultPrinter m_strOriginalPrinter

End Sub

que tu peux tester comme suit :

Code :

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

1
2
3
4
5
6
Sub testPDFToWord()
Dim strDocumentToConvert As String

**strDocumentToConvert = "C:\My Documents\MyFuturPDF.doc"
**CreatePDFFromWord strDocumentToConvert, "C:\My Documents\MyNewPDF.pdf"
End Sub

Argy

N.B. Voir le message suivant pour trouver le code expurgé des astérisques intempestifs

**Herman** · 05/10/2006, 08h38

Yop,

merci pour ce code, il y avait juste quelques bricoles à modifier pour que ça marche parfaitement et ça donne :

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
Public Sub CreatePDFFromWord(ByVal DocumentToConvert As String, ByVal _
    PDFFileName As String)
Dim oWord As Object

  originalPrinter = fnctGetDefaultPrinter()
  SetDefaultPrinter "Acrobat PDFWriter"
  subRegistrySetKeyValue RootHKeyCurrentUser, "Software\Adobe\Acrobat PDFWriter\", _
      "PDFFileName", PDFFileName, RRKREGSZ
  
  Set oWord = CreateObject("Word.Application")
  With oWord
    .Visible = True
    .Documents.Open DocumentToConvert
    .PrintOut
    .ActiveDocument.Close False
    .Quit
  End With
  Set oWord = Nothing
  
  SetDefaultPrinter originalPrinter

End Sub

Merci beaucoup

MAIS, puisqu'il y a toujours un mais, il ne me change pas l'imprimante pour mettre l'imprimante virtuelle pdf, mais il m'envoie direct l'impression sur mon imprimante par defaut :/ il faut que je change manuellement l'imprimante par défaut du pc :s J'ai regardé un peu et je vois pas du tout d'ou ça peut venir, je sais pas si ça vient du code ou quoi :s

**argyronet** · 05/10/2006, 10h42

Oui, ce que tu as corrigé est juste un change de nom car je ne travaillais pas sur le code que j'ai publié...

Ce code marche parfaitement. Si l'imprimante ne change pas c'est qu'il y a un problème au niveau du nom et qu'il ne trouve pas "Acrobat PDFWriter"... Est-tu certain d'avoir cette imprimante tel que ?

Justement, tout l'intérêt de ce code est d'une faire transparence en matière de permutation d'imprimante et de deux faire transparence du nom du fichier PDF qui évite d'avoir la boîte de dialogue invitant à entrer un nom de fichier.

Argy

**Herman** · 05/10/2006, 11h18

ah ui c'etait PdfCréator qui était installé, un truc qui n'a rien à voir quoi ^^

Est ce qu'il est possible d'ajouter pdf creator sans avoir à reinstall acrobat reader ? Il me semble que depuis le poste où je suis je n'ai pas le droit de desinstaller de logiciel et donc de reinstaller acrobat :/

EDIT : Je n'ai pas les droits pour reinstaller le logiciel en entier, y'a t-il un moyen pour esquiver ça et peut être copier/coller un dossier où je ne sais quoi :c

**argyronet** · 05/10/2006, 11h39

C'est bien ce qui me semblait !!!

Si tu n'as pas les droits, log toi en tant qu'administrateur sur ton poste local (pas de domaine) et réinstalle-le. Le cas échéant, demande les droits à ton service info...

Sinon, pour PDFCreator, regarde le tuto de cafeine...
Mon code est établi pour PDFWriter d'acrobat...

Argy

**Herman** · 05/10/2006, 12h17

J'ai gardé ton code puisqu'il me générait quand même un .pdf en lançant l'imprimante virtuelle de PdfCreator (définit par défaut).

J'ai modif les propriétés de PdfCreator pour faire en sorte qu'il ne me demande pas à chaque fois quel nom mettre au fichier (cf. tuto de cafeine).

Donc nikel ça me génére un pdf, certes ça remet pas la vrai imprimante par defaut, mais je vais bidouiller et je devrais m'en sortir.

Merci :p

**Bicor22** · 26/03/2016, 13h49

Bonjour, j'ai une application qui transforme des doc Word en Pdf et les envoie par mail via outlook.
application installée sur 4 machine W7 sous access 2007.sans soucis

installée sur 2 autres machines W7 et W8 dans l’action Save PDF je reçois "PDF error 4198: la commande a échouée"

J'ai vérifié les références: mêmes paramètres. J'ai du oublié quelque chose..mais quoi?.
Je galère depuis 2 mois sur le sujet.
Quelqu’un a t il une idée ?

Merci

**argyronet** · 26/03/2016, 22h21

Envoyé par Bicor22

j'ai une application qui transforme des doc Word en Pdf et les envoie par mail via outlook.
application installée sur 4 machine W7 sous access 2007.sans soucis

De quelle application s'agit-il ?
L'export PDF est natif à Office 2007 (après installation d'un module) et 2010.

Argy

**Bicor22** · 27/03/2016, 09h39

Merci de cette rapide réponse.
C'est une application access avec beaucoup de code VBA. (gestion des adhérents d'un club)

J'avais complétement oublié d'installer le module SaveAsPDFandXPS de µsoft
Tout fonctionne correctement

Merci encore et bonnes fêtes de Pâques

Transformer un .doc en .pdf via Access

Access

Discussions similaires

Partager

Partager