Comment extraire la première page de plusieurs pdf

@echo off
setlocal enableextensions
mode con: cols=90 lines=30

if not exist "%windir%\System32\pdftk.exe" (goto :eof)
if "A%~1A"=="AA" (goto :eof)
if exist %1 (call :traitement %1 "Resultat")

exit /b 0

:traitement
cd /d %1
if not exist "%~2" (mkdir "%~2")
if exist "%~2\combined.pdf" (del /f /q "%~2\*.pdf")

for %%A in (*.pdf) do (
echo. & echo ### %%A : extraction de page
pdftk "%%A" cat 1 output "%~2\p1#%%~A"
)

cd %~2
echo. & echo ######################### Fusion des documents ...
pdftk "*.pdf" cat output "combined.pdf"

del /f /q "p1*.pdf"

goto :eof

rem

@echo off
setlocal EnableExtensions EnableDelayedExpansion
mode con: cols=90 lines=30
color 0A

cd /d %USERPROFILE%
set "chemin="

for %%A in (Desktop Downloads) do (
 for /f "delims=" %%E in ('dir /s /b /a-d %%A') do (
  if "%%~nxE"=="pdftk.exe" (set chemin=%%~dpE)
 )
)

if not defined chemin (exit /b 1)

echo. & echo ==^>^> !chemin! ^<^<==
set PATH=%PATH%;!chemin!

if "A%~1A"=="AA" (exit /b 1)
if exist %1 (call :traitement %1 "Resultat" combined)

exit /b 0

:traitement
cd /d %1
if not exist "%~2" (mkdir "%~2")
if exist "%~2\%3.pdf" (del /f /q "%~2\*.pdf")

for %%A in (*.pdf) do (
echo. & echo ### %%A : extraction de page
pdftk "%%A" cat 1 output "%~2\p1#%%~A"
)

cd %~2
echo. & echo ######################### Fusion des documents ...
pdftk "*.pdf" cat output "%3.pdf"

del /f /q "p1*.pdf"

goto :eof

rem