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
Ce code ne fonctionne pas car il l'interprete comme si il y avait qu'une seule ligne.
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
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
Partager