Dim DossierDest As String, DateDeb As Date, NomFic as String
[B]DossierDest = "C:\Documents and Settings\lbhkh\Bureau\macro analysis\fichier CR\"[/B]
DateDeb = DateSerial(year(Date) - 1, Month(Date) - 1, 1)
NomFic = "CR ACC " & Format(DateDeb, "MM-YY") & " to " & Format(Date, "MM-YY") & ".xls"
ThisWorkbook.SaveAs FileName:=DossierDest & NomFic
Range("I4").Value = [B]DossierDest[/B] & NomFic