Bonjour,
Je voudrais sauvegarder une feuille de mon classeur en .csv mais seulement les cellules avec des informations ... j'ai tenté celà mais ca ne semble pas marcher :
Code :
- Sub save_file()
- With Application
- .DisplayAlerts = False
- .ScreenUpdating = False
-
- With .Workbooks("marche5.xls" ).Sheets("Library" ).Range(Range("A1" ), Range("A65536" ).End(xlUp))
- .SaveAs "C:\library", xlCSV
- End With
- Sheets("Library" ).Activate
-
- .DisplayAlerts = True
- .ScreenUpdating = True
- End With
-
- End Sub
|
par avance merci