[Calc] anomalie datefield

[SYMPA44380]

Bonjour,
Je viens de migrer une application sur mon nouveau PC.
L" ancien Windows 10 version 21H1 libre office 6.2.1.2
le nouveau Windows 10 20H2 libre office 7.3.2.2
J' ai une boite de dialogue avec un champ datefield
que j' initialise par opd.getcontrol("Datefield1"=.date = cdatetounodate(datec)
DateC contient la date du jour
Lors de l' exécution l' affichage est correct mais je suis obligé de faire un doubler clic gauche pour que la date sélectionnée s' affiche dans la boite de dialogue !!!
Sur l' ancien PC un seul clic suffisait.
Dans les propriétés j' ai Vérification de format Oui
Activé oui
visible oui
tabulation oui compteur et répéter à Non
Déroulante Oui
Masquer la sélection Oui
J' ai fait plusieurs essais sur les deux PC en changeant certains paramètres , sans réussite
Que faire ?
Je précise qu' avec un double clic je récupère la bonne date mais c' est pénible.
D' avance merci
PS J' espère que mon exposé est clair car souvent je trouve les questions posées assez confuses ce qui m' empêche de répondre

[Bidouille]

Bonjour,

le nouveau Windows 10 20H2 libre office 7.3.2.2

Cette version est expérimentale et non recommandée sur ce forum.
Commencez par vous mettre à jour : https://forum.openoffice.org/fr/forum/v ... =2&t=49867
Puis corrigez l'information dans votre signature.

Si le problème persiste, joignez, non pas une capture d'écran, mais un document exhaustif permettant de reproduire ce que vous décrivez :
Comment joindre un fichier au format ODF
Pensez également à dépersonnaliser son contenu.


***

[SYMPA44380]

Merci pour votre diligence.
J'ai désormais téléchargé la version 7.2.6.2 mais j'ai toujours ce problème.
Un seul clic n' a aucun effet visible et un double clic affiche la date sélectionnée dans le champ date
et le contenu de ma variable est alors conforme à la saisie.
Cordialement
Raymond TINDEL

Code : Tout sélectionner

Sub EssaiDate
dim odialog as object, opdialog as object,DateC as date
exitok = com.sun.star.ui.dialogs.ExecutableDialogResults.OK
oDialog=DialogLibraries.Essais.Dialog1: Opd= CreateUnoDialog(oDialog)
Opd.getPeer().setProperty( "NativeWidgetLook", False )
opd.getcontrol("DateField1").date = cdatetounodate(Date - 30)
iDialogResult = Opd.execute()
if iDialogResult = exitOk then
DateC = cdatefromunodate(opd.getcontrol("DateField1").date)
print "Date saisie  " &  DateC
else
print "fin"
endif

End Sub

Pour faciliter la lecture, code mis entre balises par le modérateur.

[Bidouille]

J'ai désormais téléchargé la version 7.2.6.2 mais j'ai toujours ce problème.

Et donc, si cela persiste, pourquoi ne pas faire ce que je vous demande ?
Où se trouve le classeur concerné ?

[SYMPA44380]

Bonjour,
Tout d' abord merci de me répondre.
Je n' ai pas joint de classeur parce que, j' ai écrit une macro , sans lieu avec un classeur pour voir si ce problème se répétait.
Et il se répète.
Mais je me suis aperçu que dans mon module je n' avais pas mis BasicLibraries.nombibliothèque
alors je l' ai rajouté et maintenant cela fonctionne !!!!!!!!????

Cela fait maintenant 57 ans que je programme et il y a de plus n plus de choses que je ne maitrise pas.
C'est normal, à une époque on pouvait tout maitriser, le système d' exploitation, les langages (assembleur, cobol) , il n'existait ni réseau , tableur ni digitalisation.
Cordialement
Raymond TINDEL

[rollmops]

Bonjour,

Je n' ai pas joint de classeur parce que, j' ai écrit une macro , sans lieu avec un classeur

Je ne comprends pas car ton code fait appel à un dialogue qui doit nécessairement être enregistré dans un document.
Donc comment fais-tu pour que cela fonctionne ?

je trouve les questions posées assez confuses ce qui m' empêche de répondre

Cela inclut ta question également

[SYMPA44380]

Bonjour,
J'ai créé une macro dans un module de ma librairie Essais et je l' éxécute directement depuis le module basic.

Cela fonctionne bien dans la version Libreoffice 6.1 mais pas dans la version 7.2.6.2 ou je dis absolument faire un double clic

[Dude]

Salut,

J'ai créé une macro dans un module de ma librairie Essais et je l' éxécute directement depuis le module basic.

Et bien sois SYMPA... Et fournis ta bibliothèque(*) en l'intégrant dans un document.
Sinon on parle dans le vide.



