Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

LECTURE ET MODIFICATION DES PROPRIÉTÉS DES FICHIERS OFFICE ET NTFS5


Information sur la source

Catégorie :OLE, DDE, Automation Classé sous : propriété, ntfs, office, word, excel Niveau : Initié Date de création : 14/07/2004 Date de mise à jour : 03/10/2006 19:58:23 Vu / téléchargé: 13 480 / 1 243

Note :
7,33 / 10 - par 3 personnes
7,33 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (7)
Ajouter un commentaire et/ou une note


Description

Lorsque vous cliquez sur Propriété d'un fichier, vous avez surement remarqué les onglets Résumé et Personnaliser (uniquement fichiers Office).
Il contiennent des infos sur votre document ou votre fichier (Auteur, Titre, Objet, Commentaire...).
Ces informations sont stockées dans le fichier même pour les fichiers Office et dans des flux rattachés au fichier sous NTFS5.
On peut accèder à ces infos par le biais d'interfaces exposés par OLE2. Pour cela il faut créer une typelib pour pouvoir utiliser ces interfaces : c'est l'objet de ce code.

La fenêtre principale reproduit à peu près celle des onglets de Windows  et Office (menu Fichier/Propriétés) :
- Résumé simple
- Statistiques
- Contenu
- Miniature
- Personnaliser
- Avancé (en lecture seule)

Vous pouvez modifier les informations et les enregistrer dans le fichier.
 

Conclusion

Ce code utilise une typelib (properties.tlb) qu'il faut enregistrer au préalable avec Regtlib.exe du répertoire system32 (ou sous-dossiers). Il se peut que la référence dans le projet ne soit pas valide. Dans ce cas, supprimez la référence manquante et ajoutez la référence "IPropertySet" (menu Projet/Références).
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Historique

23 août 2004 12:10:56 :
Prise en charge de NT/95/98/ME qui ne comprennent pas StgOpenStorageEx.
07 août 2006 17:15:56 :
Gestion de l'accès exclusif
03 octobre 2006 19:58:23 :
correction d'un bug d'enregistrement pour les docs Office2003

Commentaires et avis

signaler à un administrateur
Commentaire de ITALIA le 10/09/2004 10:24:27

Peut être Utile 7/10

signaler à un administrateur
Commentaire de devsurf le 07/12/2004 16:30:44

ok Merci pour cette info c'est exactement ce qu'il me faut comme source.
Le problème est que ca ne fonctionne pas.
(J'ai vb6 / xp /office 2003)

Pendant l'ouverture fichier par le menu
et lors de l'utilisation de cette fonction :
Set OpenCreatePropertySet = PSetStorage.Open(fmt,  STGM_READWRITE Or STGM_SHARE_EXCLUSIVE)
dans la fonction
OpenCreatePropertySet
Un code erreur 91 est généré (Variable objet ou variable bloc With non définie) - rien ne sepasse deplus la gestion d'erreurs est en resume next et donc l'erreur est ignorée.
Avez vous une idée ?

signaler à un administrateur
Commentaire de Glumph le 07/11/2005 17:53:52

J'ai exactement le même problème que toi, DevSurf...
Est-ce que tu as trouvé une solution au problème? Ou est-ce que tu aurais trouvé une autre source qui fait la même chose...?

Merci !

signaler à un administrateur
Commentaire de ShareVB le 26/11/2005 21:46:04

salut,

désolé j'avais du oublier de regarder le problème...mais je n'ai pas de solution vu que je n'ai pas office 2003...pouvez-vous me donner le code que renvoit la fonction StgOpenStorageEx qui doit être la cause du prb...sinon essayer de remplacer la ligne If IsWindows2KAndLater Then par If IsWindows2KAndLater = false Then pour voir si ca fonctionne...

encore une fois désolé de ne pas avoir répondu...

ShareVB

signaler à un administrateur
Commentaire de ShareVB le 07/08/2006 17:17:56

salut,

j'ai essayé de reproduire la configuration vb6/XP(pro)/office 2003...mais je n'ai pas ce bug à l'ouverture mais à l'enregistrement...donc c'est en partie corrigé...cela vient du fait que le fichier est ouvert par un autre processus...me semble-t-il...

ShareVB

signaler à un administrateur
Commentaire de LiberteOutremer le 20/10/2008 12:09:51

Salut,

Je voudrais savoir si ce code peut être compatible avec la lecture et la modification de propriétés de fichiers MP3 (groupe, genre...).
J'ai un peu bidouillé tout ca, mais à chaque fois

Set PSto = OpenCreatePropertySet("C:\TEMP\" & file.Name, SummaryInformation, PSetSto)

me renvoie un PSto vide.
Je ne sais pas trop où chercher.
Merci de votre aide.

signaler à un administrateur
Commentaire de ShareVB le 20/10/2008 19:44:23

salut,

Ce code ne permet pas d'éditer les tags ID3 contenus dans les fichiers MP3, recherche ID3 sur ce site, tu trouveras beaucoup de sources à ce sujet.

ShareVB

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

propriété fichier word excel powerpoint [ par tilate ] Salut,Je cherche comment récuperer automatiquement le nom de l'auteur d'un document Word, excel, powerpoint...Merci pour votre aide. Message d'erreur impossible à désactier??? (VBA sur Word, Office 2003) [ par Polack77 ] &nbsp;&nbsp;&nbsp; En deux mots: j'ai une macro qui met en page des fichiers Word. Dans ces fichiers se trouve des tableaux Excel que je dois (entre a Passage Excel vers Word [ par Patrice H ] Bonjour,Je dispose d'un fichier Excel dans lequel les informations sont réparties dans plusieurs feuilles et cellules. Je veux créer un fichier word à Récupérer des données dans des cellules EXCEL à partir d'un fichier WORD [ par MrBiduleX ] Bonjour,Je cherche à récupérer des données dans des cellules d'une feuille EXCEL à partir d'une marco WBA placée dans WORD ; ceci afin de placer ces d ouverture d'un fichier word avec macro Excel [ par c135078 ] bonjours j'aurai besoin de rédiger une macro me servant juste à souvegarder mon fichier Excel puis à ouvrir un fichier Wordj'ai rédigé la macro suivan ouvrir fichier word paramétré depuis excel [ par Josehofman ] bonjour, depuis excel si j'ai la commnade suivante cela fonctionne bien Set  wdDoc = wdApp.Documents.Open( <font face="Courie Fonction "Show" et connexe de VBA 2003 Office EXCEL [ par jeanpierredebangui ] Bonjour,j'ai créé un code de paye spécifique pour la Centrafrique avec EXCEL et VB 98. Par la suite, j'ai adapté ce code avec Windows XP SP1 et Office macro word propriete personnalise [ par LORam ] bonjour, bonsoir à toutes et tous je réalise un mini projet dans word sous forme de macro: but de la macro : insérer des propriétés personnalisées à utiliser la fonction Evaluate d'excel dans le vb.net [ par souma86 ] <span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: -webkit-monospace; font-size: 13px; font-style: nor Débutant perdu, Vb Word Excel [ par cdurootsman ] Tout d'abord bonjour tout le monde, je suis un tout nouveau dans la programation puisque je viens de me décider à m'y intérresser. Je vous remercie do


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,452 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.