[Résolu][Calc] Horloge active dans feuille

[Gringoire]

Je désir importer l'horloge active interne dans une feuille Calc H/Min/Sec.

[micmac]

Bonjour à vous aussi,

Nous avons l'habitude de saluer sur ce forum. Règle du forum n°10

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche.
Avez-vous remarqué comment étaient postées les autres questions ?

Lisez ce fil pour savoir quelle balise utiliser : https://forum.openoffice.org/fr/forum/s ... html#27295

N'oubliez pas que les termes "Macro" ou "OpenOffice" ne doivent pas être employés car il sont implicites. Essayez de synthétiser au mieux ce que vous cherchez à faire.

Un titre accrocheur vous permettra d'une part d'être aidé plus rapidement et d'autre part, d'enrichir notre base de connaissances.

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.

Merci de votre collaboration.

[Gringoire]

Bon soir et merci, bien reçu ce message, entre trop peu et pléthore je dois trouver mon milieu.

[Piaf]

Bonjour
Tu peux t'inspirer du travail de ThierryM dans ce fil Horloge dans Calc
A+

[Gringoire]

Calc Libre Office Ubuntu 16.4. Bonsoir et merci de votre aide. J'ai bien capturé le LISTENER mais il rechigne à s'ouvrir correctement. J'ai la Macro, mais ne sais la "figer" dans ma boite à Macros(au vin blanc), ne sais non plus répondre à ThierryM père du Listener. Bon, j'avance... avec vous.

[Piaf]

Bonsoir
Si tu veux juste afficher l'heure dans une cellule, la mise en place du listener n'est pas nécessaire.
Il suffit d'un bouton qui déclenche l'horloge et d'un qui l'arrête.
A+

[Gringoire]

Bonjour Piaf et merci de la nouvelle, ta proposition m'intéresse. Je résume : dans mon Calc j'aurai besoin d'avoir l'heure défilante (tic tac tic...) et en extraire les secondes. Tu m'en dis plus stp. Merci.

[Gringoire]

Ca marche, je ne vois pas comment ça marche... à suivre. Bonne journée.

[Gringoire]

Bonjour à tous, Piaf, ton "bidule" ne fonctionne plus, message :Une erreur de structure de script s'est produite lors de l'exécution du script vnd.sun.star.script:Standard.Module1.cmdBouton?language=Basic&location=document de Basic. Tu es sous xubuntu et moi ubuntu, peut-il y avoir conflit ? Le Message suite : The following Basic script could not be found:
library: 'Standard'
module: 'Module1'
method: 'cmdBouton'
location: 'document'

Merci de ne pas poster plusieurs messages à la suite, si vous devez ajouter un complément d'information, le bouton "Editer" à la droite du message permet d'y remédier.

En attendant une prochaine réponse, vous pouvez participer également en répondant à d'autres questions sur notre forum.

[Dude]

Salut,

Le Message suite : The following Basic script could not be found:

Traduction : le script Basic suivant n'a pas été trouvé.
Tu as dû vouloir enregistrer le document sous un autre nom sans en recopier les macros.
Lire ou relire le principe des containers : https://forum.openoffice.org/fr/forum/v ... =8&t=40146

[Gringoire]

Bonjour Dude, j'y vais de ce pas... à suivre.

[Gringoire]

Mes connaissances ne vont pas pour retrouver le script "horloge". ça fiche le bazard. Qui peut me passer simplement le script que je le tape directement ? Merci Dude
Je ne trouve pas la touche "editer" ?
Mille sabord elle est sous mes yeux !

[Piaf]

Bonjour

Qui peut me passer simplement le script que je le tape directement

Code : Tout sélectionner

Global bClockRunning as Integer

Sub cmdBouton(oEv as Object)
	Select Case oEv.Source.Model.Name
		Case "cdmGo"
			bClockRunning = 1
			Horloge
		Case Else
			bClockRunning = 0
			Horloge
	End Select		
End Sub

Sub Horloge
Dim maFeuille as Object
	maFeuille = thisComponent.Sheets(0)
	Do While bClockRunning = 1
		maFeuille.getCellByPosition(1,0).value = CDate(Time)
	Loop
End Sub

La macro cmdBouton est affectée aux deux boutons, le bouton qui déclenche l'horloge doit être nommé cmdGo.
A+

[Gringoire]

Merci Piaf et tous le monde. Je reste sur le cite et regarde les sujets.