sauvegarde d'une feuille en txt+date

[Seb]

salut a tous!
Votre mission si vous l'acceptez...
Non en fait je suis bloqué...
j'ai un classeur avec 5 pages, et j'aimerais sauvegardé la feuille 5 appelé calendrier en une page .txt nommé calendrier_DateDuJour.txt et aussi enregistrer le classeur existant sous son meme nom actuel(juste une simple sauvegarde en fait). Le truc c'est que quand je fais enregistrer en .txt, tous le classeur excel se renomme en .txt et sinon bah je sais pas comment mettre la date ds le nom du fichier.txt

 

[GillesC]

Bonjour. Manuellement :
Clic droit sur le nom de l'onglet à sauvegarder en txt.
clic 'déplacer ou copier'
choisir 'nouveau classeur'
cocher 'créer une copie'
depuis le nouveau classeur : menu /fichier/enregistrer sous..
et saisir le nom voulu

 

[Seb]

yes, ca ca va c'est pas trop dur, mais en macro c'est un peu plus dur...

 

[GillesC]

Ah en VBA !
Essaye ceci alors :

Sub Enreg_TXT()

Datesaisie = InputBox('Saisir la date sous format JJ_MM_AAAA')

Sheets('calendrier').Select
Sheets('calendrier').Copy
ActiveWorkbook.SaveAs FileName:='C:\\Calendrier' & (Datesaisie), _
FileFormat:=xlText, CreateBackup:=False
End Sub

Attention il faut obligatoirement saisir la date sous le bon format Excel ne veut pas de '/' dans ses noms de fichier
Il y a un 'anti-slash' (touche alt Gr-8) entre : et Calendrier mais cela ne passe pas

Message édité par: GillesC, à: 10/03/2006 14:09

 

[pierrejean]

bonjour Seb

une autre version

Sub Macro2()
lenom = ActiveWorkbook.Name
Sheets(5).Select
ActiveWorkbook.SaveAs Filename:= _
'C:\\Documents and Settings\\PIERRE\\Mes documents\\Calendrier_' & Format(Now(), 'dd-mm-yyyy') & '.txt', FileFormat:= _
xlText, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
'C:\\Documents and Settings\\PIERRE\\Mes documents\\' & lenom, FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False

End Sub