[Résolu][Calc] fermeture fichier odt

[Roby68]

bonjour le Forum

Pour faire suite au code de "Dude" ( ci-dessous) pour une édition d'un fichier odt à partir de calc,

Code : Tout sélectionner

Sub EditionGUIDE
   dim AdresseDoc as String, AdresseUrl as String
   AdresseDoc = "S:\pse\12 - Dossier F. REFLEXES\Guide PSE 2017.odt"
   AdresseUrl = ConvertToUrl(AdresseDoc)
   oDoc = StarDesktop.LoadComponentFromURL(AdresseUrl,"_blank",0, array())
   'dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
   rem ----------------------------------------------------------------------
   dim args1(2) as new com.sun.star.beans.PropertyValue
   args1(0).Name = "Copies"
   args1(0).Value = 1
   args1(1).Name = "RangeText"
   args1(1).Value = "1"
   args1(2).Name = "Collate"
   args1(2).Value = true
   oDoc.print(args1())
    'dispatcher.executeDispatch(oDoc, ".uno:Print", "", 0, args1())
End Sub

j'aimerai qu'après l'édition du fichier odt qu'il soit fermé et que l'on puisse rester dans calc.

Le soucis qui apparait lorsque je lance enregistrer une macro, il ferme tous les fichiers, odt et ods.
Merci pour vos lumières.
Bonne journée Roby

Pour faciliter la lecture, code mis entre balises [code] par le modérateur.

[Dude]

Pour faire suite au code de "Dude"

Où est le lien vers le code que tu pompes ?

Pour fermer un document, tu utilises la méthode close.
A faire bien sûr pour l'objet déclaré pour le document et pas l'application, sans quoi...

il ferme tous les fichiers, odt et ods.

Je t'invite à utiliser XRay afin de voir les méthodes disponibles sur les objets de ton script.

[Roby68]

Re

bonjour dude

le lien demandé:
https://forum.openoffice.org/fr/forum/v ... er#p154062

[Roby68]

Merci de ne pas poster plusieurs messages à la suite !
Si vous devez ajouter un complément d'information, le bouton "Editer" à la droite du message permet d'y remédier.

En attendant une prochaine réponse, vous pouvez participer également en répondant à d'autres questions sur notre forum.

Re

Pour ma part, j'avais essayé l'instruction suivante à la suite de "print", pensant bien faire:

oDoc.close(true)

mais après l'exécution de la macro, je n'ai plus la main elle tourne en boucle.
Merci

[Piaf]

Bonjour
A tester

Code : Tout sélectionner

Sub EditionGUIDE
Dim AdresseDoc as String, AdresseUrl as String
Dim args1(3) as new com.sun.star.beans.PropertyValue
   AdresseDoc = "S:\pse\12 - Dossier F. REFLEXES\Guide PSE 2017.odt"
   AdresseUrl = ConvertToUrl(AdresseDoc)
   oDoc = StarDesktop.LoadComponentFromURL(AdresseUrl,"_blank",0, array())
   args1(0).Name = "Copies"
   args1(0).Value = 1
   args1(1).Name = "RangeText"
   args1(1).Value = "1"
   args1(2).Name = "Collate"
   args1(2).Value = true
   args1(3).Name = "Wait"
   args1(3).Value = true   
   oDoc.print(args1())
   oDoc.Close(True)
End Sub

A+

[Roby68]

Bonjour le Forum, Piaf

Merci et bonne journée à tous

Roby