Discussion :

[Goose-]

Bonjour,

Pourriez-vous m’éclairer sur une situation ennuyeuse ?

Je fais du publipostage à partir d’Access vers Word.

Mes montants apparaissent avec deux décimales sous Access 2010 (Toutes limitées à deux dans les options) mais lors de la mise en page automatique sous Word 2010, les montants apparaissent avec 5 voire 8 décimales…

Dans mon document Word, j’utilise les signets « | » , pas les codes « { } ».

Y a-t'il une option dans Word qui limite les décimales du document à « deux » ?

Cordialement,

[78chris]

Bonjour


Il faut utiliser un commutateur : afficher les codes de champ (Alt F9) et ajouter

\# "# ##0,00" dans le code de chaque champ concerné : exemple {MERGEFIELD Prix \# "# ##0,00"}

[Goose-]

Merci pour ta réponse rapide

Le problème est que je n'utilise pas les codes { }

J'utilise Insertion - Signet pour les champs automatiques...

[78chris]

Bonjour

Tu utilises les signets via VBA ?

Si oui il faut arrondir avant de valoriser.

Sinon précise car je ne vois pas le chemin que tu utilises.

[Goose-]

Sous Access 2010 j'utilise le VBA comme ceci :

Code :

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

1
2
3
4
.GoTo , , , "Montant3"
    If Err = 0 Then .insertafter Forms!F_Dossiers!SousTotalCapFr Else Err.Clear
.GoTo , , , "Telephone"
    If Err = 0 Then .insertafter Forms!F_Dossiers!Telephone Else Err.Clear

Puis dans Word 2010 je clique sur Insertion, Signet, j'encode Montant3 ou Telephone et ajouter aux endroits souhaités.

Tout simplement ;-)

[78chris]

Bonjour

Remplace

Code :

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

1
2
3
4
5
insertafter Forms!F_Dossiers!Telephone 
par 
round(insertafter Forms!F_Dossiers!Telephone,2) 
ou par 
format(insertafter Forms!F_Dossiers!Telephone,"# ##0,00")

quoique dans ton cas ce n'est sans doute pas sur le téléphone que cela s'applique...

[Goose-]

Lol effectivement

J'ai le message suivant :

erreur de compilation
Attendu séparateur de list ou )

[78chris]

Re

Ce serait plutôt remplacer

Code :

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

1
2
3
4
5
.insertafter Forms!F_Dossiers!Telephone 
par 
.insertafter round(Forms!F_Dossiers!Telephone,2) 
ou 
.insertafter format(Forms!F_Dossiers!Telephone,"# ##0,00")

[Goose-]

Woaw ! Génial !

Vraiment, merci beaucoup !



C'est une aide vraiment très précieuse

A bientôt