Attribut auteur en VBA

[Aurélien]

Bonjour

Je travaille sur le développement de bases de données sous Access 97.

Une des bases effectue un export de données dans le format Excel.
Et pour cet export, j'aimerai redéfinir l'attribut auteur du fichier généré. Est ce que vous connaissez l'option qui permet de faire ça en VBA ?
Parce que on peut bien changer cela par l'intermédiaire de 'propriétés' du fichier mais je voudrais le faire de façon automatique et intégrée.

Merci de votre aide. 🙂
Aurélien

 

[MichelXld]

bonjour

si ton classeur est ouvert tu peux utiliser


Activeworkbook.BuiltinDocumentProperties('Author').Value = 'xld'



si le classeur est fermé tu peux utiliser la librairie DSO oleDocument Properties Reader 2.0

http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q224351

Remarque :
Cette librairie fonctionne aussi pour les autres types de documents Office ( Word , Powerpoint …)


'exemple pour modifier le champ 'Auteur' d'un fichier
Sub modifierProprietesClasseur()
'necessite d'activer la reference DSO OleDocument Properties Reader 2.0
'http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q224351
Dim DSO As DSOFile.OleDocumentProperties

Set DSO = New DSOFile.OleDocumentProperties

'le fichier doit etre fermé !
DSO.Open sfilename:='C:\\\\\\\\Documents and Settings\\\\\\\\michel\\\\\\\\monFichier.xls'
DSO.SummaryProperties.Author = 'XLD'
DSO.Save
DSO.Close
End Sub



bon apres midi
MichelXld

 

[Aurélien]

Merci pour ton aide ; on voit que t'es un spécialiste ! ;-)

MichelXld écrit:

'necessite d'activer la reference DSO OleDocument Properties Reader 2.0

Comment peut-on l'activer ou vérifier qu'elle l'est déjà ?

 

[MichelXld]

rebonjour

dans l'editeur de macros
Menu Outils
References
verifies si la ligne 'DSO OleDocument Properties Reader 2.0 ' existe
si oui coches la
cliques sur OK pour valider


si tu ne trouves pas la librairie , installes la en utilisant le lien donné precedemment


bon apres midi
MichelXld