Unknown

:: Ce fichier a pour but de simplifier la creation
:: d'une arborescence de dossier pour les feuilles
:: de caisses.
::
:: Originalement concue par ??????????????, 744.
@ECHO OFF
TITLE Auteur: ??????????????, 744 ^| Version: 1.0 ^| 05-03-2019
IF EXIST joursemaine.log GOTO :EOF
IF EXIST weekday.vbs weekday.vbs
IF NOT EXIST joursemaine.log GOTO :EOF
FOR /F %%A IN ('wmic os get localdatetime ^| FINDSTR [0-9]') DO SET date=%%A
FOR /F %%A IN (joursemaine.log) DO ( SET $jour=%%A && DEL joursemaine.log)
SET annee=%date:~0,4%
SET mois=%date:~4,2%
SET jour=%date:~6,2%
IF %$jour% EQU mardi SET /A jour=%jour%-1
IF %$jour% EQU mercredi SET /A jour=%jour%-2
IF %$jour% EQU jeudi SET /A jour=%jour%-3
IF %$jour% EQU vendredi SET /A jour=%jour%-4
IF %$jour% EQU samedi SET /A jour=%jour%-5
IF %$jour% EQU dimanche SET /A jour=%jour%-6
IF %mois% EQU 1 (SET mois=Janvier)
IF %mois% EQU 2 (SET mois=Fevrier)
IF %mois% EQU 3 (SET mois=Mars)
IF %mois% EQU 4 (SET mois=Avril)
IF %mois% EQU 5 (SET mois=Mai)
IF %mois% EQU 6 (SET mois=Juin)
IF %mois% EQU 7 (SET mois=Juillet)
IF %mois% EQU 8 (SET mois=Aout)
IF %mois% EQU 9 (SET mois=Septembre)
IF %mois% EQU 10 (SET mois=Octobre)
IF %mois% EQU 11 (SET mois=Novembre)
IF %mois% EQU 12 (SET mois=Decembre)
IF EXIST  "Feuilles de Caisses du %jour% %mois%" GOTO :EOF
MKDIR "Feuilles de Caisses du %jour% %mois%" && CD "Feuilles de Caisses du %jour% %mois%"
COPY ..\Vierge.xls "Feuille de Caisse du %jour% %mois%.xls"
SET /A jour=%jour%+1
SET copy=2
GOTO :VERIFY
:02
COPY ..\Vierge.xls "Feuille de Caisse du %jour% %mois%.xls"
SET /A jour=%jour%+1
SET copy=3
GOTO :VERIFY
:03
COPY ..\Vierge.xls "Feuille de Caisse du %jour% %mois%.xls"
SET /A jour=%jour%+1
SET copy=4
GOTO :VERIFY
:04
COPY ..\Vierge.xls "Feuille de Caisse du %jour% %mois%.xls"
SET /A jour=%jour%+1
SET copy=5
GOTO :VERIFY
:05
COPY ..\Vierge.xls "Feuille de Caisse du %jour% %mois%.xls"
SET /A jour=%jour%+1
SET copy=6
GOTO :VERIFY
:06
COPY ..\Vierge.xls "Feuille de Caisse du %jour% %mois%.xls"
SET /A jour=%jour%+1
SET copy=7
GOTO :VERIFY
:07
COPY ..\Vierge.xls "Feuille de Caisse du %jour% %mois%.xls"
SET /A jour=%jour%+1
GOTO :EOF
:VERIFY
IF %mois% EQU Janv (IF %jour% GTR 31 (SET "mois=Fev" & SET jour=1))
IF %mois% EQU Fev (IF %jour% GTR 28 (SET "mois=Mars" & SET jour=1))
IF %mois% EQU Mars (IF %jour% GTR 31 (SET "mois=Avril" & SET jour=1))
IF %mois% EQU Avril (IF %jour% GTR 30 (SET "mois=Mai" & SET jour=1))
IF %mois% EQU Mai (IF %jour% GTR 31 (SET "mois=Juin" & SET jour=1))
IF %mois% EQU Juin (IF %jour% GTR 30 (SET "mois=Juil" & SET jour=1))
IF %mois% EQU Juil (IF %jour% GTR 31 (SET "mois=Aout" & SET jour=1))
IF %mois% EQU Aout (IF %jour% GTR 31 (SET "mois=Sept" & SET jour=1))
IF %mois% EQU Sept (IF %jour% GTR 30 (SET "mois=Oct" & SET jour=1))
IF %mois% EQU Oct (IF %jour% GTR 31 (SET "mois=Nov" & SET jour=1))
IF %mois% EQU Nov (IF %jour% GTR 30 (SET "mois=Dec" & SET jour=1))
IF %mois% EQU Dec (IF %jour% GTR 31 (SET "mois=Fev" & SET jour=1))
IF %copy% EQU 2 GOTO :02
IF %copy% EQU 3 GOTO :03
IF %copy% EQU 4 GOTO :04
IF %copy% EQU 5 GOTO :05
IF %copy% EQU 6 GOTO :06
IF %copy% EQU 7 GOTO :07
GOTO :EOF