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.