Discussion :

[blondelle]

Bonsoir
Je cree un publipostage d'enveloppe avec VB Word les donnees sont dans un classeur Excel, la fusion se fait correctement, mais j'ai une boite de dialogue qui s'ouvre et je n'arrive pas a enpecher cela, voici le code pour ouvrir la source de donnees

Code :

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

1
2
3
4
5
6
7
 
    ActiveDocument.MailMerge.OpenDataSource Name:="C:\tableau.xls", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _
        :="", SubType:=wdMergeSubTypeOther

Texte de la boite de dialogue

Sélectionner le tableau
Feuil1$ ......

Y a t'il une facon de ne pas afficher cette boite de dialogue, ou une autre facon d'ouvrir la source de donnees
si la totalite du code est necessaire je la posterais

[Heureux-oli]

Salut,

Tu ne nous donnes pas la version de tes logiciels.

Le tout est de savoir si ton document est un document principal de fusion, si c'est le cas, il n'est pas utile de repréciser la source.

http://heureuxoli.developpez.com/off.../publipostage/

[blondelle]

Merci de ta reponse Heureux-oli
Les testes on ete fait sous Windows XP pack2 et Office 2003, je poste 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
41
42
43
44
45
46
47
48
 
Sub Macro33()
'
' Macro33 Macro
' Macro enregistrée le 16/12/2008 par blondelle
'
ActiveDocument.MailMerge.MainDocumentType = wdEnvelopes '2
ActiveDocument.Envelope.DefaultSize = "DL"
ActiveDocument.Envelope.Insert Address:="", ReturnAddress:=""
    Selection.Font.Size = 8
    Selection.Font.Name = "Arial"
    Selection.TypeText Text:="blondelle jean-pierre"
    Selection.TypeParagraph
    Selection.TypeText Text:="chemin"
    Selection.TypeParagraph
    Selection.TypeText Text:="quartier"
    Selection.TypeParagraph
    Selection.TypeText Text:="30000 Ville"
    Selection.TypeParagraph
    Selection.TypeText Text:="France"
 
 ActiveDocument.Envelope.Address.Select
 
    Selection.MoveDown Unit:=wdLine, Count:=2 '5
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Prenom"
    Selection.TypeText " "
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Nom"
    Selection.TypeParagraph
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="ADRESSE"
    Selection.TypeParagraph
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="CODE_POSTAL"
    Selection.TypeText " "
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Ville"
 
    ActiveDocument.MailMerge.OpenDataSource Name:="C:\tableau.xls", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _
        :="", SubType:=wdMergeSubTypeOther '0 , 0
 
With ActiveDocument.Envelope.AddressStyle.Font
    .Bold = True
    .Name = "Times New Roman"
    .Size = 16
End With
ActiveDocument.MailMerge.Execute
End Sub

[Heureux-oli]

Salut,

C'est une macro enregistrée pour créer un document depuis un document vierge.

La solution serait de partir d'un vrai document de fusion et ensuite simplement lancer le publipostage.

[blondelle]

Si je defini mes champs dans un document et que je lance la fusion je devrais utiliser ce code, et apparement c'est cette portion de code qui ouvre la boite de dialogue

Code :

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

1
2
 
ActiveDocument.MailMerge.OpenDataSource .........

a moins qu'il y est une autre facon de faire mais la je ne l'ai pas trouvee

[Heureux-oli]

Salut,
Si c'est un document principal de fusion ce n'est pas de cette manière.

Il n'y a que la fusion à faire.

Code :

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

ActiveDocument.MailMerge.Execute

[blondelle]

Si je comprend bien il faut preparer une Enveloppe avec les champs d'insertion et sauvegarder le Document, pour effectuer le Mailling il faut ouvrir le Document et simplement lancer " ActiveDocument.MailMerge.Execute "

[Heureux-oli]

Correct !

Prendre un document de base et lui ajouter une source de données en VBA n'est pas suffisant. Il doit avoir été sauvegardé en tant que principal de fusion.

[blondelle]

Merci pour tes renseignements Heureux-oli

[blondelle]

Pour information on ne sais jamais c'est peut etre possible en VB pour Word, le code a ete traduit en C++ Builder et a l'aide d'un Thread je capture les parametres de la boite de dialogue puis je simule un click souris, et la il n'y a plus aucune intervention