Membres: 1429  •  Messages: 46612  •  Sujets: 6155  •  Merci d'accueillir jumps, notre dernier membre.
Merci de vous connecter ou de vous inscrire.

Connexion avec identifiant, mot de passe et durée de la session
Recherche avancée  


Auteur Sujet: Date avec Open office  (Lu 1945 fois)

0 Membres et 1 Invité sur ce sujet

Hors ligne Frenchie

  • Nouveau Membre
  • *
  • Messages: 5
  • Karma: 0
  • Sexe: Homme
Date avec Open office
« le: 29 mars 2009 à 03:37:12 »
Avec les touches ctrl+; la date s'inscrit automatiquement dans Exel.
J'ai cherché mais je n'ai pas réussi à trouver l'équivalent avec Open Office.
Quelqu'un peut-il m'éclairer? :idea:

Hors ligne pilou055

  • Apprenti(e)
  • **
  • Messages: 100
  • Karma: 0
  • Sexe: Homme
    • Soluce ADSL
Re : Date avec Open office
« Réponse #1 le: 19 avril 2009 à 14:42:11 »
Salut

Ce raccourci n'existe pas dans open office :(
A remarquer que les raccourcis Ctrl+caractère ne prennent pas les caractères de ponctuation. :(

Pour te faire un tel raccourci clavier :
1) enregistrer une macro mettant la date du jour dans la cellule qui a le focus : menu outils/macros/enregistrer une macro
dans la cellule tu mets la formule =AUJOURDHUI()
terminer enregistrement macro, puis lui donner un nom explicite
2) tu associe la macro à un raccourci clavier : menu outils/personnaliser
attention à l'étendue du raccourci, toutes las applis open office ou uniquement calc. Bien rester sur calc et s'assurer que le raccourci n'est pas déjà réservé pour l'ensemble des applis.

Après, tu peux améliorer la macro en y retirant le retour à la ligne. Là tu as exactement le même raccourci que dans excel, à la combinaison près. :)

@+

Hors ligne Frenchie

  • Nouveau Membre
  • *
  • Messages: 5
  • Karma: 0
  • Sexe: Homme
Re : Date avec Open office
« Réponse #2 le: 20 avril 2009 à 02:17:20 »
Je te remercie pour ta réponse.
J'ai essayé de suivre ta procédure.
J'ai suivi à la lettre ton point 1 mais je ne sais pas où aller ni quoi faire pour donner un nom à la macro. :oops:
Merci de me répondre

Hors ligne pilou055

  • Apprenti(e)
  • **
  • Messages: 100
  • Karma: 0
  • Sexe: Homme
    • Soluce ADSL
Re : Date avec Open office
« Réponse #3 le: 20 avril 2009 à 17:55:51 »
Nom de la procédure :
Lorsque tu clic sur "Terminer l'enregistrement" une boite de dialogue "Macros OpenOffice.org Basic" apparait.
Le 1er champ est le nom, "Main" par défaut. Mieux vaut le personnaliser, DateJour par exemple puis bouton enregistrer

Tu remarqueras l'emplacement de main : Mes Macros / Standard / Module 1
Cela te garanti de disposer de la macro quel que soit le classeur
A droite, la liste des macros déjà enregistrées, Main macro vide existant par défaut.

Petit hic sur mon point 1 :
La cellule prend la formule Aujourdhui() et non la valeur.
Résultat, en ouvrant le classeur le lendemain tu te retrouve avec la nouvelle date du jour.

Solution :
1)
enregistrer une macro mettant la date du jour dans la cellule qui a le focus : menu outils/macros/enregistrer une macro
- mettre la cellule au format date
- donner à la cellule la formule =AUJOURDHUI()
- copier la cellule
- collage spécial, ne laisser coché que Date&Heure et Format
Puis clic sur "Terminer l'enregistrement"
terminer enregistrement macro, puis lui donner un nom explicite

Voici le code de la macro :
sub DateJour
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "NumberFormatValue"
args1(0).Value = 30

