Bonjour à tous,

J'ai besoin de compiler plusieurs fichiers *.csv en vb.net mais j'ai cherché, j'ai bien trouvé des trucs en C# que je n'arrive pas a traduire.

J'avais trouvé et adapté un bout de code pour faire ça en vba excel mais je n'arrive pas à le traduire. Le Open ne fonctionne pas :
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
    Sub CompilationFichiersTexte_ADO()
        '
        'Nécessite d'activer la référence
        '"Microsoft ActiveX Data Objects 2.x Library"
        '
        Dim Rc As ADODB.Recordset
        Dim cn As String, Chemin As String, Fichier As String, x As String
        Dim i As Long
 
        'répertoire contenant les fichiers texte
        Chemin = "C:\Documents and Settings\****\"
 
        'Ouvre un nouveau fichier Texte pour compiler les données
        '! attention à ne pas le placer dans le meme repertoire que les autres fichiers...
        Open "C:\Documents and Settings\****\Compilation.csv" For Output As #1
 
 
 
        'boucle sur l'ensemble des fichiers txt
        Fichier = Dir(Chemin & "\*.csv")
        Do While Fichier <> ""
 
            '----- requète pour récupérer le contenu du fichier txt
            cn = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
            "Dbq=" & Chemin & ";Extensions=asc,csv,tab,txt"
 
            Rc = New ADODB.Recordset
            Rc.Open(Source:="SELECT * FROM [" & Fichier & "]", ActiveConnection:=cn)
 
            If Not Rc.EOF Then
 
            Print #1, Rc.GetString(, , ";", vbCrLf, "");
            End If
 
            Rc.Close()
            x = ""
            '-------------------------
            Fichier = Dir()
        Loop
 
        'Fermeture du fichier Compilation
        Close #1
 
 
 
    End Sub
Est-ce que quelqu'un pourrait m'aider svp ?