[Résolu][Calc] Propriété incorrecte sur valeur date

[seb05]

1- Merci de respecter la syntaxe des balises : https://forum.openoffice.org/fr/forum/v ... 295#p27295
Le balisage doit être correctement orthographié (première lettre en majuscule puis le reste en minuscules), le tout entre crochets.
2- Mettez vos formules entre balises code, vous rendrez la lecture plus facile.
Pour ce faire, sélectionnez la formule et cliquez sur le bouton "Code" en haut à gauche de votre message. Nous l'avons fait pour vous.

Bonjour,
J'ai un problème avec une macro qui ne fonctionne plus en version 4....
J'ai le message
LibreOffice 4.3.5.2
Erreur d'exécution BASIC
Valeur de propriété incorrecte.

Il n'aime pas la ligne :

Code : Tout sélectionner

With Cellule 
   .Value = CDateFromIso( dlg.getControl("DateField1").Date ) 
   .NumberFormat = 39 '( 39 = date au format " 01 janv. 15 " )
 End With

Est ce que quelqu'un sait pourquoi cette fonctionnalité ne marche plus ?
Merci.
Seb.

[micmac]

Bonjour,

OpenOffice Version: 4.1.4.2 sousWIN8.1

LibreOffice 4.3.5.2

Accès direct à votre signature pour la renseigner correctement.

Cordialement.

[Piaf]

Bonjour
L'erreur est normale Voir : Différences de programmation entre AOO et LibO mais tu as plusieurs solutions pour remplacer CDateFromIso :

Code : Tout sélectionner

DateValue(dlg.getControl("DateField1").Text )
CDateFromUnoDate(dlg.getControl("DateField1").Date )
Annee = dlg.getControl("DateField1").Date.Year
Mois = dlg.getControl("DateField1").Date.Month
Jour = dlg.getControl("DateField1").Date.Day
DateSerial(Annee,Mois,Jour)

par exemple

Date.png

A+

[seb05]

Merci pour cette réponse.
Effectivement ça fonctionne en version 4 mais ça ne fonctionne plus en version 3.
J'ai besoin que mon fichier soit utilisable avec les deux versions....

[Piaf]

Bonjour
Je n'ai plus de vielles versions de LibO, mais avec AOO (donc à priori avec les versions plus anciennes de LibO) et les nouvelles versions de LibO, tu peux utiliser la solution de bm92

Code : Tout sélectionner

Sub Test(oEv as Object)
Dim dlg as Object
Dim maDate as Variant
	dlg = oEv.Source.Context
	maDate = dlg.getControl("DateField1").Date
	If IsNumeric(maDate)  Then
		MsgBox CDateFromIso(dlg.getControl("DateField1").Date)
	Else
		mSgBox CDateFromUnoDate(dlg.getControl("DateField1").Date)
	End if
End Sub

par exemple
A+

[seb05]

Ok ça marche !
Merci beaucoup.