Discussion :

[volganne]

Bonjour,

Petite question sur ce joli Code source
J'ai été obligé de rentrer en dur dans le fichier Word de publication, le Data Source.

J'ai essayé à plusieurs reprises d'ajouter au dessus de Connexion :

Code :

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

1
2
3
 
 
Data Source=iStr_Repertoire & "CDR.MDB"

Mais il y a une erreur de syntaxe...

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 MergeIt()
Dim objWord As Word.Document
Dim iStr_Repertoire As String
iStr_Repertoire = Nz(DLookup("[chemin]", "Param"), "")
If iStr_Repertoire = "" Then
    MsgBox "Répertoire non défini."
    GoTo Fin
End If
 
Set objWord = GetObject(iStr_Repertoire & "Template_destruction.doc", "Word.Document")
objWord.Application.Visible = True
fusion
objWord.MailMerge.OpenDataSource _
        Name:=iStr_Repertoire & "CDR.MDB", _
        LinkToSource:=True, _
        Connection:="GD-M", _
        SQLStatement:="SELECT * FROM [GD-M]"
' Exécution de la fusion.
objWord.MailMerge.MainDocumentType = wdCatalog
objWord.MailMerge.Execute
 
Set objWord = Nothing
 
Fin:
End Sub

Avez vous une idée pour ce satané Data Source SVP ...?

Merci par avance

[thanae]

Salut volganne,

Moi j'utilise bcp la fonctionnalité mailmerge entre Access et Word.
Dans ma procédure j'ai indiqué tous les parametres de connexion, je te conseil de le faire toi aussi:

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
 
Dim wdApp As Word.Application
    Set wdApp = CreateObject("Word.application")
    wdApp.Documents.Open tFile, , True
    With wdApp.Documents(tFile).MailMerge
        .MainDocumentType = wdFormLetters
        .OpenDataSource Name:=dbName, ConfirmConversions:=False, ReadOnly:=False, _
            LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _
            PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:="", _
            Revert:=False, Format:=wdOpenFormatAuto, Connection:= _
            "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & _
            dbName & ";Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";" & _
            "Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5", _
            SQLStatement:="SELECT * FROM `QRY_MailMerge_Letters`", SQLStatement1:="", SubType:=wdMergeSubTypeAccess
        With .DataSource
            .FirstRecord = iFirst
            .LastRecord = iLast
        End With
        .SuppressBlankLines = True
        .Destination = wdSendToNewDocument
        .Execute Pause:=False
    End With

Ce code a toujours fonctionné chez moi, donc j'espères avoir pu t'aider.

[volganne]

Bonjour thanae,

Sympa le code, mais ca ne change pas le fait que le Data source soit conservé dans le Template Word.

Et oui, je fais appel a un template, il y a une mise en page assez chadée donc j'ai pas trop de choix.

Et ce satané Data Source reste toujours malgré le parmètre envoyé.

[thanae]

Quand tu fais le mailmerge via access, cela fonctionne quand meme ou pas? Est-ce que ce n'est pas que quand tu rentre directement dans le template via word que tu as ce problème?

[volganne]

Oui c'est au moment de l'ouverture du template

[thanae]

Ca je l'ai aussi, mais en principe tu ne dois l'ouvrir que pour faire des modifications, dans ce cas tu refait ton lien vers une version test ou autre juste pour les modifs et comme le code lui attribue à chaque fois le bon datasource, tu n'a pas à t'en soucier.
Perso, moi je modifie en local le template avec comme lien une base de test, aussi en local, et bien sur lorsque je le met sur le réseau dans le répertoire de prod, le lien n'est plus bon, mais cela n'empeche pas au code de bien faire le mailmerge .