Attribut auteur en VBA

Aurélien · 9 Décembre 2005

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 · 9 Décembre 2005

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 · 9 Décembre 2005

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 · 9 Décembre 2005

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

Attribut auteur en VBA

Aurélien

Guest

MichelXld

XLDnaute Barbatruc

Aurélien

Guest

MichelXld

XLDnaute Barbatruc

Discussions similaires