enregistrer feuilles en format csv (dos)

Staple1600

XLDnaute Barbatruc

• 22 Août 2005

• #2

Bonjour

Essaye avec l'enresitreur de macro

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Août 2005

• #3

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

 

Vote positif 0 Vote négatif

S

so

Guest

• 23 Août 2005

• #4

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

 

Vote positif 0 Vote négatif

S

Shining Hawk

XLDnaute Junior

• 23 Août 2005

• #5

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+

 

Vote positif 0 Vote négatif

S

so

Guest

• 23 Août 2005

• #6

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

 

Vote positif 0 Vote négatif

S

so

Guest

• 1 Septembre 2005

• #7

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

 

Vote positif 0 Vote négatif