enregistrer feuilles en format csv (dos)

[so]

Bonjour, je voudrais faire une macro qui me permet d'exporter chacune de mes feuilles en format csv(dos)
merci de votre aide

 

[Staple1600]

Bonjour

Essaye avec l'enresitreur de macro

en enregistrant un fichier
et en choisissant
Type de fichier: CSV(séparateur😛oint virgule)*.csv

 

[Staple1600]

Ce qui donne:

ActiveWorkbook.SaveAs Filename:= _
'C:\\Classeur.csv', _
FileFormat:=xlCSV, CreateBackup:=False


L'antislash n'apparait pas mais il est bien dans le code

Message édité par: staple1600, à: 22/08/2005 18:21

 

[so]

Bonjour et merci mais c'est en csv(dos) qu'il me le faut, et chaque feuille doit etre enregistrée indépendament des autres
merci de votre aide
So

 

[Shining Hawk]

Salut so,

pour ce qui est du format, j'ai fait comme Staple1600 a dit ... (Essaye avec l'enresitreur de macro) 😉

pour le reste, tu devrais comprendre la logique.

    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

Bonne journée
A+

 

[so]

Merci beaucoup Shining hawk, ça marche parfaitement :woohoo:
Et merci aussi pour ton mini texte, mini par les mots mais grand par ce qu'il propose...

Je me demandais si tu connaitrais un code pour lister dans une feuille tous les onglet avec possible de maj??...

merci en tout cas

 

[so]

bon c'est pas bon ça sauve en csv tt court...
help