Enregistrer date du jour

[MimiVba]

Bonsoir a tous ,

je voudrais savoir comment on fait pour enregister mon document automatique de la fason suivant :

dans le répertoire suivant F:/Document/
portant nom suivant : document ... à la date du jour

Merci d'avance

 

[ledzepfred]

Re : Enregistrer date du jour

Bonsoir,

essayes ceci

sub auto_open()
ActiveWorkbook.SaveAs Filename:= _
        "F:\Document" & "_" & Format(Date, "ddmmyyyy") & ".xls"
End Sub

maintenant si tu préfères l'enregistrer à la fermeture du fichier remplace open par close

Code à placer dans un module standard
autre possibilité placer le même code dans thisworbook mais la procédure s'appellera alors Private Sub Workbook_Open()


a+

 

[pacoako]

Re : Enregistrer date du jour

Sub Macro1

ActiveWorkbook.SaveAs Filename:= "D:\LECHEMINAUCOMPLET\" & DATE & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

 

[MimiVba]

Re : Enregistrer date du jour

Merci pour votre aide, sa marche parfaitement.

 

[kjin]

Re : Enregistrer date du jour

Bonsoir,
Précise quand même que le seul code de ledzepfred fonctionne, Windows refusant les noms de fichiers contenant des slash ("/")
A+
kjin

 

[MimiVba]

Re : Enregistrer date du jour

OUi seul son code fonctionne mais je remercie comme même pacoako de son aide malgres tout ...

 

[ledzepfred]

Re : Enregistrer date du jour

Bonsoir à tous,

ravi d'avoir pu t'aider Mimivba

a+