Discussion :

[steps5ive]

Bonjour,

Je travaille présentement avec le publipostage et j'utilise le code du tutoriel de heureuxoli soit:

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
 
Sub Publipostage()
 
Dim objWord As Word.Document
 
    Set objWord = GetObject("C:\Documents and Settings\boumar2\Bureau\Modele.doc", "Word.Document")
    ' Rend Word visible important puisque la fusion se fait à l'écran.
    objWord.Application.Visible = True
    ' Sélectionne .la base de données
    objWord.MailMerge.OpenDataSource _
        Name:="C:\Documents and Settings\boumar2\Bureau\NonConformités 28 mars.mdb", _
        LinkToSource:=True, _
        Connection:="TABLE ztblErreurProduction", _
        SQLStatement:="SELECT * FROM [ztblErreurProduction]"
    ' Exécution de la fusion.
    objWord.MailMerge.Execute
 
    objWord.Close
    Set objWord = Nothing
End Sub

Existe-t-il un moyen de récupérer et d'enregistrer automatiquement le fichier de sortie avec un chemin et un nom prédéfini?

Merci et bonne journée!

[yonnel]

Bonjour!

Tu dois avoir la possibilité de faire un

Code :

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

objWord.SaveAs

Un petit tour sur la doc te permettra d'en savoir plus!
http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

[steps5ive]

C'est la première chose que j'ai vérifié mais le objWord se trouve à être branché sur le fichier modèle et non celui de destination.

[yonnel]

Oui mais avec le SaveAs tu peux spécifier le nom du fichier de destination non?
Ton fichier modèle ne sera donc pas modifié. D'ailleurs, je te conseille de sauvgarder une première fois avant de faire les changements...

[steps5ive]

Je ne vois pas ou vous voulez en venir car lorsque je lance ma fusion depuis access, je me retrouve avec 2 fichiers ouverts soient le modèle et la destination. Mon fichier modèle n'est jamais modifié ni affecté par la fusion.