Changer Propriétés fichiers Word en série Fermé

Question

Bonjour, 

Je voudrais changer en batch les propriétés d'un grand nombre de fichiers Word (Onglet Résumé: Titre, Sujet, Auteur, Responsable, Société, Catégorie, Mots-clés, Commentaires).

Très grand merci pour votre assistance.
Racpost

PS: Je sais enregistrer une maco Word/Excel et m'en servir sans plus.

Configuration: Windows XP / Firefox 7.0.1

Mytå · Answer

Salut le forum

Voici un exemple pour modifier le champ "Commentaires". 

Sub modifierProprietesClasseur_DSO()
    'Nécessite d'activer la référence 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
    
    'Attention: Le fichier doit être préalablement fermé!
    DSO.Open sfilename:="C:\Documents and Settings\Fichier\leClasseur.xls"
    DSO.SummaryProperties.Comments = "mon nouveau commentaire"
    DSO.Save
    DSO.Close
End Sub
Mytå

racpost · Answer

Merci Mytå,

Si je comprends bien il s'agit d'élaborer une macro?
Si c'est le cas, malheureusement je sais uniquement enregistrer une maro à partir d'un fichier Word ou Excel puis m'en servir. (Outils / Maros / Nouvelle macro ...).

Vous parler de Classeur.xls (et surement de Visual Basic ...). Or, je ne comprends pas le rapport avec Word: ça qui me dépasse.

Il faut que je me documente pour hisser mes connaissances à un niveau plus raisonnable ou y a-t-il un moyen simple.

En tout cas merci pour votre soutien.
Racpost

Edawards · Answer

Bonjour,
Une description ici pour un Batch :

http://www.aidewindows.net/divers.php

racpost · Answer

Merci Edawards,

J'essaye de m'initier au fichier Batch pour lancer Outlook Express à titre d'exemple.

Voilà ce que j'ai fait:
*ouvert le bloc-notes
*saisi :
Start C:\Program Files\Outlook Express\msimn.exe
*enregistré le fichier texte sous batch.bat
  Type : tous les fichiers

Il se transforme effectivement en fichier batch avec l'icône correspondante mais rien n'est lancé quand je double clique dessus (juste une bref passage de l'écran noir).

(même quand j'ajoute des guillemets : Start "C:\Program Files\Outlook Express\msimn.exe")

racpost · Answer

Merci Edawards,

Je n'y arrive pas non plus avec le nom de fichier OUTLOOK.BAT
dans les deux cas:
Start C:\Program Files\Outlook Express\msimn.exe
Start "C:\Program Files\Outlook Express\msimn.exe"

Ce n'est pas un problème de syntaxe?

Je vais lancer un post à propos de ce souci puis je reviendrai vers ma question initiale. Il faudra que je m'arme de patience et que j'abuse un peu de celle des assistants bénévoles.

Merci à tous
Racpost

racpost · Answer

Bonsoir,
Dur, dur !
Le novice que je suis a besoin d'un coup de main s'il vous plait.
Merci.

Mytå · Answer

Re le forum

Si tu veux une macro VBa (Excel)

Piloter Word depuis Excel

Sub LireWord()
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim msg As String

    Set WordApp = New Word.Application
    Set WordDoc = WordApp.Documents.Open("D:\Explications.doc")

WordDoc.BuiltinDocumentProperties(wdPropertyTitle) = "Bonjour"

msg = "Titre : " & WordDoc.BuiltinDocumentProperties(wdPropertyTitle) & vbCrLf
msg = msg & "Auteur : " & WordDoc.BuiltinDocumentProperties(wdPropertyAuthor) & vbCrLf
msg = msg & "Commentaire : " & WordDoc.BuiltinDocumentProperties(wdPropertyComments) & vbCrLf
MsgBox msg

WordDoc.Close
WordApp.Application.Quit

Set WordDoc = Nothing
Set WordApp = Nothing

End Sub

Mytå

racpost · Answer

Bonjour Mytå,

Je suis sûr que tu m'as tout servi sur un plat mais je n'y arrive pas car je n'ai pas l`expérience minimale requise pour savoir par où commencer.

Pour être sérieux il me faut d'abord assimiler un minimum en VBa avant de revenir sur ce topic. C'est ce que je suis en train de faire en même temps que j'essaye de modifier les attributs de mes fichiers (env. 1800) pièce par pièce.

Merci à toi et à tous les bénévoles pour l'incroyable patience envers les grands novices avec lesquels il est si difficile de communiquer.

Racpost