Function ClasseursExport() As Boolean
Dim Dossier As String, Classeur As Workbook
Dossier = "Z:\NECESSAIRES CONSEILLERS ENERGIES\SARE\Traitement\Export\" & Format(Date, "mm-yyyy")
Set Classeur = Workbooks.Add
On Error Resume Next
ChDir Dossier
If Err Then Err.Clear: MkDir Dossier: ChDir Dossier
With Classeur
.Title = "fichier_import_A1"
.Subject = "Import"
.SaveAs "fichier_import_A1.xls", FileFormat:=xlExcel8
End With
ClasseursExport = Err = 0
End Function