Discussion :

[neant]

Bonjour,

Je veux savoir s'il y a moyen de changer l'attribut ReadOnly d'un document ouvert par VBA. Je sais que l'attribut est (ironiquement) en lecture seule. Je ne parle pas ici de l'attribut que l'on peut changer à partir d'Explorer mais de l'attribut ActiveDocument.ReadOnly (combiné avec ActiveDocument.ReadOnlyRecommended).

J'ai besoin de faire un "search & replace" dans plusieurs fichiers et je ne veux surtout pas avoir à renommer chaque fichier lors de sa sauvegarde.

Merci pour vos suggestions.

[Vesta]

Tu lance un Batch sinon...

Sous dos tu te met dans le bon répertoire et tu fais un :

Pour enlever la lecture seule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

attrib -R *.doc

Pour la remettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

attrib +R *.doc

Ca te convient?

[ouskel'n'or]

Tu peux faire ça en VBA.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Call Shell("cmd /c attrib D:\Doc\Aperçu.doc +r")

A+

[neant]

Je viens tout juste de l'essayer et malheureusement cela ne fonctionne pas. Comme je disais, ce n'est pas l'attribut du fichier mais l'attribut "à l'intérieur" du fichier.

Losque j'ouvre le fichier en question à partir de word j'ai un message me demandant si je veux ouvrir le fichier en lecteur seule (ActiveDocument.ReadOnlyRecommended) et ce, même si le fichier n'est pas en lecture seule sous le système de fichier.

[ouskel'n'or]

Oui, alors c'est une option. Pour la supprimer, va dans Fichier-> Enregistrer sous -> option -> dévalide l'option "Lecture seule recommandée" en bas de la fenêtre, enregistre ton fichier sous son nom

A+

[neant]

Existe-t-il un moyen d'enlever cette option par programmation ou dois-je me faire une macro pour accéder à cette option par le menu pour chaque fichier traité ?

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ActiveDocument.SaveAs FileName:="LeFichier.doc", ReadOnlyRecommended:=False

A+

[neant]

Merci pour l'aide.

[ouskel'n'or]

et alors ? Faut jamais oublier quand c'est !

[neant]

Je viens de voir le message. J'ai passé la soirée à jouer dans Linux.