Bonsoir,
J'ai fais un exemple tout bête : je sais que je peut le faire avec VBA mais c'était pour apprendre à passer des paramètres de VBA à Applescript avec un retour.
Voilà :
le Script (SuppressionElementListe.scpt)
on run {ma_liste, Position}
**** pour info ma_liste ressemble à çà {"a", "b", "c", "d", "e"} ****
log ma_liste
set ma_liste to suppression(ma_liste, Position)
log ma_liste
return ma_liste
end run
on suppression(liste, nbr)
if (nbr > length of liste) or (nbr < 1) then return liste
if nbr > 1 then
set resultat to ((beginning of liste) as list) & suppression(rest of liste, nbr - 1)
else
return rest of liste
end if
end suppression
le code VBA
Sub essaiPassageAuto()
' Déclarations
Dim ma_liste as string
Dim ScriptToRun As String
Dim Res As String
' Initialisations
ma_liste = {"a", "b", "c", "d", "e"}
' Phrase de lancement Script
ScriptToRun = "run script (""Macintosh HD:users:PATRICK:Desktop:DOSSIERS Desktop:Script-AppleScript:SuppressionElementListe.scpt"" as alias) with parameters {ma_liste, 3}"
' Lancement avec retour dans Res
Res = MacScript(ScriptToRun)
End Sub
Pour le retour dans Res je ne suis pas sûr.
(il y a certaines lignes qui apparaissent en vert c'est un bug)
Merci