Publipostage depuis Access pour enregistrement en PDF

**celthi** · 03/09/2016, 03h45

Bonjour au Forum,

Suite à la lecture du tuto sur ce sujet, je me suis lancé dans l'élaboration du code, ou plutôt dans l'adaptation du code à ma base access.
Le hic c'est que cela ne me donne pas de résultat, j'ai cette erreur : Type defini par l'utilisateur non defini.

Ensuite ce code me permet d'imprimer mais moi je voudrai enregistrer les enregistrement en PDF. Je n'arrive pas à trouver la meilleur méthode.

Il y a t'il une personne susceptible de m'indiquer le chemin, j'ai du me perdre en route s'il vous plais.

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
Sub demande_contrat()
Dim wApp As Word.Application
Dim chemin As String
Dim rs As DAO.Recordset
Set rs = Me.[SF_DemandeAgence_LP].Form.Recordset
Set wApp = New Word.Application
    chemin = CurrentProject.Path
wApp.Visible = True
 
    While Not rs.EOF
       .Documents.Open ("chemin" & ordre_de_mission_vierge_pour_publipostage2.docx_)
    .ActiveDocument.Bookmarks("Nom").Range.Text = rs.Fields("Nom")
    .ActiveDocument.Bookmarks("Prenom").Range.Text = rs.Fields("Prénom")
    .ActiveDocument.PrintOut
    .ActiveDocument.Close (wdDoNotSaveChanges)
End With
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
 
Set wApp = Nothing
 
End Sub

L'objectif est d'envoyer des ordre de mission à une entreprise
je précise que le code n'est pas fini, je n'ai pas entré tout les signets. je veux d'abord tester avec ces deux signets.

Merci d'avance,

Invité · 03/09/2016, 14h43

Bonjour,
Faire à partir d'Access une macro vba pour exporter une requête dans Word publipostage dans le but de l'exporter en Pdf!

Le concept me parait intéressant.

Pourquoi pas un état Access?

**kiki29** · 03/09/2016, 16h32

Salut, à lire : Enregistrez vos états au format PDF avec Office 2007
Exporter vos états Access en PDF gratuitement

**celthi** · 03/09/2016, 20h42

Bonjour au Forum
Merci déjà pour les réponses.

A la question pourquoi ne pas faire un état Access, la réponse est que la boite a un template pour les ordres de contrat (un document word en docx) que je dois utiliser. Mais si la conception n'est pas possible, il me faudra passer par un état avec l'inconvénient d'une mise en page moins bonne il me semble.

**celthi** · 03/09/2016, 20h51

@ kiki29 : merci pour ton apport, si je n'arrive pas avec word, tu m'as donné une bonne partie de la solution. Par contre la boite n'utilise pas PDF creator donc le deuxième tuto n'est pas exploitable dans mon cas je pense, mais merci quand même pour mon information personnel.

**celthi** · 03/09/2016, 21h11

Bonjour au Forum,

L'exécution se bloque en surlignant toujours : wApp As Word.Application
Est-il possible que cela vienne que l'application n'est pas été défini ou déclarée ?

Je dis cela mais je nage un peu beaucoup là !!!

**kiki29** · 03/09/2016, 21h49

Salut, en Early Binding il faut cocher les références ici : Microsoft Word xx.x Object Library

Sinon on développe en Early Binding ( intellisense ) et déploie en Late Binding ( pas de références à cocher ) voir ici

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
Option Explicit
 
'Early Binding
' Référence à cocher : Microsoft Word xx.x Object Library
Sub tst_01()
Dim appWD As Word.Application
 
    Set appWD = New Word.Application
    appWD.Visible = True
    Set appwrd = Nothing
End Sub
 
'Late Binding
Sub tst_02()
Dim appWD As Object
 
    Set appWD = CreateObject("Word.Application")
    appWD.Visible = True
    Set appWD = Nothing
End Sub

Invité · 03/09/2016, 21h51

Code :

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

1
2
dim wApp As object 'Word.Application
Set wApp = CreateObject("Word.Application")

**celthi** · 03/09/2016, 23h56

Merci pour les réponses,
avec l'indication de rdurupt, j'ai retravaillé mon code, alors qu'il était dans un module, je l'ai mis dans l'évènement click d'un bouton et ça marche mieux mais pas complètement.
J'ai une erreur sur ActiveDocument. "Object doesn't suppport this property or method" et quand je fais debug, il me place sur la première ligne ActiveDocument par contre le doc word est ouvert

