Fusion avec l'option catalogue

Version imprimable

16/10/2006, 16h20
chichiboof

Fusion avec l'option catalogue

j'utilise une commande Wscript.exe sous dos pour lancer le programme de fusion en vbs .
mais le problème est le suivant :
la fusion à deux modes lettre type ou reprtoire(catalogue précedement) mais mon document à besoin des deux en même temps , puisque je dois avoir une premiére feuille pour la sociéte et les suivantes pour les employés .
pour cela j'ai retrouvé du code en vb

Code:

ObjWord.ActiveDocument.MailMerge.MainDocumentType = Word.WdMailMergeMainDocType.wdCatalog

mais en vbscript n'est pas reconnu !! pour cela j'ai pris la valeur ( 3 = option du cataloguage )

Code:

ActiveDocument.MailMerge.MainDocumentType = 3

le fichier word se referme juste aprés la confirmation , ( mais quand je remet la valeur (0 = représente celle de Word.WdMailMergeMainDocType.wdFormLetters )

:help:
16/10/2006, 18h27
ced600

Peut tu être plus clair ?
17/10/2006, 09h43
chichiboof

je veux utiliser l'ption de fusion en catalogue (repertoire) ; et pour cela j'ai trouvé un code en vb qu'il le fait , mais en vbscript dé que je la met en oeuvre le document word se reférme ( je change du mode letter en catalogue ).
donc en gros j'ai tout le code de la fusion d'un word avec un fichier txt via un script vb mais pour activer l'option ' catalogue je n'ai pas su le faire :x
17/10/2006, 11h48
ced600

Desole mais ce n'est toujours pas clair, peut être qu'avec des vrais phrases je pourrait comprendre ton problème. Notemment je ne comprends pas ça :

Citation:

( mais quand je remet la valeur (0 = représente celle de Word.WdMailMergeMainDocType.wdFormLetters )

et ça :

Citation:

( je change du mode letter en catalogue ).

Or cela semble important.
Au fait, il manque souvent les sujet à tes phrases !!!

ok ! , Je m’explique !
J’ai utilisé la fusion avec l’option suivante :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 With ActiveDocument.MailMerge .Destination = wdSendToNewDocument .MailAsAttachment = False .MailAddressFieldName = "" .MailSubject = "" .SuppressBlankLines = True .MainDocumentType = 0 ' 0 = wdFormLetters With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute True oAutoText.Delete End With
Pour créer une nouvelle page pour chaque enregistrement ,

Mais maintenant je dois créer juste une nouvelle ligne pour chaque enregistrement et cela se fait de la manière suivante :

Code:

.MainDocumentType = 3 ' 3 = wdCatalog

Mais dé que le word s’ouvre il se referme automatiquement sans je puisse sauvegarder le document ou le consulter

merci , j'oublie toujours de me mettre a la place des autres pour me compendre :marteau:

17/10/2006, 13h51
ced600

Je n'aime pas trop le with, surtout quand on l'imbrique, on se melange vite les piceaux, mais je ne pense pas que ton problème vienne de la. Bien que je me demande ce que donne

Code:

oAutoText.Delete

qui se trouve dans le with, ca ne risque pas de donner au final :

Code:

ActiveDocumentoAutoText.Delete

?
Mais sinon dans le code que tu m'as donnés, tu changes juste la valeur de

Code:

MainDocumentType

?
Si c'est le cas, es tu sur que tu peut créer une nouvelle ligne sans créer d'abord une nouvelle page, à moins bien sur que tu ouvres un document contenant des pages ?
Une question toute bête, es tu sur que le type catalog existe, pour ta version de word, ou qu'il n'est pas desactive ?

je ne sais plus comment , mais maintenant ça marche ! merci a tout :yaisse2:

au fait , le voici le code :

Code:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Option Explicit
On error Resume next
 
Const wdSendToNewDocument=0
Const wdDefaultFirstRecord = 1
Const wdDefaultLastRecord = -16
 
Dim DEBUG
Dim WSHShell 
Dim i
Dim objArgs 
 
Dim AppWord
Dim ActiveDocument
Dim DocumentResultat
Dim TmpString 
Dim ErrorLevel
Dim DocFileName 
Dim TxtFileName 
Dim oDco
 
'--------------------------------------------------------
'Init
ErrorLevel = 0
'--------------------------------------------------------
'Main 		
		Set objArgs = Wscript.Arguments	
		If objArgs.Count > 1  then	 
	 		DocFileName = objArgs(0)
			TxtFileName = objArgs(1)
		Else
			Wscript.Quit(ErrorLevel)
		End if
	  Set WSHShell = WScript.CreateObject("WScript.Shell")		
 
      Set AppWord = CreateObject("Word.Application")
    AppWord.Visible = True
 
    AppWord.DisplayAlerts = True
		'Merge ... ation    
    Set ActiveDocument = AppWord.Documents.Open(DocFileName)
     ActiveDocument.MailMerge.MainDocumentType = 3
     ActiveDocument.Activate
    ' **** Ouverture de la source de données
     ActiveDocument.MailMerge.OpenDataSource (TxtFileName)
   	 'MsgBox "Av Fusion"
	'Paramétrage et lancement du publipostage
    With ActiveDocument.MailMerge
      .Destination = wdSendToNewDocument
      .MailAsAttachment = False
      .MailAddressFieldName = ""
      .MailSubject = ""
      .SuppressBlankLines = True
       Dim oAutoText
    Set oAutoText = AppWord.NormalTemplate.AutoTextEntries.Add _
    ("MyLabelLayout", ActiveDocument.Content)
 
    .MainDocumentType = 3  ' 1 = wdMailingLabels
      With .DataSource
          .FirstRecord = wdDefaultFirstRecord
          .LastRecord = wdDefaultLastRecord
      End With
      .Execute True
    End With            
 
		'Fermeture du modele    
		'ActiveDocument.close	
 
		AppWord.ActiveDocument.SaveAs("c:\try.doc")	
    Set DocumentResultat = AppWord.ActiveDocument
    'Print the document.                     
    'DocumentResultat.PrintOut
 
	  'Save the document.    	  
    'DocumentResultat.SaveAs FileName=:"c:\Fusionok.doc"
    'DocumentResultat.Save 
    'DocumentResultat.Close
 
    ' Quit Word.   
		'MsgBox "Av quit"        
    'AppWord.Quit
 
Wscript.Quit

17/10/2006, 15h51
ced600
Je crois que cela marche parce que tu as enleve :
Code:

1 2 oAutoText.Delete