Discussion :

[tototwin]

Bonjour à tous,

Je n'arrive pas à automatiser l'exportation d'une table Access en csv.

J'essaie de faire fonctionner ceci :

Code :

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

DoCmd.TransferText acExportDelim, "export_csv", "Table2", "C:\Users\benoit\Desktop\export", True

J'applique ce code sur une base access test à 2 tables toute simple, tout est en local.

Avec ou sans spécification d'exportation dans mon code j'ai ce message d'erreur :

Erreur d'exécution'3027' : Mise à jour impossible. La base de données ou l'objet est en lecture seule.

Cela fait une semaine que je me documente sur le forum et autres, rien à faire je ne trouve pas.

Si quelqu'un avait une idée..

Vous remerciant par avance

[hyperion13]

Salut
Je note une erreur

Code :

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

DoCmd.TransferText acExportDelim, "export_csv", "Table2", "C:\Users\benoit\Desktop\export.csv", True

Votre tbl ne serait-elle pas liée ?

[User]

Bonjour,

J'ajouterais qu'il faut aussi vérifier si les spécifications d'exportation ont bien été enregistrées avec le même nom au moment du 1er export manuel avec l'assistant d'exportation :

Bouton "Avancé..." -> "Enregistrement sous..."



On ne sait jamais, ça pourrait aussi servir à d'autres

[hyperion13]

@User
On coupe court

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
Private Sub Commande1_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strFld As String
Dim i As Integer
 
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Table2")
Close #1
Open "C:\Users\benoit\Desktop\export.csv" For Append As #1
Do While Not rst.EOF
    strFld = ""
    For i = 0 To rst.Fields.Count - 2
        strFld = strFld & rst(i) & "," ' ou ;
    Next
    strFld = strFld & rst(i)
    Print #1, strFld
    rst.MoveNext
Loop
   Close #1
End Sub

[User]

C'est en effet la solution "en mode sans échec" si on peut dire que j'avais aussi proposé dans une contribution. pas oublier aussi l'option avec en-têtes

mais apparemment les gens préfèrent toujours les commandes Access , dommage ..

[tototwin]

Bonjour et merci de vos précieux retours,

Votre tbl ne serait-elle pas liée ?

Non pas du tout, une base access en local, juste pour l'essai justement.
----------------------------------------

J'ajouterais qu'il faut aussi vérifier si les spécifications d'exportation ont bien été enregistrées avec le même nom au moment du 1er export manuel avec l'assistant d'exportation :

Bouton "Avancé..." -> "Enregistrement sous..."

J'ai bien procédé de cette manière.
----------------------------------------

On coupe court
Code :

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
Private Sub Commande1_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strFld As String
Dim i As Integer
 
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Table2")
Close #1
Open "C:\Users\benoit\Desktop\export.csv" For Append As #1
Do While Not rst.EOF
    strFld = ""
    For i = 0 To rst.Fields.Count - 2
        strFld = strFld & rst(i) & "," ' ou ;
    Next
    strFld = strFld & rst(i)
    Print #1, strFld
    rst.MoveNext
Loop
   Close #1
End Sub

Un grand merci, ce code fonctionne parfaitement !