voici 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
23
24
25
26
27
28
29
30
Private Sub Ordre_mission_Click()
With Me.[SF_DemandeAgence_LP].Form.Recordset
Dim wApp As Object 'Word.Application
Set wApp = CreateObject("Word.Application")
'Dim db As DAO.Database
'Dim chemin As String
'Dim rs As DAO.Recordset
'Set rs = db.openrecorset(Me.[SF_DemandeAgence_LP].Form.Recordset)
'Set db = CurrentDb
'Set wApp = New Word.Application
    chemin = "\\ASUS\Users\CAREME\Documents\ordre_de_mission_vierge_pour_publipostage2.docx"
wApp.Visible = True
 
    While Not .EOF
    wApp.Documents.Open (chemin)
    .ActiveDocument.Bookmarks("Nom").Range.Text = [Nom]
    .ActiveDocument.Bookmarks("Prenom").Range.Text = [Prénom]
    .ActiveDocument.PrintOut
    .ActiveDocument.Close (wdDoNotSaveChanges)
 
Me.[SF_DemandeAgence_LP].Form.Recordset.MoveNext
Wend
Me.[SF_DemandeAgence_LP].Form.Recordset.Close
'Set rs = Nothing
'db.Close
'Set db = Nothing
 
Set wApp = Nothing
End With
End Sub

J'avance mais je ne suis pas au bout.

Merci par avance.

Invité · 04/09/2016, 02h02

comme l'a dit Kiki29 il existe 2 façon de travailler sur des application externe.

Early Binding permet de travailler en relation avec des applications externe aussi surement que cette dite application faisait partie de l'application elle même!

l'inconvénient c'est que le programme devient lié à la version de l'application externe installé sur la machine de développement. ainsi si je dispose de Word 2003 alors l'application ne tournera pas sur 2013!

Late Binding, l'application ne dispose pas de références à l'application Externe, elle ne connait pas le objet implicite comme ActiveDocument et wdDoNotSaveChanges. il faut lui donner les explications, nous devrons donc lui décliner l'information à partir des information dont nous disposons! (wApp)

Code :

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

1
2
3
4
5
6
7
8
9
 While Not .EOF
    wApp.Documents.Open (chemin)
    wApp.ActiveDocument.Bookmarks("Nom").Range.Text = [Nom]
    wApp.ActiveDocument.Bookmarks("Prenom").Range.Text = [Prénom]
    wApp.ActiveDocument.PrintOut
    wApp.ActiveDocument.Close (false)
 
Me.[SF_DemandeAgence_LP].Form.Recordset.MoveNext
Wend

**celthi** · 04/09/2016, 02h59

Bonjour au forum,

Effectivement, cela fonctionne. Je vais davantage me pencher sur les tuto de Kiki29 pour être sur de bien assimiler ces informations qui sont nouvelles pour moi.
Du coup la première partie est bouclé, j'ai réussi à faire le publipostage, reste à faire l'enregistrement en PDF et l'envoi par mail si je peux.

Est-ce qu'il faut que j'ouvre une seconde discussion ?

Merci en tout cas à tout les deux. Non seulement vous m'avez corrigé le code mais surtout j'ai a peu près compris la démarche. A moi d'approfondire ce sujet maintenant.

Invité · 04/09/2016, 13h58

Bonjour,
A mon sens il n'y a pas de contre indication à continuer sur le même poste.
Sauf si tu estimes que la suite est antinomique avec l'intitulé de la discussion.

Mets toi à la place d'un internaute qui face à un problème identique au tien tombe sur un discussion qui dans sa majorité n'a rien à voir!

Dans ton cas il est question de publipostage PDF et nous n'avons abordé que le publipostage. Reste le Pdf.

Les deux sujets respect l'intitulé du poste! Si non nous n'aborderions que 50% du problème!

**celthi** · 04/09/2016, 16h54

