Discussion :

[djibril]

Bonjour,

J'ai un document Word 2003 dans lequel j'ai des champ de publipostage. Je souhaiterai faire une condition particulière, mais je ne sais pas comment l'écrire.
J'ai un champ datedebut et un champ datefin. Je souhaiterai faire ceci :
Si datedebut > date du jour < date de fin => alors j'affiche un texte dédié
sinon j'affiche un autre texte.

Avez-vous une idée ?

[Heureux-oli]

Salut,


Je suppose que c'est
Date de début < Date du jour < date de fin

Il faut plusieurs conditions imbriquées.

Ctrl + F9 pour insérer un champ, il est matérialisé par deux {} qui ne sont pas de simples crochets.

La syntaxe est :

Code :

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

{ If {MergeFields Début} < {Date}  "Valeur si vrai" "Valeur si faux"}

Les valeurs si vrai ou faux peuvent à leur tour être remplacées par des champs.
Il n'y a pas de limite à cette imbrication, mais plus il y en a, plus la gestion est complexe.

Code :

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

{ If {MergeFields Début} < {Date}  {If {Date} < {MergeFields Fin} "Valeur si vrai" "Valeur si faux"} "Valeur si faux"}

Dans ce dernier exemple, si le premier test est vrai, on remplace la valeur renvoyée par une autre condition.

http://heureuxoli.developpez.com/office/word/champs/

[djibril]

Ma date début = 01/06/2012
Ma date fin = 31/12/9999
Date courant = 26/01/2015
et mon, résultat est erroné

code :

Code :

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

1
2
3
4
5
{MergeFields Début} => 01/06/2012
{MergeFields Fin} => 31/12/9999
{DATE \* MERGEFORMAT} => 26/01/2015
 
{ If {MergeFields Début} < {DATE \* MERGEFORMAT}  {If {DATE \* MERGEFORMAT} < {MergeFields Fin} "OK" "APRES"} "AVANT"}

Résultat: APRES au lieu de OK

[Heureux-oli]

Salut,

J'ai fait quelques tests.
J'obtiens le même résultat, Word cafouille un peu avec les dates.

Une solution viable est de mettre un masque sur les date pour les tester.

Code :

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

{MergeFields Début \@ yyyyMMdd }

On convertit alors la date en nombre et on peut les comparer.

Pour la date d'aujourd'hui, on obtient 20150126.

[djibril]

Merci pour ta réponse, mais toujours un résultat erroné. Surement du au fait que les champs {MergeFields Début \@ yyyyMMdd } me rendent toujours une date de type jj/mm/aaaa alors que {Date \@ yyyyMMdd } fonctionne.

[Heureux-oli]

Salut,

Pour le fait que le champ de publipostage ne soit pas formaté, je n'ai pas de réponse.
LE mettre dans un signet n'est pas une bonne idée, les signets ne sont pas propagés dans un publipostage.

[djibril]

Pour le fait que le champ de publipostage ne soit pas formaté, je n'ai pas de réponse.

C'est fou comme le fait d'être dépendant d'un logiciel de m*** me pose des soucis. Il n'y a pas moyen de splitter comme dans tout langage de programmation ? Histoire de convertir jj/mm/aaaa en aaaammjj pour effectuer la comparaison ?

[Heureux-oli]

Salut,

Si tu peux coder, c'est possible d'ajouter un format à une date pour l'avoir sous une forme différente, mais il faut m'en dire un peu plus sur ce que tu faire.

[djibril]

Toujours la même chose .

Mon but est de comparer les dates pour afficher le texte adéquat. Vu que la valeur des champs ci-dessus n'est pas au format date, je cherche une parade pour réussir à comparer mes dates vu que {xxxxxx \@ yyyyMMdd } ne fonctionne pas sur ma valeur de champ.

[Heureux-oli]

Salut,

on peut toujours tenter de le faire sur l'Event BeforeMailMerge.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Public WithEvents App As Word.Application
 
Sub Document_Open()
Set App = Word.Application
 
End Sub
'---------------------------------
 
 
Private Sub App_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
 
End Sub

Et dans ce cas, tu peux faire ton test et affecter une valeur à ton enregistrement.