Bonjour,
je te livre ci-dessous le code que j'utilise pour r�cup�rer les infos d'un
champ Date dans calc.( Cf p 474 du livre de Bernard Marcelly)
Cela doit �tre assez facilement adaptable � writer .
Amicalement,
Martin
Sub Recup_date
Dim MonDocument As Object
Dim MaFeuille As Object, MaPage as object, celdes As Object
Dim DateField as object
Dim moncontrolleur as object
Dim lesFormulaires as object, monformulaire as object
Dim monCtrl as object
MonDocument = ThisComponent
moncontroleur = MonDocument.CurrentController
MaFeuille = MonDocument.Sheets(0)
MaPage = MaFeuille.DrawPage
lesFormulaires = MaPage.Forms
monformulaire = lesFormulaires.getByName("FM1")
monCtrl = monformulaire.getByName("DateField1")
Celdes = MaFeuille.getCellByPosition (3,11)
Dim madate as date
madate = ConvDate(monCtrl.date)
Celdes.value = madate
End Sub
REM
Public Sub ConvDate (Byval Dat as string) As string
dim temp as string
if Dat=0 then
temp=""
else
temp= Right(Dat,2)+ "/" + Mid(Dat,5,2)+ "/" + Left(Dat,4)
end if
ConvDate=temp
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