Merci de me permettre de continuer sur le même poste.
Pour le Early Binding et le late Binding.
En ce qui concerne mon cas, tous les PC ont la même configuration logiciel. Aujourd'hui ils tournent avec Office 2007 et d'ici quelques semaines, il passeront tous à Office 365. Si j'ai bien compris, du moment que les mêmes logiciels ont été installé sur toutes les bécanes, il est donc possible de passer par du Early Binding car je crois qu'il y a quand même pas d'avantages par rapport au late.
Si je suis bien, au début mon code était plus en Early Binding et maintenant il est passé en Late Binding ?
Mes questions vous paraissent peut-être un peu faciles et redondante, mais j'aime bien comprendre ce que je fais, cela me permet de le réutiliser après.

Pour la suite, existe t'il une syntaxe pour enregistrer en PDF par le VBA ? Dans ma réflexion, je me heurte au problème qu'il me faut autant de page que de contrat du recordset hors il peux y en avoir une trentaine parfois. Peux t-on indiquer un nom en spécifiant par exemple le nom et le prénom de la personne concerné par le contrat ?

Beaucoup trop de questions peut-être.

Invité · 04/09/2016, 17h30

En ce qui concerne le monde d'utilisation des liens entre applications externe.

Sur le fond tubas raison,si tous les Pc on la même configuration autant utiliser Early Binding .

Mais ça donne juste un confort au niveau du développeurs car il dispose de la saisie intuitive des objets. Il faut au préalable activer les références dans le projet Vba.

L'inconvénient et tu l'as souligné, pour le changement de version qui va s'opérer dans ta boite il faudra modifier cette référence.

Si la mise à jour effectue sur plusieurs semaines il faudra gérer deux versions

Alors que Late Binding rend l'opération transparente.

Je préconise toujours et Kiki29 m'a précédé,dz développer en Early Binding mais dans une logique Late Binding !

Code Late Binding :

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

1
2
dim wApp As object 'Word.Application
Set wApp = CreateObject("Word.Application")

Code Early Binding :

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

1
2
dim wApp As Word.Application
Set wApp = New Word.Application

Code facon Late Binding :

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

1
2
dim wApp As Word.Application
Set wApp = CreateObject("Word.Application")

Ensuite il est possible d'utiliser une bases de données Access comme base du publipostage de Word. Ainsi on génère le publipostage dans un autre document Word et on l'enregistre en Pdf.

Il suffit de modifier le contenu dans la base de données.

Dans Word sais n'importe quoi et fais enregistrer sous et dans les option de type choisis l'extension Pdf!

**celthi** · 04/09/2016, 20h20

Mon objectif est que dans le même événement sur le bouton on puisse générer le publipostage et enregistrer en PDF avec un nom différent par enregistrement. Je veux donc éviter que l'utilisateur ai à manipuler Word car les enregistrements à enregistrer dans le sous formulaire dépendent d'une combobox du formulaire.
Pour l'instant le code lance une impression, mais j'imagine que d'une manière un peu identique, on peut lancer un enregistrement en PDF en spécifiant un chemin d'accès et le nom. Peut-être que je me trompe ?

Invité · 04/09/2016, 21h25

Déjà dans mes propos il n'a jamais été question que l'utilisateur manipule Word, si non je n'ai rien compris à ta demande.

Mais là où j'ai peut-être pas compris, c'est si tu veut un seul document Pdf avec plusieurs pages.

Le publipostage permet d'avoir un seule document avec sur chaque pages le résulta de ra requête sur le modèle de ton document Word.

Pour être plus précise ca fait exactement ce que tu veux mais concatène dans un seul document.

Ou si tu veux un pdf par enregistrements de ta requête.

Ce que je te proposais dans mon dernier poste était de valider que tu puisses enregistrer en pdf un doc Word!

**celthi** · 04/09/2016, 22h38

Ok, pas de soucis, je peux enregistrer en pdf, mais je ne l'avais pas précisé auparavant.
Il me faudrait en effet un PDF par enregistrement.

Pour enregistrer en PDF j'ai tenté le code suivant sans succès.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
chemin = "C:\Users\TCARE\Documents\ordre_de_mission_vierge_pour_publipostage2.docx"
    chemin2 = "C:\Users\TCARE\Documents"
wApp.Visible = True
 
    While Not .EOF
    wApp.Documents.Open (chemin)
    wApp.ActiveDocument.Bookmarks("Nom").Range.Text = [Nom]
    wApp.ActiveDocument.Bookmarks("Prenom").Range.Text = [Prénom]
    wApp.ActiveDocument.ExportAsFixedFormat chemin2 & ordremission & ".pdf", wdExportFormatPDF
 
    'wApp.ActiveDocument.Close (wdDoNotSaveChanges)

