Automatisation publipostage word : juste le dernier enregistrement

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.

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:

---

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.