A voir également:
- Convertir données Excel en CSV par macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Convertir youtube en mp3 avec audacity - Guide
- Mise en forme conditionnelle excel - Guide
- Convertir pdf en word excel gratuit - Guide
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
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
