Bonjour,
Voici le script qui fonctionne grâce à Yvan Koenig et Jacques Piotrowski. Si ça peut servir à d'autres.
Mon assistante me demande : Est-ce possible de pouvoir poser plusieurs fichiers excel sur le Droplet ?
Et là, je ne sais pas lui répondre.
J'ai un script qui transforme les ".csv" en ".xlsx" et qui utilise "on run" et "on open" ensuite. Mais il ouvre une fenêtre de choix (choose folder) et là je voudrais que ce soit en glisser-déposer…
Je vais chercher, si vous avez une piste.
Bonne semaine
Pascal
> Voici ce qui fonctionne chez moi.
>
> [script]
> on open fileName
> if class of fileName is list then set fileName to first item of fileName
> 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 open
>
> on testPresence(p2f)
> tell application "Finder"
> return (exists file p2f)
> end tell
> end testPresence
> [script]
>
_______________________________________________
Applescript_fr mailing list
Applescript_fr@???
http://listes.patpro.net/mailman/listinfo/applescript_fr
