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
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 ----------------------------------