enregistrer feuilles en format csv (dos)

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
 

Shining Hawk

XLDnaute Junior
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.

Code:
    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+
 
S

so

Guest
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
 

Discussions similaires

Réponses
2
Affichages
222
Réponses
13
Affichages
339

Statistiques des forums

Discussions
311 730
Messages
2 081 981
Membres
101 855
dernier inscrit
alexis345