Script : plusieurs documents en un seul PDF + arborescence Fermé

Question

Bonjour,
je viens de faire la récupération d'une mini "GED" (Gestion Electronique des Documents), mais les numérisations sont pages par pages (seulement recto) en X (X étant le nombre de pages) fichier .jpg. J'aimerai, par le biais d'un script CMD (batch) ou d'une macro Excel, générer automatiquement ces fichiers PDF. J'ai déjà généré l'arborescence grâce à deux macros Excel.

Pouvez-vous m'aider s'il vous plaît ?
Merci.

barnabe0057 · Answer

J'ai trouvé la solution, et ça m'a pris pas mal de temps ;)
Je t'ai fait un script Batch pour convertir tes documents, voilà le code :
@echo off:: on teste si nconvert.exe est présent if not exist %windir%\system32
convert.exe goto :eof:: répertoire source contenant les documents numérisésset rep_source=D:\RECUP_GED\3000057\Administratif:: on teste si le répertoire source existe biencd %rep_source%if not %errorlevel%==0 goto :eofif not exist "%rep_source%\Documents_PDF" mkdir "%rep_source%\Documents_PDF":: on définit un répertoire temporaireset dir_temp=D:\TMP_jpg_to_pdf:: on regroupe toutes les pages de chaque documentfor /f "tokens=1,2,3 delims=_." %%a in ('dir /b /a-d-s-l "*.jpg"') do (if not exist %dir_temp%\%%a mkdir %dir_temp%\%%acopy %%a_%%b.%%c %dir_temp%\%%a\ > nul)echo.:: on traite les documents un par uncd %dir_temp%for /f "tokens=*" %%a In ('dir /b /ad "*.*"') do (set fichier=%%acd %dir_temp%\%%aset /a compteur=0Setlocal enableextensions enabledelayedexpansionFor /r %%i In (*.jpg) Do (set /a compteur+=1)if !compteur! GTR 1 (nconvert -in jpeg -out pdf -multi -o res_!fichier!.pdf *.jpg) else (nconvert -in jpeg -out pdf -o res_!fichier!.pdf *.jpg)echo.move /y "res_!fichier!.pdf" "!rep_source!\Documents_PDF" > nul)Endlocalcd %USERPROFILE%rmdir /s /q "%dir_temp%"explorer /select,"%rep_source%\Documents_PDF":eof

rb12000 · Answer

Voici une partie de la liste, elle est au format XLSM.

barnabe0057 · Answer

Voilà la bête :
@echo offif not exist %windir%\system32
convert.exe goto :eofcd D:\Recup_GEDif not %errorlevel%==0 goto :eoffor /f "tokens=*" %%K In ('dir /b /ad "*.*"') do (for /f "tokens=*" %%E In ('dir /b /ad "%%~dpnK\*.*"') do (if not exist "%%~dpnK\%%E\Documents_PDF" mkdir "%%~dpnK\%%E\Documents_PDF"if not exist "%%~dpnK\%%E\TMP_jpg_to_pdf" mkdir "%%~dpnK\%%E\TMP_jpg_to_pdf"for /f "tokens=1,2,3 delims=_." %%A in ('dir /b /a-d-s-l "%%~dpnK\%%E\*.jpg"') do (if not exist "%%~dpnK\%%E\TMP_jpg_to_pdf\%%A" mkdir "%%~dpnK\%%E\TMP_jpg_to_pdf\%%A"copy %%~dpnK\%%E\%%A_%%B.%%C %%~dpnK\%%E\TMP_jpg_to_pdf\%%A > nul)for /f "tokens=*" %%R In ('dir /b /ad "%%~dpnK\%%E\TMP_jpg_to_pdf\*.*"') do (set fichier=%%Rset /a compteur=0Setlocal enableextensions enabledelayedexpansionFor /r %%I In (*.jpg) Do (set /a compteur+=1)if !compteur! GTR 1 (nconvert -in jpeg -out pdf -multi -c 5 -o res_!fichier!.pdf %%~dpnK\%%E\TMP_jpg_to_pdf\%%R\*.jpg) else (nconvert -in jpeg -out pdf -c 5 -o res_!fichier!.pdf %%~dpnK\%%E\TMP_jpg_to_pdf\%%R\*.jpg)echo.move /y "res_!fichier!.pdf" "%%~dpnK\%%E\Documents_PDF" > nulEndlocal)rmdir /s /q "%%~dpnK\%%E\TMP_jpg_to_pdf"))explorer /select,"%CD%":eof
J'espère que ça te plaira ;)
J'ai compressé les PDF au maximum, ils sont 3 à 4 fois plus petits que les images d'origine.

barnabe0057 · Answer

Voilà une version légèrement modifiée dans laquelle tous les PDF sont regroupés dans un unique dossier, je pense que c'est mieux comme ça :
@echo offif not exist %windir%\system32
convert.exe goto :eofset source=D:\RECUP_GEDset destination=Documents_PDFif %source:~0,2% EQU %CD:~0,2% (cd %source% || goto :eof) else (cd /d %source% || goto :eof)if not exist "%destination%" mkdir "%destination%"for /f "tokens=*" %%K In ('dir /b /ad "*.*"') do (for /f "tokens=*" %%E In ('dir /b /ad "%%~dpnK\*.*"') do (if not exist "%%~dpnK\%%E\TMP_jpg_to_pdf" mkdir "%%~dpnK\%%E\TMP_jpg_to_pdf"for /f "tokens=1,2,3 delims=_." %%A in ('dir /b /a-d-s-l "%%~dpnK\%%E\*.jpg"') do (if not exist "%%~dpnK\%%E\TMP_jpg_to_pdf\%%A" mkdir "%%~dpnK\%%E\TMP_jpg_to_pdf\%%A"copy "%%~dpnK\%%E\%%A_%%B.%%C" "%%~dpnK\%%E\TMP_jpg_to_pdf\%%A" > nul)for /f "tokens=*" %%R In ('dir /b /ad "%%~dpnK\%%E\TMP_jpg_to_pdf\*.*"') do (nconvert -in jpeg -out pdf -multi -c 5 -o recup_%%R.pdf "%%~dpnK\%%E\TMP_jpg_to_pdf\%%R\*.jpg"echo.move /y "recup_%%R.pdf" "%destination%" > nul)rmdir /s /q "%%~dpnK\%%E\TMP_jpg_to_pdf"))explorer /select,"%destination%":eof