Discussion :

[bostoli]

Bonjour à tous et bravo pour vos aides qui m'ont sauvé plus d'une fois. Aujourd'hui, petit problème : je dois faire une exportation d'un module facturation dans Access vers un logiciel de comptabilité.

Il faut générer un fichier de lien en .txt. Jusque là tout va bien.

Le hic, c'est que les champs dans le lien.txt sont en longueur fixe , et non pas séparés par des , ou ;.

Pour les chiffres, c'est 17 chiffres,2 chiffres : donc 852.23 devient 00000000000000852.23. Là c'est bon, j'ai la solution : Format([TOTAL HT FACT], "00000000000000000.00").

QUESTION 1
Ca ce complique pour le nom client, il est sur une longueur fixe de 50 caractères, donc le client DUPONT devient dans l'écriture du lien DUPONT suivi de 44 espaces. Comment je fais pour écrire cela, sachant que ça peut être 44, comme 40 ou 30 espaces à rajouter, pour arriver à 50 caractères au total.

QUESTION 2
Deuxième question, pour le n° de facture, il faut que je fasse sauter les 3 premiers caractères et ne garde que les 6 derniers.

Voilà, encore merci.

[bostoli]

Pour info, mon code est actuellement le suivant :

Private Sub Lancerlien_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\lien.txt", True)
a.WriteLine [NUMFACTCOMPLET] & "411" & [CODE COMPTA CLIENT] & " " & Format([DATE FACT], jjmmaa) & [NOM CLIENT] & Format([TOTAL HT FACT], "00000000000000000.00") & Format([TOTAL HT FACT], "00000000000000000.00")
a.Close
End Sub

[=JBO=]

Bonjour,

QUESTION 1
Ca ce complique pour le nom client, il est sur une longueur fixe de 50 caractères, donc le client DUPONT devient dans l'écriture du lien DUPONT suivi de 44 espaces. Comment je fais pour écrire cela, sachant que ça peut être 44, comme 40 ou 30 espaces à rajouter, pour arriver à 50 caractères au total.

Code :

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

Left([NOM CLIENT] & String(50, " "), 50)

QUESTION 2
Deuxième question, pour le n° de facture, il faut que je fasse sauter les 3 premiers caractères et ne garde que les 6 derniers.

Code :

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

Right([NUMFACTCOMPLET] , 6)

[bostoli]

Je n'aurai qu'un mot GRANDIOSE
Mille fois merci JBO.