Discussion :

[jefmonde]

Bonjour,

Je sais lancer un programme applescript avec une macro sous mac 2011. Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ChDir " le chemin ou se trouve le programme applescript:"
            MacScript ("nom du programme.scpt")

Avec mac 2016 l'instruction MacScript n'est plus pris en charge, il faut mettre < AppleScriptTask >. On trouve avec ce lien : https://msdn.microsoft.com/fr-fr/vba...pplescripttask... une page de microsoft qui donne une explication et la procédure pour utiliser AppleScriptTask, je ne comprends rien à la procédure donnée.

Quelqu'un peut-il expliquer clairement la procédure ? et guider le nul d'Excel 2016 que je suis. Je vous remercie.

Cordialement

JFZ

[kiki29]

Salut, va voir par ici dans les rubriques Mac.

[RyuAutodidacte]

Bonjour,

L'expliquer comme cela à la volée un peu compliquer, je vais faire simple :

• les scripts AppleScript sont à mettre dans un dossier spécifique pour être exécuté : ~/Library/Application Scripts/com.microsoft.Excel/
-- il y a les mêmes type de dossiers pour Word et PowerPoint :
----> ~/Library/Application Scripts/com.microsoft.Word/
----> ~/Library/Application Scripts/com.microsoft.Powerpoint/
Si ces dossiers n'existent pas, il faut les créer à l'emplacement indiqué

• les scripts AppleScript doivent être exécutés (afin de ne pas être bloquer par la SandBox d'Apple) via la commande AppleScriptTask faisant appel au script AS enregistré dans ledit dossier : com.microsoft.Excel (cf. ci-dessus)
Ces scripts doivent être construits en tant que fonction avec un paramètre au choix, donc les scripts commencent toujours par : on NomFonctionAS(UnParamètre)
UnParamètre est de type String

Code applescript :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    on NomFonctionAS(UnParamètre) -- UnParamètre peut être le chemin d'un dossier, d'un fichier ou autre
 
       -- Mettre le code de l'Applescript en indiquant UnParamètre si il y en a un
 
    end NomFonctionAS

• les scripts Applescript sont appelé de cette manière :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RésultatDuScript  = AppleScriptTask ("NomFichierAS.scpt", "NomFonctionAS", "UnParamètre")

RésultatDuScript est une variable (on peut choisir un autre nom) est de type String => donc le résultat en retour sera un String

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim RésultatDuScript as String

Ces 3 paramètres ("NomFichierAS.scpt", "NomFonctionAS", "UnParamètre") sont à marqué comme des String

Dans le cas où l'on attend pas de résultat , on peut écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AppleScriptTask "NomFichierAS.scpt", "NomFonctionAS", "UnParamètre"

Problème avec UnParamètre, comme sont nom l'indique, on ne peut qu'en mettre un.

Je sais que Ron de Bruin a fait qq chose la dessus, pour ma part, je préfère faire les choses par moi même et j'ai fait toute un procédure concernant VBA/MacScript/AppleScriptTask (Multicritères/Multi-paramètres)/AppleScript.
J'ai encore des choses à finaliser …

Voilà j'espère avoir été assez claire …

[jefmonde]

Merci RyuAutodidacte pour ta réponse détaillée.

Il me reste une petite zone d'ombre avant de me lancer.
~/Library/Application Scripts/com.microsoft.Excel/ se met dans quelle bibliothèque ? puisqu'il y en a trois sous mac. La bibliothèque personnelle ?

Cordialement

JFZ

[RyuAutodidacte]

Bonjour,

Il me reste une petite zone d'ombre avant de me lancer.
~/Library/Application Scripts/com.microsoft.Excel/ se met dans quelle bibliothèque ? puisqu'il y en a trois sous mac. La bibliothèque personnelle ?

oui la bibliothèque du User
il suffit d'aller dans le menu du Finder menu "Aller" --> "Aller au dossier …" et de marquer le chemin (~/Library/Application Scripts/com.microsoft.Excel/) pour y arriver



Si cela ne marche pas, cela veut dire que le dossier n'existe pas, dans ce cas là alors mettre à la place : ~/Library/Application Scripts/ et créer le dossier com.microsoft.Excel

Sinon il y a ce que j'ai créé et qui fait partie de ma procédure pour ce faire (code AppleScript) :

Installation du dossier «com.microsoft.Excel» et du fichier «GetMyScript.scpt» - création de ceux-ci si il n’existe pas

Code applescript :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
-- Code créé par RyuAutodidacte
set userName to short user name of (system info)
set chm to "/Users/" & userName & "/Library/Application Scripts/com.microsoft.Excel/"
 
set VeriFicExiste to do shell script " test -f " & quoted form of (chm & "GetMyScript.scpt") & "; echo $?"
 
set VerifDosExiste to do shell script "test -d " & quoted form of chm & "; echo $?"
 
set CreaFicScript to quoted form of "on CreaMyScript(myparam)
	set {myTID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, {\"|||\"}}
	set myList to text items of myparam
	set AppleScript's text item delimiters to myTID
	set MonScript to item 1 of myList
	set fichier to item 2 of myList
	set userName to short user name of (system info)
	set chm to \"/Users/\" & userName & \"/Library/Application Scripts/com.microsoft.Excel/\"
	do shell script \"osacompile -e\" & quoted form of MonScript & \" -o \" & quoted form of (chm & fichier)
end CreaMyScritp"
 
if VerifDosExiste = "0" then
	display alert "Le dossier \"com.microsoft.Excel\" existe déjà"
	if VeriFicExiste = "0" then
		display alert "Le fichier \"GetMyScript.scpt\" existe déjà"
	else
		do shell script "osacompile -e " & CreaFicScript & " -o " & quoted form of (chm & "GetMyScript.scpt")
		display alert "Le fichier \"GetMyScript.scpt\" a été créé"
	end if
else
	do shell script "mkdir " & quoted form of chm
	display alert "Le dossier \"com.microsoft.Excel\" a été créé"
	do shell script "osacompile -e " & CreaFicScript & " -o " & quoted form of (chm & "GetMyScript.scpt")
	display alert "Le fichier \"GetMyScript.scpt\" a été créé"
end if

N'hésite pas à liker de si mes réponses t'ont été utile

Ryu

[jefmonde]

Ryu

Merci infiniment pour tes explications, j'ai compris. Cordialement. Tout est OK.

JFZ

[jefmonde]

Merci aussi à Kiki29 que j'ai failli oublier. Excusez moi.