Discussion :

[katypati]

Bonjour,

j'ai un fichier xls qui contient plusieurs onglets. J'aimerai pouvoir créér une macro vba qui permet d'exporter un onglet spécifique de l'enregistrer en format csv avec séparateur ";" et d'enlever les espaces qui sont dans les noms des colonnes. j'aimerai aussi que dans mon nouveau fichier csv que les noms des colonnes soient en première ligne et non en deuxième ligne.

Mon tableau:
200
nom a nom b nom c nom d nom e
1 2 3 4 5
6 7 8 9 10
11 14 17 20 23
12 15 18 21 24
13 16 19 22 25

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
 
Sub Macro1()
'
' Macro1 Macro
'
'
    Sheets("Feuil1").Select
    Application.CutCopyMode = False
    Sheets("Feuil1").Copy
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
 
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveWorkbook.SaveAs Filename:="C:\Users\toto\Documents\test.csv", _
        FileFormat:=xlCSV, CreateBackup:=False
End Sub

est ce que quelqu'un a une idée plus stable.
Merci.

[jfontaine]

Bonjour,

Ci dessous une approche en utilisant Open For Output

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
Sub Export(Sh As Worksheet)
 
Dim i As Long
Dim c As Integer
Dim StrLigne As String
 
Open "c:\test.csv" For Output As #1
 
For i = 2 To Sh.Range("A" & Rows.Count).Row
    StrLigne = ""
 
    For c = 1 To Sh.Cells(2, Columns.Count).End(xlToLeft).Column
        If StrLigne <> "" Then StrLigne = StrLigne & ";"
        StrLigne = StrLigne & IIf(i = 2, Replace(Sh.Cells(i, c).Value, " ", ""), Sh.Cells(i, c).Value)
    Next c
 
    Print #1, StrLigne
 
Next i
 
Close #1
 
End Sub

Procédure a appeler comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Export Sheets("feuil1")