sauver une feuille de classeur en .csv

thierry440

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

XLDnaute Barbatruc
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
 

ROGER2327

XLDnaute Barbatruc
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas