Discussion :

[LeLaid]

Salutations à toutes et tous,

J'ai un petit souci avec l'utilisation de la commande DoCmd.TransferText dans Access 97. Je vous explique:

J'ai 54 tables à exporter. Ces tables change de "layout" (retrait et/ou ajout de champs) +/- tous les 2 mois. Je dois les exporter sous le format suivant:
Fichier .txt
Delimiter: ,
Text qualifier: {none}
Decimal symbol: .

NB: Je dois charger les données dans une DB oracle en utilisant le SQL loader.

Actuellement, je n'ai pas trouvé d'autre moyen que de définir 54 "export specifications" que j'utilise avec la commande TransferText. Vous imaginez bien le boulot que représente la modification de 54 specs lors du changement de layout.

Access prévoit l'utilisation de format d'export "par défaut qui sont les suivant:
Fichier .txt
Delimiter: ;
Text qualifier: "
Decimal symbol: ,

Est-il possible soit de modifier ces valeurs par défaut ou de définir de manière automatisée des specs d'export (les tables systèmes qui les conservent ne sont pas modifiables).

Merci d'avance à celle ou celui qui pourra m'aider.

P.

[cafeine]

Crée une fonction d'export personnalisée qui parcourt un recordset, ainsi tu auras le contrôle sur ton output de A à Z.

[LeLaid]

Aurais-tu un petit exemple?
Je ne vois pas du tout par ou commencer.
Comment en VBA puisje écrire une fonction qui écrit dans un fichier texte?
Je n'ai jamais fait cela. Pourrais-tu me mettre sur la piste? Je me débrouillerai en suite.

P.

[cafeine]

un exemple ... c'est une très très vieille fonction chez moi, donc je n'ai pas fait la déclaration de variables.

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
Public Function XportFileFromQuery(ByVal Fic As String)
Dim BD As Database
Dim rec As Recordset
Set BD = DBEngine.Workspaces(0).Databases(0)
 
Check = DCount("[UnChamp]", "LaTable")
 
If Check > 0 Then
    Set rec = BD.OpenRecordset("LaTable", DB_OPEN_DYNASET)
    rec.MoveLast
    Nb = rec.RecordCount
    Reset
    Fic1 = 1
    Open Fic For Output As #Fic1
    NbChamps = rec.Fields.Count
    rec.MoveFirst
 
    For i = 1 To Nb
        CurRec = ""
        For j = 0 To NbChamps - 1
            If rec.Fields(j).Type = dbBoolean Then
                If rec.Fields(j) = True Then
                    CurRec = CurRec & 1 & ";"
                Else
                    CurRec = CurRec & 0 & ";"
                End If
            Else
                If InStr(rec.Fields(j), Chr(13) & Chr(10)) Then
                    CurRec = CurRec & Replace(rec.Fields(j), Chr(13) & Chr(10), "¶") & ";"
                Else
                    CurRec = CurRec & rec.Fields(j) & ";"
                End If
            End If
        Next j
        CurRec = Left(CurRec, Len(CurRec) - 1)
        Print #Fic1, CurRec
        rec.MoveNext
    Next i
    Reset
End If
 
End Function

[Tofalu]

Pour remettre un peu le code de cafeine au gout du jour, tu peux aussi utiliser les objets TextStrem de la classe FileSystemObject (Réference Microsoft Scripting Runtime). Ces objets manipulent avec aisance les fichiers textes. Fais une recherche avec les mots clés Fichier Texte sur le forum Access et Vb et tu trouveras plein d'exemple. N'oublies pas aussi la FAQ, elle regorge de conseils

[LeLaid]

Merci pour toutes ces infos.
Je teste tout ça et reviendrai en cas de besoin.

P.

[LeLaid]

Merci pour le coup de main. J'ai opté pour la deuxième solution. Je ne ferai jamais assez l'éloge de ce site.

Pour partager, voici le code que j'ai utiliser:

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
51
52
53
54
55
56
57
58
'Création d'un fichier texte (.txt) portant le même nom que la table, pour chaque table présente dans la db Access. 
'Format utilisé pour le SQL loander d'oracle:
'Séparateur: ,
'Séparateur décimal: .
'Qualificateur de texte: rien
 
Public Sub GenerateFiles()
    Dim tdf As TableDef
    Dim mDb As Database
 
    Set mDb = CurrentDb
 
    For Each tdf In mDb.TableDefs 'Parcours des tables
            Call CreateDataFile(tdf.Name, "H:\User\SQL_LOADER\Dat\" & tdf.Name & ".txt")
        End If
    Next tdf
End Sub
 
Public Sub CreateDataFile(eTableName As String, eFileName As String)
    Dim Fichier As FileSystemObject
    Dim Texte As TextStream
    Dim mDb As Database
    Dim mRs As Recordset
    Dim fld As Field
    Dim tdf As TableDef
    Dim i As Long
    Dim Test As Long, FldNum As Long
 
    Set mDb = CurrentDb
    Set mRs = mDb.OpenRecordset(eTableName, dbOpenDynaset, dbSeeChanges, dbPessimistic)
 
    Set Fichier = CreateObject("Scripting.FilesystemObject")
    Set Texte = Fichier.CreateTextFile(eFileName)
    Set tdf = mDb.TableDefs(eTableName)
 
    If mRs.BOF And mRs.EOF Then
        Exit Sub
    End If
 
    mRs.MoveLast
    mRs.MoveFirst
 
    For i = 1 To mRs.RecordCount 'Parcours des enregistrements de la table
        FldNum = 0 'variable de test pour éviter une virgule à la fin du dernier champ.
        For Each fld In tdf.Fields 'Parcours des champs
            FldNum = FldNum + 1
            If Not IsNull(mRs(fld.Name).Value) Then
                Texte.Write (mRs(fld.Name).Value)
            End If
            If FldNum <> tdf.Fields.Count Then
                Texte.Write (",")
            End If
        Next fld
        Texte.WriteLine
        mRs.MoveNext
    Next i
    Texte.Close
End Sub

P.