Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Propriétés des fichiers

Monden

XLDnaute Nouveau
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

XLDnaute Accro
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.
 
T

Thomas®

Guest
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

XLDnaute Barbatruc
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
 

MichelXld

XLDnaute Barbatruc
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

Code:
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
 
T

Thomas®

Guest
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®
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…