(*) Une librairie en français est un endroit où on vend des livres.

[SYMPA44380]

Bonjour,
J' ai joint le module qui est l' unique élément de ma bibliothèque.
Quel intérêt à recopier les mêmes éléments ???
Et je précise que dans la version LibreOffice 6.2 cela fonctionne parfaitement, un seul clic suffit.
Cordiales salutations

[Dude]

J' ai joint le module qui est l' unique élément de ma bibliothèque.

Où est-il joint ?
Sans la bibliothèque Essais qui contient Dialog1, comment veux-tu que l'on reproduise ?
Franchement si tu ne veux pas faire d'effort, libre à toi.
Ici, on n'a aucun pouvoir de divination.
Donc, je m'arrête là.

Bon courage.

[SYMPA44380]

Bonjour,
J' ai cherché, en vain, le moyen de joindre ma bibliothèque Essais qui ne comporte qu' un module et une boite de dialogue consacrés à mon petit problème.
J' ai fait de multiples essais en combinant les propriétés compteur, répéter, déroulante etc ...
le résultat est toujours le même, un double clic est toujours nécessaire ce qui n' est pas le cas avec la version 6.2 de LibreOffice
Cordiales salutations

Code : Tout sélectionner

Sub EssaiDate
dim od as object, opd as object,DateC as date,exitOK%,idialogresult%
BasicLibraries.LoadLibrary("Essais")
DialogLibraries.LoadLibrary("Essais")
od=DialogLibraries.Essais.Dialog1
Opd= CreateUnoDialog(oD)
Opd.getPeer().setProperty( "NativeWidgetLook", False )
opd.getcontrol("DateField1").date = cdatetounodate(Date - 30)
iDialogResult = Opd.execute()
if iDialogResult = exitOk then
DateC = cdatefromunodate(opd.getcontrol("DateField1").date)
print "Date saisie  " &  DateC
else
print "fin"
endif

End Sub

Pour faciliter la lecture, code mis entre balises [ code]

[micmac]

Bonjour,

J' ai cherché, en vain, le moyen de joindre ma bibliothèque

À l'ouverture d'un nouveau message, descendez sous la barre de boutons qui contient Envoyer, vous y trouverez un onglet Pièces jointes, cliquez dessus puis Ajouter des fichiers et continuez et envoyez votre message.
N.B. Taille maxi des fichiers joints 500 Ko.
Les fichiers dont l'extension n'est pas autorisée doivent être encapsulés dans un ZIP.
.

pieces_jointes.png

[SYMPA44380]

Bonjour,
merci pour cette prompte réponse.
J' ai bien trouvé le bouton pour joindre un fichier, mais l' explorateur s' affiche , or mon module n' est pas accessible par ce moyen puiqqu' il se trouve dans une bibliothèque.
Alors, comment joindre une bibliothèque ?
merci

[Dolev]

Bonjour,

J' ai cherché, en vain, le moyen de joindre ma bibliothèque Essais

Lire la documentation en ligne, c'est expliqué
https://wiki.openoffice.org/wiki/FR/Doc ... _Libraries

[Bidouille]

Dernière visite : 22 mai 2022 07:00

Réponse lu et aucune nouvelle de l'auteur.
En l'absence de retour, je classe HS.

La prochaine fois, inutile de poster si c'est pour n'y donner aucune suite.
Merci aux intervenants d'avoir tenter d'aider... en vain.

[SYMPA44380]

Bonjour,
Je désire poster un sujet et joindre un classeur ainsi qu' une bibliothèque ne comportant qu' un seul module et une boite de dialogue.
Pas de problème pour joindre le classeur mais comment faire pour le module et le boite de dialogue ?
J' ai effectué de nombreuses recherches mais je n' ai pas trouvé la solution.

L' index parcourir stipulé dans l' aide n' apparait pas dans la version utilisée mais est affiché : Ajouter des fichiers et la recherche dans
programmes/libreoffice/share/basic ne donne pas accès à ce que je cherche.
Quel est le chemin d' accès complet à utiliser ?
Cordialement

[Bidouille]

Puisque vous vous réveillez après 3 mois, il aurait été sympa de préciser qu'il s'agit de la suite de votre précédente question.
Je fusionne donc le fil.

Veillez à donner suite quand on vous répond, vous nous évitez du travail de modération inutile.

[Dude]

joindre un classeur ainsi qu' une bibliothèque ne comportant qu' un seul module et une boite de dialogue.

Déjà expliqué au mois de mai :

Et fournis ta bibliothèque en l'intégrant dans un document.

Pour ce faire, Tu passes par le bouton Gérer du dialogue de gestion des Macros :

no_problemo.gif

Pour copier à la souris, tu maintiens la touche Ctrl enfoncée pendant l'opération de déplacement du module.
Tu feras la même opération pour le dialogue.