Discussion :

[FCL31]

J'ai un petit souci :

Sur Word je récupère des données depuis Access.
J'ai un champ en chiffres que je veus mettre en lettres avec le code champ suivant:

Code :

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

{MERGEFIELD « Montant »\*CardText}

Mais il y a un problème : ça ne tient pas compte des décimales

729,11 devient sept cent vingt-neuf.
Il me manque donc les décimales

de plus, s'il y a moyen d'écrire sept cent vingt-sept euros et onze cts se serrait cool

Comment faire ???

[Sepia]

Salut FC31,

En effet, Word ne prend pas en compte les décimales (dans ce cas) ==>

Code :

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

1
2
 
   { MERGEFIELD « Montant »\*CardText }

doit s'écrire

Code :

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

   { MERGEFIELD "Montant" \*CardText } euros et {=({ MERGEFIELD "Montant" } - INT({ MERGEFIELD "Montant" }))*100 \* CardText } cts

J'ai mis le texte en vert, les champs de 1er niveau en orange et les champs inclus dans les champs en rouge pour les mettre en évidence

@+

[FCL31]

Merci de ta réponse

J'ai pas essayé encore (je pourrais le faire que demain)

Mais comment ne pas écrire "cts" si il n'y a pas de décimale
Et si il n'y a pas de décimal il serrai aussi inutile d'écrire "et"


Je vais d'abord essayer ton code et je verrais plus tard

[Heureux-oli]

Salut,

Avec des champs If sur le résultat des décimales.

[Sepia]

Salut FC31,

N'oublie pas alors de gérer le cas de 1 euro (sans s)

@+

[FCL31]

[code] { MERGEFIELD "Montant" \*CardText } euros et {=({ MERGEFIELD "Montant" } - INT({ MERGEFIELD "Montant" }))*100 \* CardText } cts

J'ai essayé mais je sais pas pourquoi (peut être parce que je ne maitrise pas les champs dans Word) mais sa marche pas : j'ai du mal faire un truc

Les champs venant d'une requête d'Access, j'ai rajouté un champ dans la requête:

Code :

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

Expr1: ([Mt_Montant]-Ent(Mt_Montant]))*100

et insèrer le champ dans Word avec

Code :

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

\*CardText

et sa marche.

J'ai donc

Code :

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

  {MERGEFIELD "Mt_Montant"\*CardText} euros et { MERGEFIELD "Expr1"\*CardText } cts

Par contre si les décimale = "00", j'ai "zéro cts" mais c'est pas grave on ferra avec

Mais si toutefois, vous auriez la solution avec If sa m'intéresse beaucoup

N'oublie pas alors de gérer le cas de 1 euro (sans s)

c'est pas grave, de toute façon comme vous avez pu le constaté je suis nul en orthographe

PS-Je met pas de suite pour avoir (j'espère) une réponse principalement sur le IF

[Heureux-oli]

Salut,

Peut-être là :
http://heureuxoli.developpez.com/off...amps/#LIV-F-12

[Sepia]

Salut FCL31,

J'ai essayé mais je sais pas pourquoi (peut être parce que je ne maitrise pas les champs dans Word) mais sa marche pas : j'ai du mal faire un truc

Peut-être n'as-tu utiliser l'instruction "Insertion > Champ" qui insère les fameuses pseudo-parenthèses ouvrantes et fermantes ? C'est souvent la source du problème car j'ai ré-essayer mon code (pour être sûr), il fonctionne (sur mon Word).

Tu as modifé la source, ce qui est aussi une solution (mais toujours réalisable). Si tu désires le fichier avec les champs, je peux te le mettre ne copie à titre d'information.

@+

[FCL31]

Merci

Peut-être n'as-tu utiliser l'instruction "Insertion > Champ" qui insère les fameuses pseudo-parenthèses ouvrantes et fermantes ?

J'ai fait avec "Ctrl + F9"

Si tu désires le fichier avec les champs, je peux te le mettre ne copie à titre d'information.

Je veux bien STP

[Sepia]

Salut,

voilà un exemple.

@+

[FCL31]

Merci Sepia je vais regarder ton exemple minutieusement et je le garde de coté.