tell application "Finder"
	set cheminsource to choose folder with prompt "Sélectionnez le dossier contenant les fichiers à exporter en PDF"
	set chemincible to choose folder with prompt "Sélectionnez le dossier cible"
	
	my inspecter(cheminsource, chemincible)
end tell

on inspecter(source, cible)
	tell application "Finder"
		-- traitement des fichiers :
		
		set les_fichiers to files of source
		repeat with chaque_fichier in les_fichiers
			-- traitement d'un fichier
			tell application "Finder"
				set lefichier to chaque_fichier
				set nom to name of chaque_fichier -- recupere le nom du fichier
				set extens to document file nom in source --recupere l extension du fichier
				set lextension to name extension of extens
				
				if lextension = "pages" then
					
					set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur
					set AppleScript's text item delimiters to {"."} --récupère la partie avant le dernier "."
					set elements to text items of nom
					set nomcourt to (items 1 thru -2 of elements) as string
					set ancien_nom to nomcourt
					set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
					
					set sortie to cible & ancien_nom & ".pdf" as string --défini le chemin de sortie
					
					
					set extension hidden of lefichier to false -- force affichage de l'extension
					set lefichier to chaque_fichier as string
					
					tell application "Pages"
						open file lefichier -- ouvre le fichier dans pages
						
						
						export document nom to file sortie as PDF --exporte en PDF
						
						close document nom --ferme le fichier
					end tell
				end if
				
			end tell
		end repeat
		-- traitement des dossiers :
		set les_dossiers to folders of source
		repeat with chaque_dossier in les_dossiers
			-- traitement d'un dossier
			my inspecter(chaque_dossier)
		end repeat
	end tell
end inspecter
tell application "Finder"
	(display dialog ("waouou ... Ca y est c'est fait !") buttons {"Salut !"})
end tell