Merci Jacques,
Ça fonctionne super bien.
Je ne pensais pas que le "repeat with" crée en fait une boucle quasi automatique… sans avoir à compter les "items"
Pascal
> Le 10 mai 2021 à 16:39, Yvan KOENIG via Applescript_fr <applescript_fr@???> a écrit :
>
> Version censée traiter une liste d'aliases.
> Je n'ai pas pu la tester
> [script]
> on open fileNames -- fileNames est une liste d'aliases
> repeat with fileName in fileNames -- boucle censée traiter chacun des aliases de la liste
> tell application "Finder"
> set theFileName to name of fileName
> set theFilePath to fileName as string
> set lextension to name extension of fileName
> set nomcourt to text 1 thru ((length of theFileName) - (1 + (length of lextension))) of theFileName
> set folderPath to folder of fileName as alias
> set folderName to name of folderPath
> end tell
> tell application -"Microsoft Excel"
> activate
> open fileName
> set theDate to (value of cell "H2") as date -- retourne une date Applescript conforme aux réglages système
> set theYear to year of theDate as string -- je suppose que l'année est sur quatre chiffres
> if theYear < 100 then set theYear to theYear + 2000 -- suppose que la date relève du XXIème siècle
> set theYear to theYear as string
> set theMonth to text 2 thru 3 of ((100 + (month of theDate as number)) as string) -- on aura toujours deux chiffres
> set theDay to text 2 thru 3 of ((100 + (day of theDate)) as string) -- on aura toujours deux chiffres
> set NouveauTexte to theYear & "-" & theMonth & "-" & theDay
> set NewFileName to folderName & "-" & NouveauTexte & "." & lextension
> set chemin to folderPath as text
> set chemin2 to chemin & NewFileName
> set knt to 0
> repeat
> if my testPresence(chemin2) then
> set knt to knt + 1
> set NewFileName to folderName & "-" & NouveauTexte & "-" & knt & "." & lextension
> set chemin2 to chemin & NewFileName
> else
> exit repeat
> end if
> end repeat
> tell application "Finder" to set name of fileName to NewFileName
>
> end tell
> end repeat -- limite de la boucle
> end open
>
> on testPresence(p2f)
> tell application "Finder"
> return (exists file p2f)
> end tell
> end testPresence
> [/script]
>
> Yvan KOENIG (VALLAURIS, France) lundi 10 mai 2021 16:39:00
>
> _______________________________________________
> Applescript_fr mailing list
> Applescript_fr@???
> http://listes.patpro.net/mailman/listinfo/applescript_fr
_______________________________________________
Applescript_fr mailing list
Applescript_fr@???
http://listes.patpro.net/mailman/listinfo/applescript_fr
