Convertir données Excel en CSV par macro
Bonjour,
J'ai un tableau Excel contenant plusieurs lignes et plus colonnes. Je veux transformer les données de ce tableau en format csv séparées par virgules, à l'aide d'une MACRO.
Pouvez-vous m'aider SVP. Merci
J'ai un tableau Excel contenant plusieurs lignes et plus colonnes. Je veux transformer les données de ce tableau en format csv séparées par virgules, à l'aide d'une MACRO.
Pouvez-vous m'aider SVP. Merci
1 réponse
-
Bonjour
Voila une macro a mettre en forme
Sub ExportCSV()
Dim Plage As Object, oL As Object, oC As Object, Tmp As String, Sep$
' Sep = au separateur
Sep = ","
'CheminCSV = Chemin et le non du fichier
Set Plage = ActiveSheet.Range("B1:N213")
Open CheminCSV For Output As #1
For Each oL In Plage.Rows
Tmp = ""
For Each oC In oL.Cells
Tmp = Tmp & CStr(oC.Text) & Sep
Next
Print #1, Tmp
Next
Close
End Sub
