Discussion :

[elkhy]

Bonjour à tous, au forum...

Désolé si ma question n'est pas en rapport avec le forum mais peut-être puis-je trouver une solution ici...

Voici mon problème :

J'ai extrait d'une requête des données que je voudrai mettre en forme dans un fichier .txt

Ce fichier .txt a un format bien définit où toutes les données sont concaténées.

EX de mon fichier (extraction de ma requête):

A 5235623 Y LLLL -333,596 96,65
B 8998785 Y IIII 21,588.22 -66,5

Ce que je voudrai faire :

Un fichier .txt où chaque champ est définit par une position et une longueur
Champ1 : pos 1 longueur: 1 (=A dans mon exemple)
Champ2 : pos 2 longueur: 7 (=5235623 dans mon exemple)
etc etc
Champ5 : pos 13 longueur: 1 signe 16 chiffres et 3 décimal
Champ6 : pos 33 longueur: 1 signe 16 chiffres et 3 décimal

A5235623YLLLL-00000000000003335960000000000000096650
B8998785YIIII21000000000000058822-00000000000000066500

Je n'arrive pas à passer de la valeur de -333,596 à -0000000000000333596.

Est-ce qu'une macro dans access peut m'aider à faire cela ou une requête ou du vba ?

Merci d'avance à tous pour vos réponses.

[marot_r]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
public function FormaterNombre(prmNombre as double) as string
   dim result as string
 
   if prmNombre < 0 then
        result=format$(prmNombre, string(16,"0") & ".000")
     else
        result=format$(prmNombre, string(17,"0") & ".000")
   end if
 
   'Supprime le separateur décimal
   result=left(result,17) & right(result, 3)
   FormaterNombre=result
end function

Mets le bout de code ci-dessus dans un module.

Fait une requète en utilisant Format() pour les cas simples (ex les chaines) et utilise FormaterNombre() pour ton cas à 16 chiffres et 3 décimales.

Après soit en VBA, soit avec une macro (mais je recommande fortement VBA) fait ExporText.

(Note on pourrait faire la même chose avec un iif() directement dans la requète mais je trouve le VBA plus lisible.)

A+