Sub enregistrementDevis()
'Définir les variables du nom répertoire sauvegarde
Dim Chemin, Annee, Mois
'Définir le répertoire de sauvegarde format "année-mois-semaine"
Chemin = "C:\test\"
année = Sheets("Base").Range("Q2").Value & "\" '2014
Mois = Sheets("Base").Range("N2").Value & "\" '08
cheminComplet = Chemin & année
'teste de la présence du dossier
If Dir(Chemin & année, vbDirectory) = "" Then MkDir (cheminComplet)
cheminComplet = cheminComplet & Mois
If Dir(Chemin & année & Mois, vbDirectory) = "" Then MkDir cheminComplet
fichier = Sheets("Base").Range("N1") & ".xlsm"
ActiveWorkbook.SaveAs cheminComplet & fichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub