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

racpost Messages postés 21 Date d'inscription   Statut Membre Dernière intervention   -  
racpost Messages postés 21 Date d'inscription   Statut Membre Dernière intervention   -
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.

A voir également:

8 réponses

Réponse 1 / 8
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
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å
0
Réponse 2 / 8
racpost Messages postés 21 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 3 / 8
Edawards Messages postés 17127 Date d'inscription   Statut Membre Dernière intervention   1 936
 
Bonjour,
Une description ici pour un Batch :

http://www.aidewindows.net/divers.php
0
Réponse 4 / 8
racpost Messages postés 21 Date d'inscription   Statut Membre Dernière intervention  
 
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")
0
Edawards Messages postés 17127 Date d'inscription   Statut Membre Dernière intervention   1 936
 
Il faut le nommer par exemple : OUTLOOK.BAT et en majuscule et voir.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
racpost Messages postés 21 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Réponse 6 / 8
racpost Messages postés 21 Date d'inscription   Statut Membre Dernière intervention  
 
Bonsoir,
Dur, dur !
Le novice que je suis a besoin d'un coup de main s'il vous plait.
Merci.
0
Réponse 7 / 8
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
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å
0
Réponse 8 / 8
racpost Messages postés 21 Date d'inscription   Statut Membre Dernière intervention  
 
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
0