Propriétés des fichiers

[Monden]

Bonjour, je désire à partir de VBA modifier les propriétés de fichiers.
Y a-t-il une commande où une astuce pour accéder à ces propriétés depuis VBA?
Pour être plus précis, ce sont les propriétés 'Titre, Objet, Auteur, Catégorie… qui se trouvent dans l'onglet 'Resumé' du menu 'Propriétés' (clic droit sur un nom de fichier dans explorer).

 

[Abel]

Bonjour Monden,

Ci-joint un Lien supprimé avec des solutions de Michle_xld qui permettent de lire les propriétés.

Peut être à partir de là pourras tu faire l'inverse.

Abel.

 

[Thomas®]

Bonjour Abel,Monden, le forum,

Tres bien ce lien Abel

Cool cette fonction ' BuiltinDocumentProperties '

Je profite de ce poste pour faire à mon tour une demande (car elle à le même objet )
quelqu'un sait si il est possible de faire le même sans avoir à ouvrir le fichier?

et sur d'autre type de fichier (exemple Word, pdf,..)

D'avance merci
Thomas

 

[MichelXld]

bonjour Monden , Abel et Thomas

Thomas , à mon avis tu n'as pas bien lu le lien qu'a proposé Abel , car cet exemple
n'ouvre pas les fichiers
fonctionne pour tous les types de fichiers
et la methode 'BuiltinDocumentProperties' n'est pas utilisée


bon apres midi
MichelXld

 

[Monden]

Merci beaucoup pour cette information.
Je vais me pencher dessus.

 

[MichelXld]

bonjour Monden , Abel et Thomas

j'ai trouvé 1 article tres interessant sur le site de Chip Pearson , pour modifier les propriétés d'un fichier :

http://www.cpearson.com/excel/docprop.htm


les procedures utilisent la librairie DSO OleDocument Properties Reader 2.0
si elle n'est pas installée sur ton poste , tu peux la telecharger sur le site Microsoft :
http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q224351


par exemple pour modifier le champ 'commentaire' 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.Comments = 'mon nouveau commentaire'
DSO.Save
DSO.Close
End Sub

bon dimanche
MichelXld

Message édité par: MichelXld, à: 15/05/2005 11:14

Message édité par: MichelXld, à: 15/05/2005 14:20

 

[Thomas®]

bonjour Monden , Abel, Michel

Merci pour ces infos

tu es vraiment un puis de science michel


je ne sais pas comment tu fais pour trouver tout ca mais c'est une mine d'or ce site.

Thomas®

 

[Monden]

Bonjour à tous et Merci Michel,
Ca marche du tonerre cette fonction. :woohoo: