Discussion :

[zielite]

Bonjour à tous,

Dans le cadre de la création d'une Macro qui lance un publipostage vers Word depuis Excel, je cherche à paramétrer le contrôle DataSource pour que soit:
- seuls les derniers enregistrements s'impriment (par rapport au dernier enregistrement du fichier Excel).
- seuls les derniers les enregistrements de la date du jour s'impriment. (la date du courrier est en colonne B de ma BDD).

Aujourd'hui j'utilise le code classique (trouvé d'ailleurs ici) qui imprime toute la BDD.

Code :

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

1
2
3
4
 With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With

J'ai essayé d'enregistrer la manip sous Word via l'enregistreur de Macro mais rien ne se passe.

Quelqu'un connait il un moyen de faire cela?

Par avance merci!

[zielite]

J'ai finalement trouvé la solution:

Si d'autres ont ce problème je partage avec plaisir:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    With docWord.MailMerge
        'Ouvre la base de données
        .OpenDataSource Name:=NomBase, _
            Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=""" & NomBase & """; ReadOnly=True;", _
            SQLStatement:="SELECT * FROM [Acceptation$] WHERE date_courrier = '" & Format(Now, "dd/mm/yyyy") & "'"
        'Spécifie la fusion vers l'imprimante
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True

Zielite