Re: [prog] ouverture de doc

Fri, 09 Jun 2006 23:24:34 -0700 

Bonjour,
Est-ce que la solution ne serait pas d'ouvrir le document mais sans qu'il soit visible ( propriété "Hidden" de propFich ) ? 

Amicalement,

Martin


----- Original Message ----- 
From: "Sebastien Remy" <[EMAIL PROTECTED]>

To: <prog@fr.openoffice.org>
Sent: Wednesday, June 07, 2006 10:37 AM
Subject: [prog] ouverture de doc



bonjour à tous,

j'ai programmé une macro qui ouvre un fichier et manipule les données. 
Cette première macro en appelle une autre, qui utilise aussi ce même 
fichier.
Mais le problème, c'est que je ne veux pas ouvrir une deuxième fois le 
doc, et si je ne l'ouvre pas une deuxième fois, il n'est pas reconnu, même 
si ma déclaration est globale. Quelqu'un peut-il m'expliquer ce que je 
peux faire ? (j'ai copier ci-dessous une partie des macros)



option explicit
global entree as object

Sub Validation

entree = 
StarDesktop.LoadComponentFromURL(ConvertToURL("Z:\SIME\SIME\entrees.ods"), 
"_blank", 0, prop)
Calc1 = 
StarDesktop.LoadComponentFromURL(ConvertToURL("Z:\SIME\SIME\calc1.ods"), 
"_blank", 0, prop)

cellule = entree.sheets(3).GetCellByPosition(0,cellule.CellAddress.row -1)

if cellule.Value = 0 then
   for i = 1 to n-1

       entree.sheets(3).GetCellByPosition(2,i+3).Value = 
Calc1.sheets(0).GetCellByPosition(1,i+1).Value
       entree.sheets(3).GetCellByPosition(0,i+3).Value = 
Calc1.sheets(0).GetCellByPosition(0,i+1).Value 
entree.sheets(3).GetCellByPosition(1,i+3).Value = CDateToIso(date)
       entree.sheets(3).GetCellByPosition(11,i+3).Value = 
Calc1.sheets(0).GetCellByPosition(9,i+1).Value

      semaine(entree.sheets(3).GetCellByPosition(0,i+3))
  next
end sub

option explicit

Sub semaine (cellule as object)
for i = 1 to n

   if entree.sheets(3).GetCellByPosition(0,cellule.CellAddress.row).Value 
= entree.sheets(1).GetCellByPosition(0,i).Value then



sortie.sheets(0).GetCellByPosition(1,cellule.CellAddress.row-1).String = 
entree.sheets(1).GetCellByPosition(1,i).String

       nbeleve = entree.sheets(1).GetCellByPosition(3,i).Value
       shon = entree.sheets(1).GetCellByPosition(4,i).Value
       shob = entree.sheets(1).GetCellByPosition(5,i).Value
       exit for
   end if
next

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]




---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]























					Répondre à