Discussion :

[harry le ravi]

Bonjour à tous,

Je suis sur la fin d'un script vbs pour faire du publipostage automatique à partir d'une source de donnée excel.

Le but est de faire le publipostage de la dernière ligne de la requete SQL (le dernier enregistrement fait dans le fichier excel).

Je n'arrive pas à attribuer le LastRecord à l'ActiveRecord.

Normalement celon les diverses sources du net cette attribution ce fait dans les options du publipostage par cette commande:
objDoc.MailMerge.DataSource.ActiveRecord = wdLastRecord

Active record contient 1 (le premier enregistrement) par défaut.

Si je fait un msgbox sur la commande précédente, j'obtiens False.
Or je ne veux pas que les deux valeurs soient comparées, je veux attribuer la valeur wdLastRecord à objDoc.MailMerge.DataSource.ActiveRecord

Tout le reste de mon code fonctionne, si j'incrémente l'ActiveRecord, je parcours l'ensemble de mon fichier Excel.

Merci d'avance.

[harry le ravi]

Pour ceux que ca interresse, j'ai trouvé mon bonheur:

MailMerge fonctionne avec un range: un enregistrement de début et un enregistrement de fin
Il suffit de spécifier que l'enregistrement de début est l'enregistrement de fin par cette commande:

objDoc.MailMerge.DataSource.FirstRecord = objDoc.MailMerge.DataSource.lastrecord

Voici le code entier:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
NomBase = "chemin d'acces\fichier.xls"
DocWord = "chemin d'acces\fichier.doc"
 
Set appWord = CreateObject("Word.Application" )
appWord.Visible = False
Set objDoc = appWord.Documents.Open(DocWord)
 
objDoc.mailMerge.OpenDataSource NomBase, 4, False, True, False, False, "", "", True, "", "", "Driver={Microsoft Excel Driver (*.xls)};", "SELECT * FROM [Feuille$]"
objDoc.mailMerge.Destination = 1
objDoc.MailMerge.DataSource.FirstRecord = objDoc.MailMerge.DataSource.lastrecord
objDoc.mailMerge.Execute Pause=False
appWord.documents.Close False
appWord.Quit

Le plublipostage prends tout les enregistrements de la feuille provenant du fichier excel et de mannière invisible, il lance l'impression du publipostage du dernier enregistrement puis il ferme les docs word ouverts sans sauvegarder.