Forum OpenOffice LibreOffice NeoOffice

Alors déja salut à tous,

ca faisait longtemps que je ne vous avais pas embeté, j'espere que la petite Communauté OOo Fr va bien.
Les flagorneries passées je pose ma question.

Je suis sous vb .net et je fais des exports de fichiers (xls)
Mon soucis je n'arrive pas à trouver la fonction sous vb pour fixer un volet
j'ai fait ma macro Basic sous scalc et je trouve ca

Code : Tout sélectionner

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:FreezePanes", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$D$6"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

j'imagine que le point central c'est le FreezePanes mais je n'arrive pas a trouver l'equivalent en staroffice

j'espere que j'ai été clair/ que j'ai bien posté au bon endroit etc.
Merci d'avance pour vos réponses

(edit du titre afin de facilliter les recherches + tag résolu )

Bonjour,

Le titre de votre question n'est pas correctement orthographié. Du coup, votre problème sera impossible à retrouver par une recherche.

Avec autant de messages à votre compteur, pourriez-vous faire un effort ? Un titre clair et précis augmente vos chances d'obtenir des réponses plus rapidement.

La prochaine fois, merci de vous relire avant de poster.

Cordialement

oups! (j'étais sur que j'allais rater un truc)
merci pour la correction Bidouille.
au temps pour moi!!!

Bonsoir,
J'ai fait une recherche sur "figer" et non pas "fixer".
Ce fil correspond au problème :
http://user.services.openoffice.org/fr/ ... ilit=figer

Bonjour bernard,

c'est une bonne piste mais ceci est du code OOo Basic.
Je vais regarder un peu ce que je peux en faire en VB .net ;
merci pour la réponse je mettrais a jour le fil si (quand) je trouve ma réponse.

Cordialement

ok got it , je pose la réponse si ca peut servir

Code : Tout sélectionner

'---------------le contexte----------------------
  ConnectOpenOffice()
  Dim argsOpen(0) As Object
  argsOpen(0) = StarDesktop.Bridge_getStruct("com.sun.star.beans.PropertyValue")
  argsOpen(0).Name = "Hidden"
  argsOpen(0).Value = False
 myDoc = StarDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, argsOpen)
'---------------fin du contexte------------------
'*** Code utilise ***
myDoc.getCurrentController.select(myDoc.getSheets().getByName("sheet_name").getCellRangeByName("cell_name")) 'useless ?
myDoc.getCurrentController.freezeAtPosition(1, 1) 
'**********************

ca fonctionne.
Merci pour le freezeatposition qui m'a mis sur la voie
A bientot

Forum OpenOffice LibreOffice NeoOffice

[Résolu] [VB.net] Fixer (Figer) les volets sous Calc

[Résolu] [VB.net] Fixer (Figer) les volets sous Calc

Re: [Calc] [.net] Fixer Voler / Freeze Panned

Re: [VB.net] Fixer les volets sous Calc

Re: [VB.net][Calc] Fixer les volets

Re: [VB.net][Calc] Fixer les volets

Re: [VB.net][Calc] Fixer les volets