Il est vrai que certains membres ont leur petite spécialité et te concernant c'est vraiment sympa de ta part de toujours trouver une solution pérenne pour des trucs parfois farfelus. Merci pour tous les membres.Content pour toi !
Il est vrai que certains membres ont leur petite spécialité et te concernant c'est vraiment sympa de ta part de toujours trouver une solution pérenne pour des trucs parfois farfelus. Merci pour tous les membres.Content pour toi !
oui oui pas de probleme, étant informaticien, et ancien développeur, je n'ai pas eu trop de mal de comprendre le scripts et modifier les parametres pour l'adapter au mieux a mes besoin.Merci pour le retour !
J'espère que tu as trouvé comment changer la largeur et la couleur de la bordure...
 
					
				 
					
				--on adding folder items to Mon_Dossier after receiving Liste_Fichiers
tell application "Finder"
    set chaque_fichier to choose file with prompt "Sélectionnez le dossier"
    set Fimage to {"jpg", "jpeg", "png", "tiff", "gif", "bmp", "psd"} -- liste des extensions a traiter dans Fimage avec fonction mdls
    
    set nbcadre to display dialog "Entrer le nombre de cadre à créer :" default answer "1"
    set nbcadre to text returned of result
    set listcadre to {}
    repeat nbcadre times
        set epaisseur to display dialog "Entrer la valeur pour l'épaisseur de cadre 1 :" default answer "0,005"
        set epaisseur to text returned of result
        set listcadre to listcadre & epaisseur
        set couleur to display dialog "Entrer la couleur du cadre 1 au format RRVVBB :" default answer "000000"
        set couleur to text returned of result
        set listcadre to listcadre & couleur
    end repeat
    
    -- traitement des fichiers :
    --repeat with chaque_fichier in liste_fichiers -- répète avec chaque fichier du dossier en cour
    -- traitement d'un fichier
    tell application "Finder"
        
        set lapos to 1
        repeat with i from 1 to nbcadre
            set nom to name of chaque_fichier --récupère le nom du fichier
            set AppleScript's text item delimiters to {"."} -- defini le separateur
            set lextension to get last text item of nom -- recupère l'extension
            set lefichier to chaque_fichier as string --récupère le chemin du fichier au format chaine de caractères
            
            
            if lextension is in Fimage then -- si fichier video de la liste Fimage
                set lechemin to POSIX path of lefichier
                
                set lahauteur to do shell script "/usr/local/bin/exiftool -imageHeight " & quoted form of POSIX path of lefichier
                set lalargeur to do shell script "/usr/local/bin/exiftool -imageWidth " & quoted form of POSIX path of lefichier
                set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur
                set AppleScript's text item delimiters to {": "}
                set lalargeur to last text item of lalargeur
                set lahauteur to last text item of lahauteur
                set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
                
                set largeur to lalargeur as number
                set hauteur to lahauteur as number
                
                --recup valeur lecadre et couleur
                set lecadre to item lapos of listcadre
                set couleur to item (lapos + 1) of listcadre
                
                if largeur > hauteur then
                    set cadre to round (largeur * lecadre)
                else
                    set cadre to round (hauteur * lecadre)
                end if
                
                set Lcadre to (largeur + cadre) as string
                set Vcadre to (hauteur + cadre) as string
                
                
                set lacommande to "sips -p " & Vcadre & " " & Lcadre & "  -s formatOptions 100 --padColor " & couleur & " -i " & quoted form of lechemin
                
                do shell script lacommande
                
                
            end if
            set lapos to lapos + 2
        end repeat
        
    end tell
    --end repeat -- fichier suivant
end tell
--end adding folder items toon adding folder items to Mon_Dossier after receiving Liste_Fichiers
    
    tell application "Finder"
        set Fimage to {"jpg", "jpeg", "png", "tiff", "gif", "bmp", "psd"} -- liste des extensions a traiter dans Fimage avec fonction mdls
        
        set nbcadre to display dialog "Entrer le nombre de cadre à créer :" default answer "1"
        set nbcadre to text returned of result
        set listcadre to {}
        set i to 1
        repeat nbcadre times
            set epaisseur to display dialog "Entrer la valeur pour l'épaisseur de cadre " & i & " :" default answer "0,005"
            set epaisseur to text returned of result
            set listcadre to listcadre & epaisseur
            set couleur to display dialog "Entrer la couleur du cadre " & i & " au format RRVVBB :" default answer "000000"
            set couleur to text returned of result
            set listcadre to listcadre & couleur
            set i to i + 1
        end repeat
        
        -- traitement des fichiers :
        repeat with chaque_fichier in Liste_Fichiers -- répète avec chaque fichier du dossier en cour
            -- traitement d'un fichier
            tell application "Finder"
                
                set lapos to 1
                repeat with i from 1 to nbcadre
                    set nom to name of chaque_fichier --récupère le nom du fichier
                    set AppleScript's text item delimiters to {"."} -- defini le separateur
                    set lextension to get last text item of nom -- recupère l'extension
                    set lefichier to chaque_fichier as string --récupère le chemin du fichier au format chaine de caractères
                    
                    
                    if lextension is in Fimage then -- si fichier video de la liste Fimage
                        set lechemin to POSIX path of lefichier
                        
                        set lahauteur to do shell script "/usr/local/bin/exiftool -imageHeight " & quoted form of POSIX path of lefichier
                        set lalargeur to do shell script "/usr/local/bin/exiftool -imageWidth " & quoted form of POSIX path of lefichier
                        set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur
                        set AppleScript's text item delimiters to {": "}
                        set lalargeur to last text item of lalargeur
                        set lahauteur to last text item of lahauteur
                        set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
                        
                        set largeur to lalargeur as number
                        set hauteur to lahauteur as number
                        
                        --recup valeur lecadre et couleur
                        set lecadre to item lapos of listcadre
                        set couleur to item (lapos + 1) of listcadre
                        
                        if largeur > hauteur then
                            set cadre to round (largeur * lecadre)
                        else
                            set cadre to round (hauteur * lecadre)
                        end if
                        
                        set Lcadre to (largeur + cadre) as string
                        set Vcadre to (hauteur + cadre) as string
                        
                        
                        set lacommande to "sips -p " & Vcadre & " " & Lcadre & "  -s formatOptions 100 --padColor " & couleur & " -i " & quoted form of lechemin
                        
                        do shell script lacommande
                        
                        
                    end if
                    set lapos to lapos + 2
                end repeat
                
            end tell
        end repeat -- fichier suivant
    end tell
end adding folder items to 
	