Sub saveas()
Dim poste
If CDbl(Now()) - Int(CDbl(Now)) >= 6 / 24 And CDbl(Now()) - Int(CDbl(Now)) <= 14 / 24 Then poste = " matin"
If CDbl(Now()) - Int(CDbl(Now)) >= 14 / 24 And CDbl(Now()) - Int(CDbl(Now)) <= 22 / 24 Then poste = " après-midi"
If CDbl(Now()) - Int(CDbl(Now)) >= 22 / 24 Or CDbl(Now()) - Int(CDbl(Now)) <= 6 / 24 Then poste = " nuit"
Application.DisplayAlerts = False
chemin = "C:\Documents and Settings\wngetn3\Desktop\test_fx62\"
If poste = " nuit" And CDbl(Now()) - Int(CDbl(Now)) <= 6 / 24 Then
fName = "Rapport" & " du " & Format(Now - 1, "yyyy-mm-dd") & poste & ".xls"
Else
fName = "Rapport" & " du " & Format(Now, "yyyy-mm-dd") & poste & ".xls"
End If
ActiveWorkbook.saveas chemin & fName, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub