EXPORTER un CSV (avec petite manip)Résolu

Question

donc j ai trouver sur le forum le code suivant :



Dim sLigne As String

Dim i As Integer, j As Integer



Open "C:\MonFichier.csv" For Output As #1

    

For i = 1 To ActiveSheet.UsedRange.Rows.Count

   For j = 1 To ActiveSheet.UsedRange.Columns.Count

      sLigne = sLigne & CStr(ActiveSheet.Cells(i, j).Text) & ";"

   Next j

   Print #1, sLigne

   sLigne = ""

Next i

    

Close #1



il fonctionne, mais j aimerai exporter l'emsemble des colones SAUF la colone A

comment dois-je m'y prendre ?

jpleroisse · Accepted Answer

Bonjour,



Sub Export()

Dim sLigne As String

Dim i As Integer, j As Integer

    Open "C:\MonFichier.csv" For Output As #1

        For i = 1 To ActiveSheet.UsedRange.Rows.Count

        For j = 2 To ActiveSheet.UsedRange.Columns.Count

    sLigne = sLigne & CStr(ActiveSheet.Cells(i, j).Text) & ";"

    Next j

Next i

Print #1, sLigne

Close #1

End Sub



jpleroisse

cs_lim · Answer

Salut

Essaye de faire commencer ta boucle &#224; 2 
mais c'est pas garantie
cells(index la ligne,index de la colonne)

Dim sLigne As String
Dim i As Integer, j As Integer

Open "C:\MonFichier.csv" For Output As #1

For i = 1 To ActiveSheet.UsedRange.Rows.Count
For j = 2 To ActiveSheet.UsedRange.Columns.Count-1
sLigne = sLigne & CStr(ActiveSheet.Cells(i, j).Text) & ";"
Next j
Print #1, sLigne
sLigne = ""
Next i

Close #1

@+
LIM

ukos · Answer

merci beaucoup !

EXPORTER un CSV (avec petite manip)

3 réponses

Discussions similaires