sauver une feuille de classeur en .csv

thierry440 · 28 Novembre 2009

Bonjour

je cherche une macro pour sauver une seule feuille d'un classeur en fichier .csv dont le nom serait la date du jour .

Merci d'avance

kjin · 28 Novembre 2009

Re : sauver une feuille de classeur en .csv

Bonsoir,

Code:

ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Format(Date, "dd-mm-yy") & ".csv", xlCSV, False

Le fichier est enregistré dans le répertoire du fichier actif sinon adapter
A+
kjin

thierry440 · 28 Novembre 2009

Re : sauver une feuille de classeur en .csv

Merci

je teste des demain.

a+

ROGER2327 · 28 Novembre 2009

Re : sauver une feuille de classeur en .csv

Bonjour à tous

Du même genre :

Code:

[COLOR="DarkSlateGray"][B]Sub toto()
Dim titre As String, chemin As String
   titre = Format(Now(), "yyyy-mm-dd")    [COLOR="SeaGreen"]'A adapter[/COLOR]
   chemin = "E:\XLD\"                     [COLOR="SeaGreen"]'A adapter[/COLOR]
   Sheets(1).Activate                     [COLOR="SeaGreen"]'A adapter (nécessaire car l'enregistrement au format .csv ne fonctionne que pour la feuille active)[/COLOR]
   ActiveWorkbook.SaveAs Filename:=chemin & titre & ".csv", FileFormat:=xlCSV, CreateBackup:=False
End Sub[/B][/COLOR]

ROGER2327
#2258

sauver une feuille de classeur en .csv

thierry440

XLDnaute Junior

kjin

XLDnaute Barbatruc

thierry440

XLDnaute Junior

ROGER2327

XLDnaute Barbatruc

Discussions similaires