Discussion :

[marot_r]

Bonjour à tous et merci de votre temps et de votre aide.

J'ai un document de publipostage comportant une centaine de champs et pas mal de code conditionnel complexe.

J'ai lors de mon publipostage une erreur de calcul sur chaque enregistrement mais je n'arrive pas à localiser la source de ce message.

Mes données imprimées m'apparaissent correctes, il n'y a pas d'indication dans le document créé par la fusion d'où se produit l'erreur.

Je ne vois pas de faute dans le code conditionnel mais comme il est VRAIMENT complexe (nombreux IF imbriqués) ce n'est pas évident de repérer les problèmes.

Je pourrais recopier ma logique champ par champ dans un document vierge et tester après chaque modif mais ça va me prendre beaucoup de temps et je ne dispose pas de ce temps.

Quelqu'un a un truc pour trouver la source du problème ?

Peut-on exécuter la fusion en mode débuggage ?

A+

[Heureux-oli]

Salut,

Dans les champs, il n'est pas possible de faire un debug.

Par contre, il n'est pas nécessaire de les imbriquer.

{If }{IF }{If }

seule la condition remplie sera affichée.
On peut dès lors trouver plus rapidement l'erreur.

[ValPhi]

Salut,
Lorsque j'ai des erreurs semblables à celles que tu évoques, souvent, l'origine des anomalies se trouvent :

• dans un espace manquant (noté par & ci-après { CHAMPFUSION Machin&}) ;
• une mauvaise interprétation des commutateurs ;
• une différence dans le séparateur décimal déclaré dans Windows (options régionales du Panneau de Config) et celui utilisé dans tes formules de calcul.

J'espère que ça pourra t'aider à localiser ton erreur.
a+

[marot_r]

merci à vous de ces tuyaux.

J'ai un peu l'impression de revenir à mes débuts en informatique, il y a 20 ans où le seul outil de debugage était 1) tes yeux et une relecture TRÈS attentive de ton code et 2) des impressions à l'écran des trucs qui t'interresse.

Pour les IF imbriqués, malheureusement c'est nécessaire car j'ai des trucs du genre si A et B alors C et ni mon précésseur ni moi ne sommes arrivé à faire fonctionner les OR() et AND() de Word qui ont une syntaxe qui rappèle COBOL et qui les rend aussi illisibles que des IF imbriqués.

A+

[ValPhi]

Si ta série de champs de fusion n'est pas top secret, joins-la à ce post, qu'on puisse essayer de trouver l'anomalie.

J'ai déjà bossé sur des champs de fusion un peu alambiqués. Mets également une partie de ta source de données.

A ce propos es-tu sûr de l'intégrité de cette dernière ? L'erreur se produit bien sur l'enregistrement 1 ?

[marot_r]

Merci de ta proposition mais sans être top secrètes ces données sont néanmoins hautement confidentielles et je ne peux les transmettre à l'extérieur.

Ma source de données est correcte et je pense que je sais où se produit l'erreur. J'ai une addition de champs de fusion dont certains peuvent être nuls.

Par contre as-tu réussi à utiliser OR et AND ? Même si leur syntaxe est VRAIMENT LOURDE cela simplifierait la logique de traitement.

A+

[Heureux-oli]

Salut,

Pour les And et Or, il semblerait que ce soit applicable aux versions jusque 98.

Pour les suivantes, il n'est jamais fait mention de ces possibilités de fonction logique.

J'ai essayé avec les exemples donnés par MS sur 2003 et 2010 et ça ne fonctionne pas.

[ValPhi]

Salut,
C'est souvent sur les opérations avec des champs de fusion que j'avais des soucis également.

Pas d'utilisation de AND et OR de mon côté : je contourne ce manque par des imbrications de IF à faire des dépressions !!

[Sepia]

Salut Marot-r,

Pour les And et Or, il semblerait que ce soit applicable aux versions jusque 98.

Pour les suivantes, il n'est jamais fait mention de ces possibilités de fonction logique.

J'ai essayé avec les exemples donnés par MS sur 2003 et 2010 et ça ne fonctionne pas.

Chez moi aussi ça ne fonctionne pas

@+

[marot_r]

En théorie cela devrait marcher avec W2000 mais en pratique cela ne génère pas d'erreur mais cela semble aléatoire et de toute façon si ce n'est plus supporté après ça perd de son intérêt.

A+

[marot_r]

Grace à une de mes collègue j'ai localisé et éliminé le problème. Un de mes FORMTEXT était corrompu. Je m'en suis apperçu lorsque j'ai essayé de modifier ses propriétés.

Pour ceux que cela interesse voici le code que j'ai fait pour créer un document par champ de fusion et vérifier que la fusion se fait correctement pour ce champ.

Le code n'est pas un chef-d'oeuvre de programmation mais il fait le travail.

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
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
84
85
86
87
88
89
90
91
92
93
94
95
96
Option Explicit
 
Private Sub TesterPublipostageChampParChamp()
    'Cette procédure crée un document par champ de fusion et le fusionne
    Dim o As Object
    Dim s As Shape
    Dim f As Field
    Dim lf As String
 
    On Error GoTo Err_ListField
 
    Dim reponse As Integer
    Dim documentTest As String
    Dim documentFusion As String
    Dim documentFusionne As String
    Dim d As Document
 
    documentTest = ActiveDocument.Name
 
    For Each f In Documents(documentTest).Fields
        lf = Replace(Replace(f.Code, Chr(21), "}"), Chr(19), "{")
 
        If lf = " FORMTEXT " Then GoTo NouveauChamp
        If lf = " FORMCHECKBOX " Then GoTo NouveauChamp
 
        Debug.Print f.Index; "/"; Documents(documentTest).Fields.Count, lf
        f.Select
        Selection.Copy
        Documents.Add DocumentType:=wdNewBlankDocument: documentFusion = ActiveDocument.Name
        Selection.Paste
 
        ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
        ActiveDocument.MailMerge.OpenDataSource Name:= _
            "C:\MonChemin\MaBD.mdb", _
            ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
            AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
            WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
            Format:=wdOpenFormatAuto, Connection:="QUERY rMaRequete", SQLStatement:= _
            "SELECT * FROM [rMaRequete]", SQLStatement1:=""
 
        'Déclenche la fusion
        With ActiveDocument.MailMerge
            .Destination = wdSendToNewDocument
            .MailAsAttachment = False
            .MailAddressFieldName = ""
            .MailSubject = ""
            .SuppressBlankLines = True
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
            .Execute Pause:=True
        End With
 
        'Cherche le nom du document fusionné
        For Each d In Documents
 
            If d.Name Like "Lettres types*" Then
                documentFusionne = d.Name
                Exit For
            End If
 
        Next d
 
        Documents(documentFusionne).Activate
 
        'Demande à l'utilisateur si cela c'est bien passé
        reponse = MsgBox("Fusion sans erreur (" & f.Index & "/" & Documents(documentTest).Fields.Count & ")", vbQuestion + vbYesNo + vbDefaultButton2)
 
        If reponse = vbYes Then
            'Ferme le documemt de fusion
            Documents(documentFusion).Close wdDoNotSaveChanges
        End If
 
        'Ferme le document fusionné
        Documents(documentFusionne).Close wdDoNotSaveChanges
 
NouveauChamp:
        Documents(documentTest).Activate
    Next f
 
NextShape:
 
Exit_ListField:
    Exit Sub
 
Err_ListField:
    Select Case Err.Number
        Case 5917
            Resume NextShape
 
        Case Else
            MsgBox "Erreur : " & Err.Number & ", " & Err.Description
    End Select
 
End Sub

A+