Lecture csv sans ouverture ADO ou pas

Version imprimable

Un nouveau bonjour à tous et un nouveau problème

Mon soucis :

Je détermine par une boite de dialogue aupres de l'utilisateur un fichier csv contenant des données que je veux juste importer dans un classeur.

Jusqu'à présent j'ouvrais mon fichier je copier les parties dont j'ai besoin et je collé sur ma feuille excel, seulement voila j'aimerais obtimiser mon code et donc ralentir le traitement car cette copie est longue...

J'ai trouver différente chose en cherchant sur le forum et sur nénette, comme:
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 Sub importFichierTexte_ADO() Dim Rc As ADODB.Recordset Dim Cn As String, Chemin As String, Fichier As String Dim i As Long Chemin = V_Imp V_file = Mid(V_Imp, InStrRev(V_Imp, "\") + 1) Chemin = Replace(Chemin, V_file, "") Fichier = V_file Cn = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _ "Dbq=" & Chemin & ";Extensions=csv,tab,txt" Set Rc = New ADODB.Recordset Rc.Open Source:="SELECT * FROM " & Fichier, ActiveConnection:=Cn If Not Rc.EOF Then 'For i = 0 To Rc.Fields.Count - 1 'recuperation entetes 'Cells(1, 1).Offset(0, i) = Rc.Fields(i).Name 'Next Range("A2").CopyFromRecordset Rc End If Rc.Close End Sub
mais cela me retourne un message d'erreur "Pilote ODBC texte erreur de syntaxe dans la close From ...?

et pas d'autre solution trouvé sur le forum...

09/05/2012, 14h24
kiki29

Salut, as-tu vu ceci , c'est pour une concaténation non ADO de CSV, donc à adapter.

sinon, voir la syntaxe ici et lire également ceci

Merci KiKi pour ta piste, j'ai utilisé ces tuto pour ma solution meme si je ne trouve pas vraiment comment le faire avec un fichier csv...

A l'heure actuel ca donne ceci

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
 
Sub RequeteClasseurFerme()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
 
    'Définit le classeur fermé servant de base de données
    Fichier = V_Imp
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "Feuil1"
 
    Set Cn = New ADODB.Connection
 
    '--- Connection ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
    '-----------------
 
    'Définit la requête.
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
 
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
 
    'Ecrit le résultat de la requête dans la cellule A2
    Worksheets("Liste").Activate                                                          'Active le feuille liste
    Range("A5").Select
    Range("A5").CopyFromRecordset Rst
 
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
 
End Sub

Ce code fonctionne presque seul bémole un bug sur la ligne Range("A5").Copy...

Erreur ma méthode CopyFromRecordset a échouer... je ne sais pourquoi...

Autre élément donc je ne trouve les paramètres pour "Extended Properties" pour fichier csv...

Merci de vos lumières. :lol:

Bon ne parvenant pas à écrire l'ensemble des données d'un bloc je suis passé par une méthode détournée qui fonctionne mais qui est relativement longue...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
 
 
    ' Compte le nombre de colonne et remet pointeur à 1
    fldCount = Rst.Fields.Count
    Rst.MoveFirst
    x = Rst.RecordCount
    Worksheets("Liste").Range("A5").CopyFromRecordset Rst
    L = 5
    'Ecrit le résultat de la requête dans la cellule
    For iCol = 1 To fldCount
        While Not (Rst.EOF)
        x = Rst.RecordCount
        Worksheets("Liste").Cells(L, iCol).Value = Rst.Fields(iCol - 1).Value
        Rst.MoveNext
        L = L + 1
 
        Wend
    Rst.MoveFirst
    L = 5
    Next

... Si vous aviez une solution ou savoir pourquoi mon "Range("A5").CopyFromRecordset Rc" ne marche pas...