S
so
Guest
Bonjour, je voudrais faire une macro qui me permet d'exporter chacune de mes feuilles en format csv(dos)
merci de votre aide
merci de votre aide
Application.DisplayAlerts = False
For Each feuille In ThisWorkbook.Sheets
Set nouveau_classeur = Workbooks.Add(template:=xlWBATWorksheet)
feuille.Cells.Copy nouveau_classeur.Sheets(1).Range('A1')
nouveau_classeur.SaveAs Filename:='C:\\' & feuille.Name & '.csv', FileFormat:=xlCSVMSDOS, CreateBackup:=False
nouveau_classeur.Close SaveChanges:=True
Next
Application.DisplayAlerts = True