Calc Enregistrement sous Mac par macro

patrick 83

Membre enregistré
9 Octobre 2018
1
0
57
Bonjour tous
Voici mon problème , je viens d' un pc sur lequel jai installe libre office avec cette macro qui fonctionnait très bien.
J'ai modifié le chemin d'enregistrement de mon document pour mon Mac mais hélas il y a un bug dans la macro car suite a mes testes le document ne va pas dans le dossier demandé
Pouvez vous m'aidé a trouver la solution ou me dire ou ça cloche
Merci

Bloc de code:
sub enregistre
    rem ----------------------------------------------------------------------
    rem definitions des variables
    rem ----------------------------------------------------------------------
    dim document   as object
    dim dispatcher as object
    rem ----------------------------------------------------------------------
    rem get access to the document
    rem ----------------------------------------------------------------------
    document   = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    rem ----------------------------------------------------------------------
    rem Récupération du contenu de la cellule B7
    rem ----------------------------------------------------------------------
    MonDoc = ThisComponent
    MaFeuil = MonDoc.CurrentController.ActiveSheet
    MonTxt = MaFeuil.GetCellRangeByName("A131").String
    rem ----------------------------------------------------------------------
    rem Enregistrement du nouveau fichier
    rem ----------------------------------------------------------------------
    dim args1(2) as new com.sun.star.beans.PropertyValue
    args1(0).Name = "URL"
    args1(0).Value = "file:///localhost/Users/Patrick/Professionel/Dossier%20patiente%20Open/"& MonTxt & ".ods"
    args1(1).Name = "FilterName"
    args1(1).Value = "calc8"
    args1(2).Name = "SelectionOnly"
    args1(2).Value = true
   

    dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())

    rem ----------------------------------------------------------------------
    rem fin de la macro
    rem ----------------------------------