Oops, j'ai oublié de supprimer les (* et *) qui me permettent de compiler le script sur ma machine.
Je corrige ci-dessous
> Le 29 oct. 2019 à 21:22, Yvan KOENIG via Applescript_fr <applescript_fr@???> a écrit :
>
> Il y a une solution brutale mais qui devrait fonctionner.
> Avant d'exécuter l'instruction Save, supprimer le fichier existant
>
>
> #<code>
> tell application "Mail"
> -- récupère le message sélectionné
> set unMessage to item 1 of (get the selection)
> -- passe son contenu dans le presse papiers
> set the clipboard to (get content of unMessage)
> end tell
> # défini le nom tableur - éditer selon vos besoins
> set workbookName to "My Workbook.xlsx"
> # défini le chemin d'accès complet au tableur - éditer selon vos besoins
> set destinationPath to (path to documents folder as text) & workbookName
>
> # Implantation 1
> tell application "System Events"
> if exists disk item destinationPath then delete disk item destinationPath
> end tell
> #(* Instruction inopportune
> tell application "Microsoft Excel"
> # crée un nouveau tableur
> make new workbook
> tell sheet "Feuil1" of active workbook
> activate object range "A1"
> paste
> end tell
> # Implantation 2
> tell application "Finder"
> if exists file destinationPath then delete file destinationPath
> end tell
> # Enregistre le tableur
> save active workbook in destinationPath
> end tell
> #*) Instruction inopportune
> #/<code>
>
> Les deux implantations sont correctes.
> Je vous laisse choisir.
> Comme je déteste le Finder, je ne l'utilise pas.
> System Events efface le fichier sans le mettre dans la corbeille.
> Je vous ai mis les deux codes, à vous de choisir.
>
Yvan KOENIG (VALLAURIS, France) mardi 29 octobre 2019 21:27:41
_______________________________________________
Applescript_fr mailing list
Applescript_fr@???
http://listes.patpro.net/mailman/listinfo/applescript_fr
