Convertir données Excel en CSV par macro
Lake
-
Maurice -
Maurice -
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