dispatcher.executeDispatch(document, ".uno:NumberFormatValue", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = "=AUJOURDHUI()"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args4(5) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Flags"
args4(0).Value = "DT"
args4(1).Name = "FormulaCommand"
args4(1).Value = 0
args4(2).Name = "SkipEmptyCells"
args4(2).Value = false
args4(3).Name = "Transpose"
args4(3).Value = false
args4(4).Name = "AsLink"
args4(4).Value = false
args4(5).Name = "MoveMode"
args4(5).Value = 4

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args4())

end sub

@+

Hors ligne Frenchie

  • Nouveau Membre
  • *
  • Messages: 5
  • Karma: 0
  • Sexe: Homme
Re : Date avec Open office
« Réponse #4 le: 22 avril 2009 à 01:50:31 »
En suivant tes conseils, j'ai réussi à créer un raccourci clavier qui m'insére la date comme je le veux. :lol:
J'ai choisi ctrl + k puisque il n'était pas utilisé ni dans Org ni dans Calc.

J'ai malgré tout un petit problème bien embêtant.  :beurk:
J'ai fait selon tes spécifications le collage spécial dans par exemple la cellule A6.
Lorsque je veux insérer la date par exemple dans la cellule A23 en faisant ctrl + k, la date apparait dans la cellule A23 et le curseur va se positionner automatiquement sur la cellule A6.
Si la cellule A6 est vide la date s'inscrit, s'il y a déja une information un message apparait me demandant si je veux écraser les données :pascontent:
Le problème reste le même quelque soit le document que j'ouvre. :mur:
As-tu une idée? :idea:

Hors ligne Frenchie

  • Nouveau Membre
  • *
  • Messages: 5
  • Karma: 0
  • Sexe: Homme
Re : Date avec Open office
« Réponse #5 le: 24 avril 2009 à 02:08:04 »
Lorsque j'ouvre le document , c'est la date du jour qui apparait.
Désolé mais ta procédure ne fonctionne pas. :mur:

Hors ligne pilou055

  • Apprenti(e)
  • **
  • Messages: 100
  • Karma: 0
  • Sexe: Homme
    • Soluce ADSL
Re : Date avec Open office
« Réponse #6 le: 11 mai 2009 à 20:02:28 »
Dsl pour le retour un peu tardif.

Avec le code que je te propose plus haut :
- c'est bien la date du jour de l'insertion qui reste, elle n'est pas réactualisée les jours suivant.
- c'est la cellule qui a le focus qui est directement renseignée, pas de traitement sur plusieurs cellules :)

Pour remplacer ton code par celui ci :
Outils/Macros/Gérer les macros/OpenOffice.Org basic
Macro de : Mes macros/Standard/Module1
Macro : DateJour (ou le nom que tu as mis avant)
-> Editer
Remplaces alors les lignes entre
sub DateJour
...
end sub
par les lignes que j'ai placé plus haut


Pour la fenêtre récurrente d'écrasement des données, il y a une petite case à cocher en bas.

@+

Hors ligne Frenchie

  • Nouveau Membre
  • *
  • Messages: 5
  • Karma: 0
  • Sexe: Homme
Re : Re : Date avec Open office
« Réponse #7 le: 12 mai 2009 à 03:09:48 »
En suivant tes conseils, j'ai réussi à créer un raccourci clavier qui m'insére la date comme je le veux. :lol:
J'ai choisi ctrl + k puisque il n'était pas utilisé ni dans Org ni dans Calc.

J'ai malgré tout un petit problème bien embêtant.  :beurk:
J'ai fait selon tes spécifications le collage spécial dans par exemple la cellule A6.
Lorsque je veux insérer la date par exemple dans la cellule A23 en faisant ctrl + k, la date apparait dans la cellule A23 et le curseur va se positionner automatiquement sur la cellule A6.
Si la cellule A6 est vide la date s'inscrit, s'il y a déja une information un message apparait me demandant si je veux écraser les données :pascontent:
Le problème reste le même quelque soit le document que j'ouvre. :mur:
As-tu une idée? :idea:
l
Effectivement, lorsque je fais le coller spécial dans la même cellule, la date reste telle que rentrée. :lol: