Discussion :

[neoboy]

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,

[jijie]

On le trouve sur le Net!!

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[neoboy]

Merci bcp ça marche très bien

[patricktoulon]

Bonjour

en passant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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