Exporter de excel en csv

Bonjour,

j'ai une feuille excel avec un ensemble de donnees que j'aimerais exporter dans un fichier .csv.

J'aimerais que ma macro (vba) verifie si le fichier csv existe et le cree s'il n'existe pas.

De plus, si le fichier existe, j'aimerais que la macro copie les rangees des donnees a la suite des donnees deja existante dans le fichier csv.

Par exemple, dans mon fichier excel, la colonne A est le numero d'article et la colonne B est le prix.

Voici mon code.... qui retourne un run time error

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
If Not (existe = Dir("E:\Project 1\test.csv", vbNormal)) = vbEmpty Then
        Sheets(cievaluesempty).SaveAs Filename:="E:\Project 1\test.csv", FileFormat:=xlCSV, CreateBackup:=False
    End If
 
        Dim cn As ADODB.Connection
        Dim Fichier As String, Feuille As String, strSQL As String
 
        Fichier = "E:\Project 1\test.csv"
        Feuille = "test"
 
        '///mettre un for pour toutes les donnees
        'Les donnees a inserer
        PolicyNb = Sheets(cievalues).Cells(10, 1)
        Polseq = Sheets(cievalues).Cells(10, 2)
        Polissdate = Sheets(cievalues).Cells(10, 3)
 
 
        Set cn = New ADODB.Connection
 
        With cn
            .Provider = "MSDASQL"
            .ConnectionString = "Driver={Microsoft Excel Driver (*.csv)};" & "DBQ=" & Fichier & ";ReadOnly=False;"
            .Open
        End With
 
        strSQL = "insert into [" & Feuille & "$] " & "Values (#" & PolicyNb & "#, " & " ' " & Polseq & "'," & Polissdate & ")"
 
        cn.Execute strSQL
 
        cn.Close
        Set cn = Nothing