Exporter une zone excel en CSV

Version imprimable

05/03/2014, 08h57
neoboy

Exporter une zone excel en CSV

Bonjour tout le monde,

Je recherche uen macro / code VBA , qui permet d'exporter une zone d'un fichier ( La feuille sans les en-tête) excel en un fichier CSV .
Merci bcp pour votre aide,

On le trouve sur le Net!!

mais voici un .txt à modifier avec .csv et adapter les colonnes :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ExportTXT()
Dim Plage As Object, oL As Object, oC As Object, Tmp As String, Sep$
Dim NomEtCheminFichier As String
NomEtCheminFichier = "C:\Documents and Settings\&&&&&&\Mes documents\Classeur.txt"
Sep = ";"
Set Plage = ActiveSheet.Range("A2:f" & ActiveSheet.Range("A65000").End(3).Row)
Open NomEtCheminFichier 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

05/03/2014, 10h51
neoboy

Merci bcp ça marche très bien

heu

Bonjour

en passant

Code:

1
2
3
4
5
6
7
8
NomEtCheminFichier = "C:\Documents and Settings\&&&&&&\Mes documents\Classeur.txt"
 Set plage = ActiveSheet.Range("A2:f" & ActiveSheet.Range("A65000").End(3).Row)
   plage.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:=NomEtCheminFichier, FileFormat:=xlCSV, CreateBackup:=False
    ActiveWindow.Close