Discussion :

[clao260]

Bonjour à tous,

Je souhaite exporter une de mes tables (assez conséquente) en ".csv".
Pour cela :

- étape 1 : Créer la spécification d'exportation
=> Lorsque je souhaite l'enregistrer access m'affiche un vilain message !

La position de départ du champ 'NOM_CHAMP' est de '32896'. La position de départ maximale autorisée est de 32767.

Que faire ?

Merci.

[Simplifi]

Hello
à première vue ta table comporte trop de champs
deux solutions semblent de présenter:
- exporter 2 requêtes avec dans chacune l'index et la moitié des colonnes
- faire le travail en VBA avec ouverture de fichier et écriture
pour exemple le symétrique: lecture d'un csv

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
'
' Transfert de la liste des langues
'
nom_fich = lieu_passage & "lang.csv"
nom_fich_old = lieu_passage & "lang_old.csv"
If Len(Dir(nom_fich)) > 0 Then
    Open nom_fich For Binary Access Read Lock Read As #1
    Line Input #1, bidon 'on lit la ligne de textes de titres et on s'en fout
    DoCmd.RunSQL "Delete * from lang" 'vidage de la table
    Set rs_fich = CurrentDb.OpenRecordset("lang")
    With rs_fich
    Do
        .AddNew
        bidon = Input(1, #1) 'pour pouvoir lire le EOF qui suit le CrLf à la fin du fichier
        If EOF(1) Then Exit Do
        .Fields("LANGUE") = Input(1, #1)
        bidon = Input(3, #1) ' lecture de ";"
        .Fields("NOM") = Input(25, #1)
        bidon = Input(3, #1) ' lecture de " Cr Lf
        On Error Resume Next
        .Update
    Loop Until EOF(1)
    Close #1
    .Close
    If Len(Dir(nom_fich_old)) > 0 Then Kill nom_fich_old
    FileCopy nom_fich, nom_fich_old
    Kill nom_fich
End With

Attention la solution VBA n'est pas ici la plus rapide, il est vraisemblable que l'exportation de deux demi-tables sera bien plus rapide.