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