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

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Yac
Membre OOrganisé
Membre OOrganisé
Messages : 69
Inscription : 28 mars 2008 12:35

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

Message par Yac »

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 )
Dernière modification par Yac le 02 déc. 2010 11:50, modifié 1 fois.
OOo 3.2
Windows XP SP3/sept
Avatar de l’utilisateur
Bidouille
RespOOnsable forum
RespOOnsable forum
Messages : 12200
Inscription : 08 nov. 2005 16:23
Localisation : Caen, France

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

Message par Bidouille »

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
Yac
Membre OOrganisé
Membre OOrganisé
Messages : 69
Inscription : 28 mars 2008 12:35

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

Message par Yac »

oups! (j'étais sur que j'allais rater un truc)
merci pour la correction Bidouille.
au temps pour moi!!!
OOo 3.2
Windows XP SP3/sept
bm92
ManitOOu
ManitOOu
Messages : 2562
Inscription : 26 nov. 2005 13:42

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

Message par bm92 »

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
Bernard

OpenOffice.org 1.1.5 fr / Apache OpenOffice 4.1.1 / LibreOffice 5.0.5.2 (X64)
MS-Windows 7 SP1 64bits Familial
Yac
Membre OOrganisé
Membre OOrganisé
Messages : 69
Inscription : 28 mars 2008 12:35

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

Message par Yac »

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
OOo 3.2
Windows XP SP3/sept
Yac
Membre OOrganisé
Membre OOrganisé
Messages : 69
Inscription : 28 mars 2008 12:35

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

Message par Yac »

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
Dernière modification par Oukcha le 02 déc. 2010 12:03, modifié 1 fois.
Raison : Correction code, les balises [b][/b] ne sont pas interprétées si incluses dans balises [code][/code]
OOo 3.2
Windows XP SP3/sept