Discussion :

[cott333]

Bonjour a tous!

J'ai un programme qui permet de transvaser les donnees d'un fichier CSV dans un fichier Access grace a une macro Excel.

Par contre il me met "Syntax error in FROM clause" comme erreur sur la ligne

Code :

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

1
2
    CsvRst.Open "SELECT * FROM " & FichCSV, Csv_CN, _
        adOpenStatic, adLockOptimistic

Et je vois pas mon erreur etant novice en VBA...

Qlln pourrait m'aider? =)

Voici le 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
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
Sub tranfertCSV_Vers_NouvelleTableAccess()
    'Transfére un fichier CSV vers une nouvelle table Access
    'depuis une macro Excel.
    '
    'Nécessite d'activer la référence
    '"Microsoft ActiveX Data Objects x.x Library
    '
 
    Dim AccessCn As ADODB.Connection
    Dim AccessRst As ADODB.Recordset
    Dim Csv_CN As New ADODB.Connection
    Dim CsvRst As New ADODB.Recordset
    Dim DossierCSV As String, NomTable As String
    Dim FichCSV As String, MaBase As String
    Dim nbEnr As Long
 
    'Répertoire du fichier CSV
    DossierCSV = "H:\Projet GDP"
    'Nom du fichier CSV à transfèrer
    FichCSV = "table.csv"
    'Chemin et nom de la base Access
    MaBase = "H:\Projet GDP\BaseAccess.accdb"
    'Nom de la nouvelle Table Access
    NomTable = "MaNouvelleTable"
 
 
    'Connection au fichier CSV
    Csv_CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        DossierCSV & ";Extended Properties='text;FMT=Delimited'"
    'Requète dans le fichier CSV
    CsvRst.Open "SELECT * FROM " & FichCSV, Csv_CN, _
        adOpenStatic, adLockOptimistic
 
    'Connection à la base de données Access
    Set AccessCn = New ADODB.Connection
    AccessCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=" & MaBase
 
 
    Csv_CN.Execute "SELECT * INTO [" & NomTable & "] IN '" & _
        MaBase & "' From [" & FichCSV & "]", nbEnr
 
 
    AccessCn.Close
    CsvRst.Close
    Csv_CN.Close
    Set AccessRst = Nothing
    Set AccessCn = Nothing
    Set CsvRst = Nothing
    Set Csv_CN = Nothing
End Sub

[kiki29]

Salut,à priori, la chaine d'accès au fichier devrait être qqch comme : DossierCSV &"\" & FichCSV ? de même pour la MaBase et NomTable ?

[Daranc]

question : est-ce VBA ou la requête qui retourne le message d'erreur
(mon peu d’expérience sur les erreur requêtes ont toujours été lié au SQL plutôt qu'au VBA)

[cott333]

Jai bien change la chaine d'acces au fichier, j'ai toujours le meme message d'erreur -_-

Et c'est un message VBA =)

Je pense que ca vient de la syntaxe de ma ligne de prog mais je vois pas quoi

[kiki29]

Re,la chaine de connexion était donnée pour une base Access < 2007 (*.mdb)

http://www.developpez.net/forums/d33...r-fichier-csv/

cette chaine différe avec 2007 ; Provider=Microsoft.ACE.OLEDB.12.0 à vérifier

[cott333]

Je pense que ca va aider pour la 'Connection à la base de données Access Merci!

Mais ma 'Requète dans le fichier CSV plante toujours...

[kiki29]

Re,et comme je n'ai pas Access 2007,je ne vais pas pouvoir aller plus loin
sinon via une recherche http://www.google.fr/#sclient=psy&hl...w=1015&bih=727

PS: par acquis de conscience je viens de tester avec Excel 2002 et Access 2002 et tout est OK
rePS : un lien pour les chaines de connexion http://www.connectionstrings.com/