Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Copie de données numériques dans Word

Copie de données numériques dans Word

2 réponses
Avatar
Zepo
A partir d'un formulaire, je souhaiterais copier des=20
donn=E9es num=E8riques dans Word. J'utilise la m=E9thode=20
classique suivante :
Dim W_App As Object
Set W_App =3D CreateObject("Word.Application")
With W_App
.Visible =3D True
.Documents.Add ("Resume.dot")
W_App.ActiveDocument.Bookmarks("Bk6").Select
W_App.Selection.InsertAfter Forms!FORM_LISTE!
PRIX_TOTAL.Value

Mon probl=E8me vient du fait que les chiffres ins=E9r=E9s dans=20
word ne garde pas leur format sp=E9cifique. Par exemple=20
1836,00 dans mon formulaire devient 1836 dans mon document=20
Word. Existe t-il un moyen pour exporter dans Word en=20
gardant les formats de mes chiffres ? Ou un autre moyen=20
permettant =E0 Word d'=E9crire syst=E9matiquement les chiffres=20
ins=E9r=E9s avec deux d=E9cimales ?

Merci d'avance
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.

essaie avec :
W_App.Selection.InsertAfter format(Forms!FORM_LISTE!PRIX_TOTAL.Value,
"#0,00")

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Zepo" a écrit dans le message de
news:09a501c3bef1$3982e020$

A partir d'un formulaire, je souhaiterais copier des
données numèriques dans Word. J'utilise la méthode
classique suivante :
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Add ("Resume.dot")
W_App.ActiveDocument.Bookmarks("Bk6").Select
W_App.Selection.InsertAfter Forms!FORM_LISTE!
PRIX_TOTAL.Value

Mon problème vient du fait que les chiffres insérés dans
word ne garde pas leur format spécifique. Par exemple
1836,00 dans mon formulaire devient 1836 dans mon document
Word. Existe t-il un moyen pour exporter dans Word en
gardant les formats de mes chiffres ? Ou un autre moyen
permettant à Word d'écrire systématiquement les chiffres
insérés avec deux décimales ?

Merci d'avance
Avatar
Zepo
Cela fonctionne parfaitement merci beaucoup

-----Message d'origine-----
Bonjour.

essaie avec :
W_App.Selection.InsertAfter format(Forms!FORM_LISTE!
PRIX_TOTAL.Value,

"#0,00")

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"Zepo" a écrit dans
le message de

news:09a501c3bef1$3982e020$

A partir d'un formulaire, je souhaiterais copier des
données numèriques dans Word. J'utilise la méthode
classique suivante :
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Add ("Resume.dot")
W_App.ActiveDocument.Bookmarks("Bk6").Select
W_App.Selection.InsertAfter Forms!FORM_LISTE!
PRIX_TOTAL.Value

Mon problème vient du fait que les chiffres insérés dans
word ne garde pas leur format spécifique. Par exemple
1836,00 dans mon formulaire devient 1836 dans mon document
Word. Existe t-il un moyen pour exporter dans Word en
gardant les formats de mes chiffres ? Ou un autre moyen
permettant à Word d'écrire systématiquement les chiffres
insérés avec deux décimales ?

Merci d'avance


.