Unknown

:: Ce fichier a pour but de simplifier la création
:: d'une arborescence de dossier pour les feuilles
:: de caisses.
::
:: Originalement conçue par ??????????????, 744.
@Echo off
Title Version 1.0 ^| 04-03-2019
GOTO :VAR

:MAIN
MKDIR "Semaine du %jour% %mois%" && CD "Semaine du %jour% %mois%"
SET /A jour = %jour%+1
SET /A jour = %jour%-1
COPY "..\Vierge.xls" "Feuille de Caisses du %jour%.xls" && SET /A jour = %jour%+1
COPY "..\Vierge.xls" "Feuille de Caisses du %jour%.xls" && SET /A jour = %jour%+1
COPY "..\Vierge.xls" "Feuille de Caisses du %jour%.xls" && SET /A jour = %jour%+1
COPY "..\Vierge.xls" "Feuille de Caisses du %jour%.xls" && SET /A jour = %jour%+1
COPY "..\Vierge.xls" "Feuille de Caisses du %jour%.xls" && SET /A jour = %jour%+1
COPY "..\Vierge.xls" "Feuille de Caisses du %jour%.xls" && SET /A jour = %jour%+1
COPY "..\Vierge.xls" "Feuille de Caisses du %jour%.xls" && SET /A jour = %jour%+1
GOTO :EOF

:VAR
SET mois=%date:~5,2%
SET jour=%date:~8,2%
IF %mois% EQU 01 ( SET mois=Janvier )
IF %mois% EQU 02 ( SET mois=Février )
IF %mois% EQU 03 ( SET mois=Mars )
IF %mois% EQU 04 ( SET mois=Avril )
IF %mois% EQU 05 ( SET mois=Mai )
IF %mois% EQU 06 ( SET mois=Juin )
IF %mois% EQU 07 ( SET mois=Juillet )
IF %mois% EQU 08 ( SET mois=Août )
IF %mois% EQU 09 ( SET mois=Septembre )
IF %mois% EQU 10 ( SET mois=Octobre )
IF %mois% EQU 11 ( SET mois=Novembre )
IF %mois% EQU 12 ( SET mois=Décembre )
GOTO :MAIN