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
Ce qui au final, pourrait donner quelque chose de ce genre
VB:
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
Ce qui au final, pourrait donner quelque chose de ce genre
VB:
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