Probleme avec wdLastRecord

**suckthewindow** · 15/01/2008, 15h25

Bonjour,
je souhaite faire un mailMerge en VBScript et malgres quelque probleme cela marche maintenant

Seulement voila je souaiterai dans mon script connaitre le numero de la derniere ligne de mon datasource (afin de connaitre le nombre d'enregistrements) j'utilise donc la valeur wdLastRecord comme en VBA mais cela me retourne 1 meme si mon datasource possede plusieurs enregistrements, voici le code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
const cFolder = "c:\testfax\"
const cDocFile = "pfizer.doc"
const cScrFile = "elara.xls"
 
Function SiteComLog()
 
	'********************************************************************************************************
    ' Open the Template document
    Set wdo = CreateObject("Word.Application")
    If wdo Is Nothing Then
		WScript.Echo "Error: Cannot create Word document. MS Word " + "MS Word is not available! Quiting..."
		WScript.Quit 2
	End If
	Set wdocs = wdo.Documents	 
	Set wdoc = wdocs.Open(cFolder & cDocFile)
 
	'Open the dataSource
	wdo.ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
	wdo.ActiveDocument.MailMerge.OpenDataSource cFolder & cScrFile, 0, False, True, False, False, "", "", False, "", "",_
	"DSN=Text Files;DBQ=" & cFolder & ";DefaultDir=" & cFolder & ";DriverId=27;MaxBufferSize=2048;PageTimeout=5;", "SELECT * FROM `Sheet1$`", "" 
 
	With wdo.ActiveDocument.MailMerge
		.Destination = wdSendToNewDocument
		.SuppressBlankLines = True
		.DataSource.ActiveRecord = wdLastRecord
		iLastRecord = .DataSource.ActiveRecord
		.DataSource.ActiveRecord = wdFirstRecord
		iFirstRecord = .DataSource.ActiveRecord
 
		WScript.Echo "First: " & iFirstRecord
		WScript.Echo "Last: " & iLastRecord
	End With
 
End Function
 
' ***********************************************
' main                 
Call SiteComLog()

Je me demandais si l'erreur vient du VBA/VBScript (la difference etant obscure pour moi). Quelqu'un peut il le tester avec un datasource de plusieur lignes ?

merci