Re: [prog] accéder à un bouton depuis le code

Tue, 08 Feb 2005 12:08:51 -0800 

Bonsoir Laurent, et encore merci de te pencher sur mon pb.



C'est etrange
as tu essay� le code snippet tel quel sans modif ?


Quasiment, tu trouveras ci-dessous un copi�-coll� du code que j'ai utilis�.

ta macro (l'equivalent de Test) est elle accessible ?
on ne peut a priori pas appeler une macro d'un document depuis un autre par exemple

Le probl�me vient s�rement de quelque chose comme �a. Mais ce que je ne comprend pas c'est que cette Macro (Modif_Facture) semble accessible; je m'explique :
J'ai cr�� cette macro pour mon document initial (Devis); mais comme mon document facture est cr�� par une copie du document initial, tous mes modules apparaissent pour les deux documents quand je regarde l'arborescence de mes macro (avec la petite roue crant�e) : J'ai
Sans nom1/Standard/[tous mes modules ET ().sxw/Standard/[tous mes modules].

Code :

'-------------------------------------------------------------------------------------------
'Assignation du bouton "Modifier"
'-------------------------------------------------------------------------------------------
Dim oDocument as Object
   Dim oView as Object
   Dim oDrawPage as Object
   Dim oForm as Object
   Dim oEvents(0) as New com.sun.star.script.ScriptEventDescriptor

   oDocument = StarDesktop.getCurrentComponent
   oView = oDocument.CurrentController
   oDrawPage = oView.getActiveSheet.DrawPage

   ' get the first form
   oForm = oDrawPage.getForms.getByIndex(0)

   oEvents(0).ListenerType = "XActionListener"
   oEvents(0).EventMethod  = "actionPerformed"
   oEvents(0).AddListenerParam = ""
   oEvents(0).ScriptType = "StarBasic"
   oEvents(0).ScriptCode = "document:Standard.Modif_Facture.Test_bouton"
   oForm.registerScriptEvent(0, oEvents(0))

End Sub
Sub Test(oEvt)
   Print oEvt.Source.Model.Name
End Sub



Et voici le code que j'utilise pour cr�er le document "Facture" � partir du doc "Devis"

REM  *****  BASIC  *****
option explicit
Global NomduFichier As String
Sub facture
Dim MonDocument As Object
MonDocument = ThisComponent
Dim MaFeuille As Object, celdes As Object
MaFeuille = MonDocument.Sheets(0)

'------------------------------------------------------------------
'Cr�ation du nouveau document : Facture = enregistrement du doc Devis comme doc Facture dans le bon dossier
'-----------------------------------------------------------------

Dim PropFich()
Dim Mois as string
Dim Moi as string
'----------------------------------------------------------------------------------------
'D�termination de la variable Mois permettant d'enregistrer la facture dans le bon dossier
'-----------------------------------------------------------------------------------------
Mois = cstr( month(date))
select case Mois
case 1:
Moi = "Janvier"
case 2:
Moi = "F�vrier"
case 3:
Moi = "Mars"
case 4:
Moi = "Avril"
case 5:
Moi = "Mai"
case 6:
Moi = "Juin"
case 7:
Moi = "Juillet"
case 8:
Moi = "Ao�t"
case 9:
Moi = "Septembre"
case 10:
Moi = "Octobre"
case 11:
Moi = "Novembre"
case 12:
Moi = "D�cembre"
end select


NomduFichier = "file:///D:/Mes Documents/Cine Soft/Gestion Commerciale/Factures/"+Moi+"/"+Client_select+"("+devi+").sxw"
MonDocument = ThisComponent
MonDocument.storetoURL(NomduFichier, PropFich)
Modifs () ' Modifs appel la routine qui permet de "transformer" le devis en facture
end sub

Encore merci,


Martin 


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

Répondre à