Ca fonctionne enfin !! merci beaucoup ! je vous mets mon code apple Script (très long) exécuté dans la macro suivante :
Sub CreerDocWord()
Dim repertoire As String
repertoire = AppleScriptTask("ScriptWord.scpt", "CreerDocWord", "")
End Sub
on CreerDocWord()
tell application "Microsoft...