EXPORTER un CSV (avec petite manip)

Résolu
ukos Messages postés 56 Date d'inscription lundi 22 novembre 2004 Statut Membre Dernière intervention 27 mai 2008 - 30 mai 2005 à 14:44
ukos Messages postés 56 Date d'inscription lundi 22 novembre 2004 Statut Membre Dernière intervention 27 mai 2008 - 30 mai 2005 à 17:30
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 ?

3 réponses

jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
30 mai 2005 à 17:25
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 Messages postés 329 Date d'inscription jeudi 20 novembre 2003 Statut Membre Dernière intervention 10 mai 2014 7
30 mai 2005 à 15:13
Salut

Essaye de faire commencer ta boucle à 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 Messages postés 56 Date d'inscription lundi 22 novembre 2004 Statut Membre Dernière intervention 27 mai 2008
30 mai 2005 à 17:30
merci beaucoup !
Rejoignez-nous