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 : 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
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