Sub Macro3() 'test OK
'Macro enregistrée le 17/07/2012 par Staple1600
Dim Dossier$, NomFIC$
Dossier = "C:\TEMP\" 'variable à adapter (le nom du dossier ou répertoire selon ta terminologie)
NomFIC = Dossier & Format(Date, "ddmmyyyy") & ".slk"
Sheets("Feuil1").Copy''variable à adapter (le nom de la feuille)
ActiveWorkbook.SaveAs Filename:=NomFIC, FileFormat:=xlSYLK, CreateBackup:=False
ActiveWorkbook.Close True
End Sub