En dehors de cela, je dois avoir un autre soucis dans le code car quand le doc Word s'ouvre, il ne me met pas les enregistrements que je lui demandee.

J'ai une personne à l'écran dans le sous-formulaire intitulé : SF_DemandeAgence_LP
mon recordset est bien sensé avoir cette même personne ?
Car sur mon doc Word, il me donne un autre nom. en faite, il me donne toute la liste des missions de la requête sans tenir compte des tri de celle-ci. Faut-il alors plutot mettre le code SQL de la requête à la place du recordset du sous formulaire.

Je pensais que le publipostage serait plus facile à configurer que cela, mais bon puisque j'ai commencé je vais avec votre aide arriver au bout.

Merci pour votre support. Ce forum et ceux l'anime sont vraiment excellents

Invité · 05/09/2016, 00h23

n'oublis pas que tu es en Late Binding wdExportFormatPDF et wdDoNotSaveChanges vba connait pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
chemin = "C:\Users\TCARE\Documents\ordre_de_mission_vierge_pour_publipostage2.docx"
    chemin2 = "C:\Users\TCARE\Documents\"
wApp.Visible = True
 
    While Not rs.EOF
    wApp.Documents.Open (chemin)
    wApp.ActiveDocument.Bookmarks("Nom").Range.Text ="" &   rs.Fields("Nom")
    wApp.ActiveDocument.Bookmarks("Prenom").Range.Text = "" &   rs.Fields("Prénom")
    wApp.ActiveDocument.ExportAsFixedFormat chemin2 & ordremission & ".pdf", 17
 
    wApp.ActiveDocument.Close (false)
rs.movenext

**celthi** · 05/09/2016, 23h43

Bonsoir à tous,

rdurupt : Bon bah j'ai pas tout compris !!!
Si vba ne connait pas, comment je fais pour lui apprendre. Parce que là, il ne veut pas enregistrer en pdf.
En résumé, pour l'instant il ouvre le doc word, il prend le premier nom de la table mission sans tenir compte du sous formulaire qui contient des tris.
Je vous remet mon code entier car je ne sais plus quoi faire...

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
Private Sub Ordre_mission_Click()
With Me.[SF_DemandeAgence_LP].Form.Recordset
Dim wApp As Object 'Word.Application
Set wApp = CreateObject("Word.Application")
'Dim db As DAO.Database
'Dim chemin As String
'Dim chemin2 As String
'Dim rs As String
'rs = Me.[SF_DemandeAgence_LP].Form.Recordset
'Set db = CurrentDb
'Set wApp = New Word.Application
    chemin = "C:\Users\TCARE\Documents\ordre_de_mission_vierge_pour_publipostage2.docx"
    chemin2 = "C:\Users\TCARE\Documents"
wApp.Visible = True
 
    While Not .EOF
    wApp.Documents.Open (chemin)
    wApp.ActiveDocument.Bookmarks("Nom").Range.Text = [Nom]
    wApp.ActiveDocument.Bookmarks("Prenom").Range.Text = [Prénom]
    wApp.ActiveDocument.ExportAsFixedFormat chemin2 & "\" & ordremission & ".pdf", 17
 
    wApp.ActiveDocument.Close (False)
'rs.MoveNext
 
Me.[SF_DemandeAgence_LP].Form.Recordset.MoveNext
Wend
Me.[SF_DemandeAgence_LP].Form.Recordset.Close
'Set rs = Nothing
'db.Close
'Set db = Nothing
 
Set wApp = Nothing
End With
End Sub

J'utilise déjà ce recordset pour valider des données dans ce même sous formulaire (ça fonctionne). mais peut être que je fais une erreur dans la méthode

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
Private Sub Btn_Valider_demande_agence_Click()
With Me.[SF_DemandeAgence_LP].Form.Recordset
    While Not .EOF
      'Passe en mode modification
      .Edit
      'Affecte la date et la case à coché
      ![Demande_Agence] = Me![Demande_Agence]
      ![Demande_Agence_date] = Me![Demande_Agence_date]
      'Met à Jour
      .Update
      'Passe au suivant
      .MoveNext
    Wend
End With
End Sub

Merci d'avance