réorganisation et meilleure gestion de la numérotation des réponses pour les qcm

latex/inputTD.tex

@@ -22,9 +22,11 @@
 \usepackage{xr}
 
 \newif\ifcorrige
-\def\corr{\filigrane{\Huge CORRIG\'E --- CORRIG\'E}\global\corrigetrue}
+\def\corr{\filigrane{\Huge CORRIG\'E --- CORRIG\'E}\global\corrigetrue\global\enoncefalse}
 \newif\ifcorrigeseul
-\def\corrseul{\filigrane{\Huge CORRIG\'E --- CORRIG\'E}\global\corrigeseultrue}
+\def\corrseul{\filigrane{\Huge CORRIG\'E --- CORRIG\'E}\global\corrigeseultrue\global\enoncefalse}
+\newif\ifenonce
+\enoncetrue
 
 \usepackage{xstring}
 \IfEndWith{\jobname}{\detokenize{-ENONCE}}{\let\corr\relax\let\corrseul\relax}{}
@@ -35,7 +37,6 @@
 \def\pasenonce{
   \excludecomment{enonce}
   \excludecomment{qcmrep}
-  \excludecomment{qcm}
   }
 
 \def\avecenonce{\newenvironment{enonce}{}{}
@@ -52,12 +53,14 @@
 \AtBeginDocument{%
 \ifcorrige
   \immediate\typeout{Mode professeur}
-  \makeatletter\IfStrEq{\@subtitle}{}{}{\subtitle{Corrigé}}\makeatother
+  \IfStrEq{\@subtitle}{}{}{\subtitle{Corrigé}}
   \newenvironment{corrige}{\begin{mdframed}[backgroundcolor=gray!20, skipbelow=1ex]}{\end{mdframed}}
   \newenvironment{comcorrige}{\begin{mdframed}[backgroundcolor=gray!20, skipbelow=1ex]}{\end{mdframed}}
   \newenvironment{qcmcorr}{\begin{mdframed}[backgroundcolor=gray!20, skipbelow=1ex]}{\end{mdframed}}
   \avecenonce
 \else\ifcorrigeseul
+  \immediate\typeout{Mode corrige}
+  %
   \let\real@xwmlastpage\r@xwmlastpage  % ne pas écraser ces labels depuis le fichier externe
   \let\real@lastpage\r@lastpage
   \let\r@xwmlastpage\relax
@@ -65,15 +68,19 @@
   \externaldocument{\basejobname-ENONCE}
   \let\r@xwmlastpage\real@xwmlastpage
   \let\r@lastpage\real@lastpage
-  \immediate\typeout{Mode corrige}
-  \makeatletter\IfStrEq{\@subtitle}{}{}{\subtitle{Corrigé}}\makeatother
+%
+  \IfStrEq{\@subtitle}{}{}{\subtitle{Corrigé}}
   \pasenonce
   \edef\@temp{\noexpand\newcounter{question}\resetlevel}\@temp
   \specialcomment{question}{\refstepcounter{question}\begingroup\def\ProcessCutFile{}}{\endgroup}
   \newtheorem{corrige}{Question}
   \def\thequestion{\thesection.\arabic{question}}   %% hack moche à améliorer
   \let\thecorrige\thequestion
+ % 
+  \newcounter{qcm}
+  \specialcomment{qcm}{\refstepcounter{qcm}\begingroup\def\ProcessCutFile{}}{\endgroup}
   \newtheorem{qcmcorr}{QCM}
+  \let\theqcmcorr\theqcm
   \newenvironment{comcorrige}{}{}
 \else
   \immediate\typeout{Mode enonce}