Bonjour, j'ai un problème avec la fonction AppleScriptTask dans Excel pour Mac. Plus précisément j'ai codé deux AppleScript différents, un pour définir une variable globale avec une valeur fournie par VBA, et le second pour enregistrer mon classeur automatiquement
dans un dossier de mon choix. Mon problème réside dans le fait que le premier appel à la fonction AppleScriptTask se déroule sans soucis, alors que le second me renvoie une erreur "Erreur d'exécution 5, argument ou appel de procédure incorrect".
Voici la macro en question sous VBA :
Sub Creation_Dossier_mac()
Dim script As Variant
Dim scriptReturn As Variant
Exercice_comptable = Year(Now) - 1 & "-" & Year(Now)
Nom_utilisateur = Application.UserName
'appelle un apple script pour créer de nouveauyx fichier dans le dossier correspondant
CheminDossier = ":User:TEST:Desktop:TEST" '":Users:TEST:One Drive - SARL Maison Branche:Gestion des stocks BRASSERIE" " & Nom_utilisateur & "
Annee_Exercice = Exercice_comptable
'script = AppleScriptTask("CreationDossier.scpt", "exercice", Annee_Exercice)
MsgBox CheminDossier & " " & Annee_Exercice
'script = AppleScriptTask("CreationDossier.scpt", "exercice", Annee_Exercice)
'MsgBox script
handleName = "creationDossier"
scriptReturn = AppleScriptTask("Test.scpt", handleName, CheminDossier)
'script = AppleScriptTask("CreationDossier.scpt", "creation_dossier", CheminDossier, Annee_exercice)
End Sub
Et voici le Script AS :
on creationDossier(CheminDossier)
--annee_exercice)
set annee_exercice
to "2019-2020"
set ListeMois
to {"OCTOBRE", "NOVEMBRE", "DECEMBRE", "JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE"}
tell application "System Events"
make
new folder
at folder
CheminDossier
with properties {name:"Exercice Comptable" & (annee_exercice
as string)}
make
new folder
at folder (CheminDossier & ":Exercice Comptable" & (annee_exercice
as string))
with properties {name:"Factures"}
make
new folder
at folder (CheminDossier & ":Exercice Comptable" & (annee_exercice
as string))
with properties {name:"Suivi Client"}
make
new folder
at folder (CheminDossier & ":Exercice Comptable" & (annee_exercice
as string))
with properties {name:"Sauvegardes et graphiques"}
repeat with
mois in ListeMois
make
new folder
at folder (CheminDossier & ":Exercice Comptable" & (annee_exercice
as string) & ":Factures")
with properties {name:(mois
as string)}
end repeat
end tell
end
creationDossier
Je précise que les scripts AS sont stockés dans le dossier com.microsoft.Excel et que en exécutant seulement les scripts ils fonctionnent parfaitement. Le problème vient donc de la fonction ApplScriptTask.
Quelqu'un aurait une idée de ce qui pourrait coincer dans l'exécution de la fonction?