Discussion :

[dadou5821]

Bonjour à tous,

Je galère pas mal depuis plus de 24h à chercher une solution à mon problème sans réponse malheureusement.
J'ai un problème d'export d'un fichier .txt depuis une requête dans Access.

Je souhaiterai obtenir dans le fichier .txt final ça :
PHA|STUP201712070918154|BC|1|20171207092710|07/12/2017|154|9208417|00000009,000|NON||
(vous l'aurez compris c'est un fichier plat).

Je suis passé par un modèle d'exportation enregistré qui fonctionne bien mais lorsque je publie ma base access (.accde puis fractionnement de la base en frontale/dorsale), l'export ne fonctionne plus, j'ai un message d'erreur comme si Access ne retrouvait plus le modèle enregistré d'export avec mise en forme.

Du coup j'ai modifié mon code vba de la sorte :
DoCmd.TransferText acExportDelim, , "Nom Requete", "CHEMIN\test.txt", True

Mon fichier schema.ini est défini par :
[test.txt]
ColNameHeader=False
CharacterSet=1252
Format=Delimited(|)
Col1=Expr1 Char Width 255
Col2=Expr2 Char Width 255
Col3=Expr5 Char Width 255
Col4=Expr6 Char Width 255
Col5=Expr8 Char Width 255
Col6=Service Integer
Col7=UCDs Integer
Col8=Expr14 Char Width 255
Col9=Expr12 Char Width 255

Le résultat de ce code est le suivant :
"PHA"|"STUP201712070930154"|"BC|1"|"2017120709419"|"07/12/2017"|154|9208400|"00000003,000"|"NON||"
Mes champs sont tous entourés par ", ce que je ne veux pas bien sur.

Comment faire pour supprimer les " ?
A noter que la plupart de mes champs qui sortent de la requête sont une concaténation de plusieurs informations donc dans la requête je n'ai pas trop le choix que de mettre une valeur de champ de type Expr1: "PHA"
Seuls les champs 154 et 9208400 viennent directement d'un champ d'une table et ne sont pas entourés de ".

Je ne sais plus quoi faire, j'ai essayé de modifié le caractère Format=Delimited de mon fichier ini sans succès.

Avez vous des idées?

Je vous remercie vivement par avance

[marot_r]

Bonjour.

D'après les posts que j'ai vu on semble avoir peu de contrôle sur les exports via shcema.ini.

Lassé de me battre avec Access pour des exports aussi simples, j'en suis venu à les programmer moi-même.

Ici un exemple simple d'export de fichier texte basé sur le type des champs.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub ExporteTexte()
    Dim numFic As Long: numFic = FreeFile()
    Dim nomFic As String: nomFic = "X:\UnChemin\TonFichier.txt"
    Const SEPARATEUR_CHAMP As String = "|"
    Dim enr As String
    Open nomFic For Output As #numFic 'ouvre le fichier résultat
 
    Dim db As DAO.Database: Set db = CurrentDb
    Dim r As DAO.Recordset: Set r = db.OpenRecordset("NomTaSource", dbOpenSnapshot)
    Dim c As DAO.Field
    dim v as string
 
    Do While Not r.EOF
 
        enr = ""
 
        For Each c In r.Fields
 
            If enr <> "" Then
                enr = enr & SEPARATEUR_CHAMP
            End If
 
            Select Case c.Type
                Case dbText
                    enr = enr & c
 
                Case dbDouble
                    v=Format(c, "0.0000")
                    v=replace(v, ".", ",") 'Au cas où on est sur une machine qui utilise le point comme virgule.
                    enr = enr & v
 
                Case dbDate
                    enr = enr & Format(c, "yyyy\-mm\-dd")
 
                Case Else
                    Call Err.Raise(5, , Error$(5) & " - Type non géré.")
 
            End Select
 
        Next c
 
        Print #numFic, enr
        r.MoveNext
    Loop
 
    r.Close: Set r = Nothing
    db.Close: Set db = Nothing
 
    Close #numFic 'Ferme le fichier résulat
End Sub

Comme c'est du code tu es libre de traiter chaque champ ou type de champ comme tu l'entends et tu es sur du résultat que tu vas avoir quelque soit les paramétrages de la machine.

A+

[dadou5821]

Merci pour l'astuce+++

C'est un bon moyen d'arriver à ses fins en effet.
Le resultat est très bon dans l'ensemble mais j'ai perdu les deux champs qui provenaient directement d'une table sans retouche (et qui étaient appelés dans la requête) à savoir :


PHA|STUP201712070918154|BC|1|20171207092710|07/12/2017|||00000009,000|NON||

Pour rappel le resultat final doit etre :
PHA|STUP201712070918154|BC|1|20171207092710|07/12/2017|154|9208417|00000009,000|NON||

J'ai analysé le code et je ne vois pas ce qui cloche puisque j'ai bien appeler la requete en question dans la partie db.OpenRecordset("NomTaSource", dbOpenSnapshot)
et le déroulement suivant

Code :

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

1
2
3
4
5
6
7
enr = ""
 
        For Each c In r.Fields
 
            If enr <> "" Then
                enr = enr & SEPARATEUR_CHAMP
            End If

doit bien intégrer les deux champs en question.
J'ai loupé quelque chose?

[marot_r]

Bonjour.

À priori oui, puisque la collection Fields contient la liste de tous les champs de la source et si tu as des zones "vides" c'est qu'ils ont bien été vus.
L'explication la plus logique est que Access les voient nuls ou que la conversion en chaîne de caractère ne s'est pas fait.

Comme tu as peu de champs, exécute le code en mode pas à pas (en appuyant sur [f8]) et vois ce qui se passe pour ces champs en particulier.
Tu peux voir le contenu du champ en pointant avec la souris sur la variable c.
Tu peux voir la progression en ajoutant debug.print c.name sur la ligne juste après le for each c.
Cela va afficher les noms dans la fenêtre d'exécution immédiate ([ctrl][g] si elle n'est pas affichée).
Penser à le mettre l'instruction en commentaire pour la prod.

A+

[tee_grandbois]

Bonsoir marot_r,
les types dbByte , dbInteger, dbLong, dbCurrency et dbSingle ne sont pas gérés dans tes Case c'est peut-être l'explication ...

[marot_r]

Bonjour tee_grandbois

Si, ils sont gérés. Ils génèrent une erreur explicite :-).

Code :

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

1
2
 Case Else
                    Call Err.Raise(5, , Error$(5) & " - Type non géré.")

Donc à moins que cette portion de code ait été enlevée le problème ne vient pas de là.

A+

[tee_grandbois]

Si, ils sont gérés. Ils génèrent une erreur explicite :-).

je voulais dire : ils ne sont pas gérés de manière à alimenter le fichier texte ... et les 2 champs manquants sont de type Integer

[dadou5821]

Bonjour,

en effet ca provient de cette partie de code :

Case Else
Call err.Raise(5, , Error$(5) & " - Type non géré.")

Lorsque je teste ma procédure et qu'elle arrive à mon 1er champ à problème j'ai un message d'erreur de type :
Erreur d’exécution '5' : Argument ou appel de procédure incorrect - Type non géré.

J'ai regardé le type de format pour mes champs.. entier long

J'ai donc rajouté une lien pour gérer ces deux champs numérique : dbLong
Et ça fonctionne !!

Merci pour l'astuce et pour la rectification du type de champ.
Vous m'enlevez un gros poids et pour de futurs exports txt je pense que ce bout de code va en aider plus d'un, MERCI