Microsoft 365 Création d'un nouvel onglet du ruban en vba et y attacher 4 macros complémentaires (MAC et PC)

-- ExtractScript.scpt

on extractTask()
    -- Définir les chemins basés sur les paramètres ou les fixer ici
   -- ici on peut les coder en dur puisque  ils sont sansés etre toujours au meme endroit 
    set archivePath to "/chemin/vers/sample.zip"
    set destinationFolderPath to "/chemin/vers/projetUI"
  
    -- Supprimer le dossier de destination s'il existe (ne fait rien sil il n'existe pas)
    do shell script "rm -rf " & quoted form of destinationFolderPath with administrator privileges
  
    -- Créer le dossier de destination
    do shell script "mkdir -p " & quoted form of destinationFolderPath with administrator privileges
  
    -- Définir les autorisations pour le dossier de destination
    do shell script "chown -R $(whoami) " & quoted form of destinationFolderPath with administrator privileges
    do shell script "chmod -R 755 " & quoted form of destinationFolderPath with administrator privileges
  
    -- Extraire l'archive dans le dossier de destination
    do shell script "unzip " & quoted form of archivePath & " -d " & quoted form of destinationFolderPath with administrator privileges
 -- Supprimer l'archive après l'extraction   
    do shell script "rm " & quoted form of archivePath with administrator privileges 
    return "Extraction terminée avec succès"
end extractTask

-- CompressScript.scpt

on compressTask()
    -- Définir les chemins basés sur les paramètres ou les fixer ici
    set destinationFolderPath to "/chemin/vers/projetUI"
    set newArchivePath to "/chemin/vers/projetUI.zip"
  
    -- Recompresser le contenu du dossier projetUI dans une nouvelle archive
    do shell script "zip -r " & quoted form of newArchivePath & " " & quoted form of destinationFolderPath with administrator privileges
  
    return "Compression terminée avec succès"
end compressTask

Sub RunAppleScriptTasks()
    Dim scriptName As String
    Dim handlerName As String
     Dim result As String

    ' Appeler le script d'extraction
    scriptName = "ExtractScript.scpt"
    handlerName = "extractTask"
  
    result = AppleScriptTask(scriptName, handlerName, "")
    MsgBox "Extraction: " & result
End Sub
 
Sub RunAppleScriptTasks2()
  ' Appeler le script de compression
    scriptName = "CompressScript.scpt"
    handlerName = "compressTask"
  
    result = AppleScriptTask(scriptName, handlerName, "")
    MsgBox "Compression: " & result
End Sub