[XL-2010] Rechercher tous les fichiers csv d'un repertoire et les importer en table dans Access

[Nestea]

Bonjour à tous!

J'essaie de récuperer tous les fichiers csv d'un répertoire fixe et de les importer dans des tables access distinctes avec la délimitation du ";" et comme nom de table le nom de fichier en enlevant le ".csv"

J'ai trouve ce code mais rien ne se passe:

Code :

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
 
Sub TransfertAllCsvInDir()
 
Dim rep As String
Dim Dossier As String
Dim Nom_Tbl As String
 
'obtient le premier fichier ou répertoire qui est dans "c:\"
Dossier = "C:\repertoire"
rep = Dir(Dossier & "*.CSV", vbDirectory)
'boucle tant que le répertoire n'a pas été entièrement parcouru
On Error GoTo Erreur
Do While (rep "")
'teste si c'est un fichier ou un répertoire
If (GetAttr(Dossier & rep) And vbDirectory) = vbDirectory Then
'MsgBox "Répertoire " & rep
Else
Nom_Tbl = Left(rep, Len(rep) - 4)
 
'On attache le fichier trouvé
DoCmd.TransferText acLinkDelim, , Nom_Tbl, Dossier & rep, True
'On Ajoute les données dans la table de destination
DoCmd.RunSQL "INSERT INTO Tabledest ( Champ1, Champ2, Champ3,Champ4 )SELECT Champ1 AS Expr1, Champ2 AS Expr2, Champ3 AS Expr3, Champ4 AS Expr4 FROM [" & Nom_Tbl & "];"
'On libère le fichier
DoCmd.DeleteObject acTable, Nom_Tbl
End If
Suite:
'passe à l'élément suivant
rep = Dir
Loop
GoTo Fin
Erreur:
Fin:
End Sub

Merci pour votre aide.

[kiki29]

Salut, surtout qu'il y a cela : http://excel.developpez.com/faq/?pag...sfertCsvAccess

[Nestea]

Bonsoir,

Merci pour vos réponses!

Le code qui est dans la faq, ne permet pas de creer des tables avec la delimitation du ";"
Je l'ai testé, ça met tout dans un même champ, en plus je suis obligée de mettre en dur dans le code le nom du fichier alors que moi je voudrai qu il parcourt tout un repertoire et qu'il trouve les "cs"v et les envoi dans les tables avec comme nom de table le nom du fichier. Je ne sais pas si je suis assez claire dans mes explications

[kiki29]

Salut, désolé je viens par curiosité de retester ce fichier et il fonctionne correctement, le probleme est donc chez toi
Pour la recherche récursive ou non de fichiers voir http://www.developpez.net/forums/d20...feuille-excel/ et adapter à ton contexte

[ZebreLoup]

Je pense que ça va dépendre du délimiteur de colonne par défaut d'Access.
Tu as regardé du coté de la fonction TransferText d'Access ?

Et question bête, pourquoi tu postes dans VBA Excel et pas dans VBA Access ? Tu veux lancer ça à partir d'un fichier Excel ?

[Nestea]

Oui je voudrai le faire depuis excel car ensuite je voudrai faire des requetes sur les tables et afficher les resultats dans excel... c est une autre étape!

Je n'arrive pas à faire marcher le code chez moi j'ai une erreur à la ligne :

Code :

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

Une erreur de syntaxe dans la clause FROM...

L'integralité du code

Code :

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
Sub tranfertCSV_Vers_NouvelleTableAccess()
 
 
    Dim AccessCn As ADODB.Connection
    Dim AccessRst As ADODB.Recordset
    Dim Csv_CN As New ADODB.Connection
    Dim Csv_Rst 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 = "C:\Documents and Settings\"    
    'Nom du fichier CSV à transfèrer
    FichCSV = "fichier.csv"
    'Chemin et nom de la base Access
    MaBase = "C:\Documents and Settings\base.mdb"
    'Nom de la nouvelle Table Access
    NomTable = "NewTable"
 
 
    '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
    Csv_Rst.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
    Csv_Rst.Close
    Csv_CN.Close
    Set AccessRst = Nothing
    Set AccessCn = Nothing
    Set Csv_Rst = Nothing
    Set Csv_CN = Nothing
 
End Sub

[Qwazerty]

Salut
Normal tu as oublié que tu avais a faire à une variable dans ta chaine

Code :

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

++
Qwaz

[Nestea]

Merci, mais maintenant j'ai une erreur d'exécution 3709 " The connection cannot be used to perform this operation. It is either closed or invalid in this context"