Publipostage depuis Excel [Résolu]

[Pierrea4564]

Bonjour,

J'ai créé une macro sous Excel afin d'automatiser la création d'un publipostage. Tout fonctionne correctement, mais je n'arrive pas à enregistrer le fichier créé (un fichier unique qui englobe toutes les données).
En gros, je voudrais qu’une fois le fichier généré, il l’enregistre dans le dossier « données », avec comme nom « fr.docx », puis ensuite fermer le fichier qui sert de modèle .


Merci d’avance pour votre aide car je suis vraiment bloqué.

Code :

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
 
Sub Publipostage()
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordApp = CreateObject("word.application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open("GE2.docx")
 
   WordApp.DisplayAlerts = wdAlertsNone
 
   WordDoc.MailMerge.OpenDataSource Name:=" GE.xlsm" _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=GE.xlsm;Mode=Read;Extended Properties=""HD" _
        , SQLStatement:="SELECT * FROM `'fr-FR$'`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
 
 
    With WordDoc.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
                .Execute
 
   End With
 
With WordDoc
    .SaveAs "\données\FR.doc"
    .Close
End With
 
End Sub

[Garuda]

Déja, est_ce qui 'il ne faut pas enregistrer au format DOCX ?

Code :

1
2
3
4
5
With WordDoc
    .SaveAs "\données\FR.docx"
    .Close
End With

d'autre part, le reperoire "\données" me parait bizarre
Moi, je mettrais

Code :

1
2
3
4
5
6
 
.Saves as "c:\donnees\fr.docx"
ou
.Saves as "..\donnees\fr.docx"
ou
.Saves as ".\donnees\fr.docx"

[Pierrea4564]

Merci Garuda.
Le problème ne venait pas que de là.
A force de recherche, j'ai finis par trouver une solution.

Code :

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
 
Sub Publipostage()
'
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordApp = CreateObject("word.application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open("M:\GE2.docx")
 
   WordApp.DisplayAlerts = wdAlertsNone
 
   WordDoc.MailMerge.OpenDataSource Name:="M:\GE.xlsm" _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=M:\GE.xlsm;Mode=Read;Extended Properties=""HD" _
        , SQLStatement:="SELECT * FROM `'fr-FR$'`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess          
 
      With WordDoc.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
                .Execute
 
   End With
 
   WordApp.Windows("Lettres types1").Activate
   WordApp.ActiveDocument.SaveAs "M:\toto.doc"
   WordApp.ActiveDocument.Close
 
   WordDoc.Close
 
WordApp.Quit
 
End Sub