Discussion :

[PJ_VBA]

Bonjour,

Je travaille sur une macro et je rencontre une difficulté. En fait, j'ouvre par code un nouveau fichier où je souhaite notamment y ajouter une nouvelle feuille "Détail" après la première feuille. Mon code actuel abouti abouti à un rajout mais dans le fichier source "Origine" (qui doit rester ouvert) et non dans le nouveau fichier (qui doit rester ouvert également).

Zone1 de code posant problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
monDocument = ThisComponent
lesFeuilles = monDocument.Sheets
lesFeuilles.insertNewByName("Détail", 1)

Je souhaite aussi enregistrer le fichier créé sous le nom "rapport" et le placer dans un dossier nommé "T3" se trouvant sur mon bureau. J'ai mis un bout de code à ce sujet que j'ai récupérer mais, débutant en programmation OO, je ne comprends pas bien la syntaxe et donc je ne sais pas comment l'adapter à mon projet.

Zone 2 de code posant problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim document* *as object
dim dispatcher as object
 
rem get access to the document
document* *= ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
 
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = ConvertToUrl(myfilename) 'On converti le chemin 
args1(1).Name = "FilterName"
args1(1).Value = "calc8"
 
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())

Quelqu'un pourrait-il m'aider ?

Nota : Je doit rendre utilisable cette macro sous LibreOffice 3.6 (par obligation de version) avec Windows 7

En vous remerciant par avance

[Pascaltech]

Bonjour,

Pour ta première demande voici un code exemple de création d'un fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dok = StarDesktop.loadComponentFromURL( "private:factory/scalc", "_blank", 0, Array())

Dans ta déclaration :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
monDocument = ThisComponent
lesFeuilles = monDocument.Sheets
lesFeuilles.insertNewByName("Détail", 1)

il n'apparaît qu'un seul document : ThisComponent, c'est à dire le document calc actif lors de l'exécution du code.

"Mon code actuel abouti à un rajout mais dans le fichier source "Origine" (qui doit rester ouvert) et non dans le nouveau fichier (qui doit rester ouvert également)." ce qui est cohérent puisqu'il n'y a qu'un seul document calc ouvert.

Je ne peux pas te répondre sur le deuxième point, je ne maîtrise pas la fonction dispatcher.

A+

[PJ_VBA]

Bonjour et merci d'avoir porté attention à mon problème.
Le document "Origine" est effectivement ouvert et le nouveau classeur est créé. J'ai besoin de savoir le code pour "activer" ce nouveau classeur et y insérer la feuille "Détail".

A +

[jurassic pork]

hello,
c'est tout simple, ton nouveau document est en fait oClassrB , il suffit que tu fasses :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   'Insère feuille dans classeur créé :
  lesFeuilles = oClassrB.Sheets
' insérer la feuille "Détail" après la feuille "Synthèse"
   lesFeuilles.insertNewByName("Détail", 1)

Ami calmant, J.P

[PJ_VBA]

Merci beaucoup J.P. Cela résout parfaitement mon problème d'insertion. Auriez-vous la réponse pour mon deuxième point concernant la sauvegarde ?

En vous remerciant par avance,
PJ

[jurassic pork]

Pour l'enregistrement tu peux faire un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  Dim Fichier
   Dim Opts()
   Fichier = ConvertToUrl("F:\temp\synthèse.ods") 
   'on enregistre le fichier destination
   oClassrb.storeAsURL (Fichier, Opts())

[PJ_VBA]

Un grand bravo JP,
Vous avez résolu mes deux problèmes. Merci aussi de m'avoir fait progressé.

Plein de bonnes choses et excellent WE

PJ