Discussion :

[mathilde50]

Bonjour, bonjour à tous

Voilà bien longtemps que je ne suis pas venue sur le forum de developpez.com mais j'ai besoin d'aide. J'avais déjà posé cette question et on m'avait donné la réponse, cependant, après multiples recherches, il n'y a de trace nulle part de mon message

Mon problème est le suivant :

Dans ma base de donnée, j'ai une table avec un champ numéroauto de format "000". A partir de cette table, j'ai un formulaire d'enregistrement qui me permet d'exporter les données affichées à l'écran dans un modèle word avec signet. Jusqu'ici tout va bien mais lors de l'exportation des données, le format de mon numéroauto est perdu. Par exemple au lieu de m'afficher 001 ou 002, il m'affiche 1 ou 2.

Comment puis-je faire pour que le numéro affiché dans mon document word soit au format "000" ?

Je vous remercie de l'aide que vous pourrez m'apporter.

A bientôt

[LedZeppII]

Bonsoir,

tu peux peut-être exporter à partir d'une requête sur ta table.
Au lieu de mettre ton champ (numérique) dans la requête, tu le remplace par une expression:
NomChamp:Format([TonChampAuto]; "000")

Cela devrait changer le type du champ de Numérique en Texte

A+

[mathilde50]

Bonjour,

Merci beaucoup pour ta réponse qui serait en effet une solution. L'exportation de mes données se fait bien à partir d'une requête à l'origine. Cependant, ta solution ne convient pas car si je change le nom de mon champ, je vais devoir refaire tout mon code VB.

Je sais que quelqu'un m'avait donné une solution en entrant un critère dans ma requête au niveau de mon champ mais je n'arrive pas à retrouver la formule à entrer.

Quelqu'un a-t-il une autre idée?

Merci

[LedZeppII]

Bonjour,

tu peux conserver le nom du champ.
NomChamp : Format(LaTable.NomChamp; "000") (En SQL :Format(LaTable.NomChamp, "000") As NomChamp)

Tu peux aussi changer la propriété Format du champ dans la requête.
Quand tu es en mode modification de la requête, tu cliques sur le champ, clic-droit puis Propriétés.
Tu retrouves 'Format' comme dans la table.
Je ne l'ai jamais testé en exportation mais c'est peut-être ce dont tu parles.

A+

[mathilde50]

Bonsoir,

Malheureusement, cela ne fonctionne pas non plus.

Une autre idée peut- être???

Merci

[pgz]

Bonsoir,

Dans ma base de donnée, j'ai une table avec un champ numéroauto de format "000". A partir de cette table, j'ai un formulaire d'enregistrement qui me permet d'exporter les données affichées à l'écran dans un modèle word avec signet.

je suppose qu'il ne s'agit pas d'exportation, mais d'écriture dans un document Word en utilisant l'automation de l'application...

Dans ton code actuel, tu dois avoir du code style

Code :

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

wdapp.ActiveDocument.Bookmarks("MonSignet1").Range.Text = MonContrôle.Value

Si c'est le cas, il suffit de remplacer par:

Code :

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

wdapp.ActiveDocument.Bookmarks("MonSignet1").Range.Text = Format(MonContrôle.Value,"000")

Bon courage,

pgz

[mathilde50]

Bonjour

Merci pour ta solution pgz, cela fonctionne très bien.

Je vous remercie tous pour votre aide.

A très bientôt.

Mathilde