Olivier1248
XLDnaute Nouveau
J'ai un certain nombre de fichiers .xlsm qui contiennent chacun plusieurs feuilees. Je souhaiterai une fonction unique qui me permette de transformer toutes ces feuilles Excle en autant de fichiers .csv
Sub Classeur_vers_CSV()
Dim ws As Worksheet, CSVFic$
For Each ws In Worksheets
ws.Copy
CSVFic = CurDir & "\" & ws.Name & ".csv"
With ActiveWorkbook
.SaveAs Filename:=CSVFic, FileFormat:=xlCSV, Local:=True
.Close False
End With
Next
End Sub
Sub Classeur_vers_CSV()
Dim ws As Worksheet, CSVFic$
For Each ws In Worksheets
ws.Copy
CSVFic = CurDir & "\" & ws.Name & ".csv"
With ActiveWorkbook
.SaveAs Filename:=CSVFic, FileFormat:=xlCSV, Local:=True
.Close False
End With
Next
End Sub