Bonjour,
voici une piste:
Sub SetNewAuthor()
Dim oDoc As Object
Dim sAuteur As String, sMsg As String
Dim iRep As Integer
oDoc = ThisComponent
sAuteur = "Auteur actuel = " & oDoc.DocumentInfo.Author & _
Chr( 10 ) & "Saisir un nouveau nom d'auteur"
sAuteur = InputBox( sAuteur, ":: Modification de l'auteur ::")
sMsg = "Le nouvel auteur sera : " & Chr(10) & sAuteur
If sAuteur <> "" Then
iRep = MsgBox( sMsg, 4 + 32 + 256, "Confirmer nouvel auteur")
If iRep = 6 Then
oDoc.DocumentInfo.Author = sAuteur
oDoc.DocumentInfo.ModifiedBy = sAuteur
End If
End If
End Sub
Tu pourrais également affecter le traitement à l'évènement
sur ouverture et/ou sur enregistrement du doc.
Francois
Selon Cyril Martin <[EMAIL PROTECTED]>:
> Petite modification :
>
> Dans le fichier sur lequel je veux utiliser (par exemple) function
> auteur(), je n'ai pas de résultat : pas de message d'erreur, mais la
> cellule reste vide.
>
> Je crois bien que c'est dû au fait que ce fameux classeur a été créé
> AVANT que je n'ai renseigné les données personnelles, et qu'au moment de
> l'enregistrement du fichier, il enregistre aussi les données perso (s'il
> y a en a bien sûr) :
> D'abord parce que depuis que j'ai renseigné ces données, la fonction
> marche dans tout nouveau classeur (sauf celui où j'en ai besoin)...
> J'ai testé cette fonction sur un classeur Ooo Lambda téléchargé sur
> Internet, et il m'a bien ressorti le nom du créateur du fichier et non
> celui défini dans mon Ooo...logique, on parle bien "d'auteur" !
>
> Vous n'auriez pas une idée donc pour modifier le nom du créateur/auteur,
> à priori stocké quelque part dans le fichier ??
> Sinon tant pis, je sais au moins qu'à chaque nouvelle installation je
> devrai renseignerai aussitôt Données perso !
>
> Cyril
>
>
> -----Message d'origine-----
> De : [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> Envoyé : jeudi 10 août 2006 17:51
> À : prog@fr.openoffice.org
> Objet : Re: [prog] Auteur du document
>
>
> Bonsoir Laurent,
>
> Selon Laurent Godard <[EMAIL PROTECTED]>:
>
> Glop ;)
>
> > bonjour
> >
> > tu peux creer un fonction
> >
> > function auteur()
> > auteur = thisComponent.DocumentInfo.Author
> > end function
> >
> > ensuite, dans ta cellule
> > tu tapes la formule
> >
> > =auteur()
> >
> > non testé mais devrait marcher
> >
> > Laurent
> >
> > --
> > Laurent Godard <[EMAIL PROTECTED]> - Ingénierie OpenOffice.org
> > Indesko >> http://www.indesko.com Nuxeo CPS >> http://www.nuxeo.com -
> > http://www.cps-project.org Livre "Programmation OpenOffice.org",
> > Eyrolles 2004
> >
> Francois
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
