Bonjour
----- Original Message -----
From: "Marie jo Ooo" <[email protected]>
To: <[email protected]>
Sent: Thursday, March 12, 2009 5:54 PM
Subject: [users-fr] [Calc] Recupération dernière modification et auteur
Bonjour,
Je crois malheureusement que cela ne soit pas possible.
Je cherche à récupérer dans un document Calc les informations simples à
récupérer dans Writer à savoir
Date de dernière modification du fichier
Auteur de la dernière modif (données d'identité)
Ces informations sont récupérables dans Writer par
"Insertion/champs/autres..."
puis "Infos documents"
Quelle astuce existerait pour les avoir dans Calc.
Dans une logique de "suite intégrée", je trouve dommage de ne pas avoir
presque la même boite de dialogue "Insertion/champs")
Oui je suis d'accord
Effectivement j'ai moi aussi cherché et la seul solution que j'ai trouvé
c'est de passer par une macro.
Il y a 2 objets pour y accéder (DocumentInfo ou DocumentProperties). Ils de
donnent la date décomposée en Integer comme ci-dessous.
DocumentInfo.ModifyDate.Day
DocumentInfo.ModifyDate.Month
DocumentInfo.ModifyDate.Year
Voici un bout de code qui doit te permettre d'y accéder.
Sub RecupDateModif
REM * DECLARATION DES VARIABLES
Dim MonDocument as Object 'Objet d'acces au document en cours
Dim DateJourModif as integer 'Variable de récupération du jour de
modification
Dim DateMoisModif as integer 'Variable de récuparation du mois de
modification
Dim DateAnneeModif as integer 'Variable de récupération de l'année de
modification
REM * ACCES AU DOCUMENT
MonDocument = thisComponent
REM * RECUPRATION DES VALEURS DE LA DATE DE MODIFICATION
DateJourModif = MonDocument.DocumentInfo.ModifyDate.Day
DateMoisModif=MonDocument.DocumentInfo.ModifyDate.Month
DateAnneeModif =MonDocument.DocumentInfo.ModifyDate.Year
REM * AFFICHAGE DE LA DATE DE MODIFICATION
Print
LTrim(Str(DateJourModif))+"/"+LTrim(Str(DateMoisModif))+"/"+Ltrim(Str(DateAnneeModif))
End sub
Voilà pour l'instant.... Bon courage
François
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
