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
