Automator - créer un automatisme dossier pour les photos

Bonsoir,

alors voilà un nouveau script qui déplace tous les fichiers ayant le même nom, même avec une extension différente.

Dis moi si cela fonctionne chez toi, chez moi pas de problème.

Bloc de code:
tell application "Finder"
    set source to choose folder with prompt "Sélectionnez le dossier contenant les fichiers Originaux à effacer" as string
    set cible to choose folder with prompt "Sélectionnez le dossier contenant la sélection" as string
    set supprime to choose folder with prompt "Sélectionnez le dossier pour accueillir les fichiers à supprimer" as string
    
    set dossierorig to source as string
    set les_fichiers to files of cible
    repeat with chaque_fichier in les_fichiers
        set nom to name of chaque_fichier --récupère le nom du fichier
        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 AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
        
        set lefichier to quoted form of POSIX path of dossierorig & nomcourt & ".*"
        set ledossier to quoted form of POSIX path of supprime
        
        do shell script "mv " & lefichier & " " & ledossier
        
    end repeat
end tell

tell application "Finder"
    (display dialog ("waouou ... Ca y est c'est fait !") buttons {"Salut !"})
end tell