Discussion :

[aminee1666]

Bonjour,

J'utilise le code ci dessous pour importer des données d'un fichier XL vers mon classeur XL. cependant, je cherche à faire la même chose sur des données text (.cvs)

Objectif : récupérer certaines colonnes d'un fichier csv vers mon classeur XL

Pourriez vous SVP m'aider à adapter ce code?
Merci d'avance,

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub import()
 
Annee = UserForm1.ComboBox1
 
Reponse = MsgBox("Voulez vous charger les données du fichier  pour l'année " & Annee & "?", vbQuestion + vbYesNo)
If Reponse = vbYes Then
Dim Cn As ADODB.Connection
Dim oCat As ADOX.Catalog
Dim Fichier As Variant
Dim Feuille As ADOX.Table
 
Dim Rst As ADODB.Recordset
Dim texte_SQL As String
Dim Ar() As String, i As Long
 
    Fichier = Application.GetOpenFilename("Fichier Excel, *.csv;*.xlsx")
    If Fichier = False Then Exit Sub
 
    Set Cn = New ADODB.Connection
    Set oCat = New ADOX.Catalog
 
    'Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & ";Extended Properties=Excel 8.0;"
   With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
 
    Set oCat.ActiveConnection = Cn
    For Each Feuille In oCat.Tables
        i = i + 1
        ReDim Preserve Ar(i)
        Ar(i) = Feuille.Name
    Next Feuille
 
    texte_SQL = "SELECT Annee,Semaine,Structure_Utilisateu FROM [" & Ar(1) & "]"
 
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
 
   Feuil3.Range("CM4").CopyFromRecordset Rst
 
    Set Feuille = Nothing
    Set oCat = Nothing
    Cn.Close
    Set Cn = Nothing
 MsgBox "Données importées"
 
Else
 MsgBox "Vous n'avez exporté aucun fichier"
End If
End Sub

[Marc-L]

Bonjour,

plein d'exemples sur ce forum,


Tu peux aussi utiliser l'Enregistreur de macros pour ouvrir ton fichier .csv donnant ainsi une base de code …

[aminee1666]

Bonjour Marc-L,

j'ai cherché dans ce forum, je n'arrive pas toujours à adapter ce code par rapport un import automatisé des données (.cvs)

En suivant l'import classique sous excel, il n'y a pas de possibilité de sectionner les colonnes à importer. J'ai un fichier de 100MO et ça prend bcp e temps pour importer toutes le colonnes

Cdt,

[Marc-L]

J'espère qu'un autre intervenant maitrisant la connection ADO pourra te répondre ...

J'importe un fichier externe en mémoire afin de le retraiter rapidement mais vu la taille du tien …
Cela pourrait se transformer en pseudo file mapping, bref une lecture par bloc (mais gros) …

Sinon il y a la méthode classique de lecture séquentielle ligne par ligne mais cela risque aussi de ramer !

Il me faudrait aussi un extrait du fichier en pièce jointe pour vérifier sa structure et connaitre quelles sont les données à importer …

[Docmarti]

Je ne suis pas spécialiste. Mais le code suivant fonctionne.

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
Sub ExtraireDonneesCSV()
Dim CN As ADODB.Connection
Dim Rst As ADODB.Recordset
 
Set CN = New ADODB.Connection
Set Rst = New ADODB.Recordset
 
Dim Chemin As String
Dim NomFichier As String
Dim Ligne As Integer
 
Chemin = "C:\"
NomFichier = "Fichier2.csv"
 
CN.Provider = "Microsoft.Jet.OLEDB.4.0"
CN.ConnectionString = "Data Source=" & Chemin & ";" & "Extended Properties=""text;HDR=Yes;FMT=Delimited;"""
 
CN.Open
 
Rst.Open "SELECT Famille, Prenom, Age FROM [" & NomFichier & "] WHERE Age > 30", CN
 
Rst.MoveFirst
Ligne = 1
Worksheets("Feuil1").Cells(Ligne, 5).CopyFromRecordset Rst
 
Rst.Close
CN.Close
 
Set Rst = Nothing
Set CN = Nothing
End Sub

[clementmarcotte]

Bonjour,

Ton premier problème : Ton code cherche des fichiers xlsx, donc Excel 2007 et plus. Or à partir de Excel 2007, on ne peut plus utiliser le moteur Jet. Il faut utiliser le moteur ACE.

Tu peux jeter un œil sur cet article. Tu vas voir la chaîne de connexion avec le moteur ACE au bas de la page. Le moteur ACE doit être disponible en téléchargement sur le site de Microsoft.