[Toutes versions] "Doc.Add ActiveDoc.FullName" + Macro Sur sortie

[Souriane]

Bonjour,

J'ai créé la macro suivante qui s'active lors de l'ouverture d'un document (MonDoc). Cette macro est intégrée uniquement dans documents qui sont en mode "Lecture seule". Le but est d'empêcher l'utilisatrice d'effacer mon "modèle" par erreur donc à l'ouverture, une copie du document est créée avec Application.Documents.Add ActiveDocument.FullName.

J'aurais pu créer de vrais modèles (.dotm) mais il y a des modèles qui sont fait pour être modifié à l'occasion par l'utilisateur donc ceux-là ne son ni en lecture seule, ni dotm. Et comme je ne voulais pas me retrouver avec des "modèles" à 2 répertoires différents avec 2 méthodes d'accès différentes, j'ai opté pour l'ajout d'une macro sur ouverture.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Sub Document_Open()
 
'Vérifie si le document est bien en lecture seule, sinon, arrête la macro
     If ActiveDocument.ReadOnly = True Then
 
'Enlève l'option lecture seule sur MonDoc (sinon l'option sera conservée lors de la sauvegarde de la copie créée)
    ActiveDocument.ReadOnlyRecommended = False
 
'Créé une copie MonDoc
 Application.Documents.Add ActiveDocument.FullName
 
'Ferme MonDoc original
Documents(2).Activate
    ActiveDocument.Close wdDoNotSaveChanges
 
'Ramène le focus sur la CopieDeMonDoc
Documents(1).Activate
End If
 
End Sub

Voici le problème :

Dans plusieurs des documents qui ont ces macros, il y a des champs avec des macros "Sur sortie". Mais elles ne fonctionnent pas étant donné que Application.Documents.Add ActiveDocument.FullName ne copie pas le répertoire "ThisDocument" de MonDoc.

Avez-vous une solution de contournement? J'ai environ une vingtaine de document qui ont ce problème.

Merci de votre aide!

Souriane

[carden752]

Bonjour,

Peut-être récupérer la propriété path du modèle de document.
Je me suis permis d'initialiser une variable model pour identifier le document modèle, je trouve que cela est plus clair.
De même, j'ai mis nouv pour identifier le nouveau document (possible si pas de construction en cascade).

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Sub Document_Open()
dim model as document
set model = activedocument
dim chemin as string

If model.ReadOnly = True Then
 
'Enlève l'option lecture seule sur MonDoc (sinon l'option sera conservée lors de la sauvegarde de la copie créée)
    model.ReadOnlyRecommended = False
 
'Créé une copie MonDoc
 set nouv = Application.Documents.Add (model.FullName)
chemin=model.path 

'Ferme MonDoc original
model.Close wdDoNotSaveChanges
set model=Nothing
 
'Ramène le focus sur la CopieDeMonDoc
nouv.Activate
End If
 
End Sub

[Souriane]

Bonjour!

Je suis désolée! Je ne sais pas où j'avais la tête… Ce n'est pas "ThisDocument" qui disparaît (pourtant j'en étais sûre tout à l'heure!)

Bref, c'est l'information dans le champ qui disparaît. Quand la macro ci-dessus a terminée, si je déverouille mon formulaire et que je vais voir les propriété de mon champ, sous "Exécuter la macro", "À la sortie", le nom de la macro n'y est plus.

Pourtant si je retourne dans MonDoc initial, j'y vois encore "ThisDocument.MaMacro"

Une idée de contournement?

Merci pour ton temps!

Souriane

[Heureux-oli]

Salut,

juste en passant, pourquoi ne pas créer une copie locale du document.
Plus besoin de savoir si on le modifie ou pas.

Code :

Document.SavesAs

à l'ouverture du document.

Et une macro qui sur fermeture de Word viderait le rep de destination pour ne pas garder la copie.

Ou encore travailler sur les droits Windows du fichier et pas sur le répertoire.