[COLOR="DarkSlateGray"]ActiveWorkbook.SaveAs Filename:= _
"H:\AMI\try" & [COLOR="Red"]Format(Datesuivi, "yyyymmdd")[/COLOR] & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False[/COLOR]