Re: [fr-users] Macro Calc qui ne marche plus en V5

Pour ceux que ça intéresse...

Méthode de débogage pour ce cas de plantage

1. Installer l'outil xray de Bernard Marcelly

à télécharger ici :
http://berma.pagesperso-orange.fr/

2. Dans notre code, après avoir décomposé la ligne plantogène

oPDialog.getControl("DateField1").setDate(CDateToIso(Date))

en

oControl = oPDialog.getControl("DateField1")
oControl.setDate(CDateToIso(Date))

ajouter une instruction

oControl = oPDialog.getControl("DateField1")
xray oControl
oControl.setDate(CDateToIso(Date))

pour analyser le contrôle DateField et ses propriétés et méthodes.

(pour que l'instruction fonctionne, la bibliothèque xray doit avoir été 
chargée : il suffit de l'ouvrir dans l'IDE au préalable [la double cliquer])

3. Exécuter

L'outil XRay affiche les infos demandées

4. On y voit que, dans les méthodes de oControl, la méthode setDate() 
attend un type "struct".

5. Ensuite chercher sur internet "libreoffice datefield setdate"
qui renvoie vers (4e entrée sous le moteur de recherche StartPage)

"[Solved] Put current date into Date Field"
https://forum.openoffice.org/en/forum/viewtopic.php?f=20&t=67996

où l'on voit qu'il s'agit d'une structure de type com.sun.star.util.Date


Infos complémentaires
---------------------

Pour que le sous-programme fonctionne à la fois sous OOo ET sous LibO, 
il faut utiliser une variable de type Variant, comme ceci :
(adapté de B Marcelly in
https://forum.openoffice.org/en/forum/viewtopic.php?f=20&t=67996
)

Dim l_Now As Date
Dim l_Date As Variant   'l'astuce est là

oControl = oPDialog.getControl("DateField1")
l_Now = Now()
l_Date = oControl.Date
if IsUnoStruct(l_Date) then ' LibreOffice >= 4.1.1
  l_Date.Year  = Year(l_Now)
  l_Date.Month = Month(l_Now)
  l_Date.Day   = Day(l_Now)
  oControl.Date = l_Date
else                        ' Apache OpenOffice
  oControl.Date = CLng(CDateToIso(l_Now))
endif


PS : Merci à Bernard Marcelly, bienfaiteur de l'Humanité.

Bien cordialement,
--
Jean-Francois Nifenecker, Bordeaux


--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés