Bonjour, Je cherche a faire une macro permettant de d'inserer un document impress dans un autre document impress La fonction enregistrer ne fonctionnant par sur impress, j'ai enregistrer une action similaire sous writer et je m'en suis inspiré. Voici ma macro :

Sub InsertCours(cSrc,cDest)

Dim MonDocument As Object Dim dispatcher As Object Dim MaFrame As Object Dim PropFich()

cUrlSrc = ConvertToURL(cSrc) cUrlDest = ConvertToURL(cDest)

'---------------------------------------- ' Ouverture du fichier destinataire '---------------------------------------- MonDocument = StarDesktop.LoadComponentFromURL(cUrlDest,"_blank",0, PropFich) MaFrame = MonDocument.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

'---------------------------------------- 'Importation du fichier source '---------------------------------------- dim args1(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "Name" args1(0).Value = "file:///home/jguenver/testmacros/montest.odp" args1(1).Name = "Filter" args1(1).Value = "impress8" dispatcher.executeDispatch(MaFrame, ".uno:InsertDoc", "", 0, args1())

End Sub

Ce code ne génère aucune erreur mais ne fonctionne pas.

Une autre solution consisterait a procéder par étape et par un systeme de copier/coller de slides : - ouverture du fichier source - copie de tous les slides - femeture du fichier source - ouverture du fichier destinataire - coller tous les slides - enregistrer le fichier destinataire - fermer le fichier destinataire

Est ce que quelqu'un a une piste pour l'une ou l'autre solution ? Merci.

Cordialement, Jérôme.