Importer un fichier csv dans une table mdb
Bonjour le forum,
J'explique mon probleme.
J'exporte via une page php le resultat d'un requete dans un fichier csv, les lignes dans ce fichier sont séparées par un petit carré (donc dans notepad, j'ai toutes les données sur une seule ligne, or quand je l'ouvre avec excel, j'ai bien plusieurs lignes)
Voici mon code pour importer dans ma base de donnée
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
| Dim PathCsv As String ' Chemin et Fichier .csv à traiter
Dim LignE As String
Dim TableW() As String
Dim i As Long
Dim NomCsv As String
Dim db As DAO.Database
Dim rc As DAO.Recordset
'ImportCmdWeb
dbsbase.Execute ("DELETE FROM commandeWeb")
PathCsv = App.path & "\Import\ordersexports.csv"
Open PathCsv For Input As #1
Set db = DAO.OpenDatabase(App.path + "\gestion.mdb")
Set rc = db.OpenRecordset("commandeWeb", dbOpenTable) 'Ouverture de la table
Do While Not EOF(1)
Line Input #1, LignE
TableW() = Split(LignE, ";")
rc.AddNew
For i = 0 To UBound(TableW)
rc.Fields(i).Value = TableW(i) ' Création dune ligne
Next i
rc.Update
Loop
MsgBox "Update OK"
Close #1
rc.Close
Set rc = Nothing
db.Close |
Ce code ne fonctionne pas car il l'interprete comme si il y avait qu'une seule ligne.
Si je l'enregistre en csv avec excel et que je réexecute le code ca fonctionne car excel l'a enregistré sur plusieures lignes
Comment interpreter dans mon code le petit carré qui sépare les lignes ?
Merci d'avance
