sauver une feuille de classeur en .csv

[thierry440]

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]

Re : sauver une feuille de classeur en .csv

Bonsoir,

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]

Re : sauver une feuille de classeur en .csv

Merci

je teste des demain.

a+

 

[ROGER2327]

Re : sauver une feuille de classeur en .csv

Bonjour à tous

Du même genre :

[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