Sub Save_facture()
Dim rep As String, nom As String
rep = ThisWorkbook.Path & "\"
nom = Format(Month(Date), "00") & "_" & Year(Date) & ".xls"
'nom = Application.Proper(MonthName(Month(Date))) & "_" & Year(Date)
Debug.Print rep & nom
If Dir(rep & mois, vbNormal) = "" Then
Else
Workbook.Add.SaveAs
'If Dir("R:\Report\Fev", 16) = "" Then MkDir("d:\Report\Fev")
End Sub