Discussion :

[ZoRm33]

Bonjour,

J'ai un fichier de démarrage (site.dot) qui contient toutes les macros utilisées dans les modèles Word (templates).
Tous ces fichiers ont été réalisé en Word 2003 et fonctionnent parfaitement.
Certains postes sont en Word 2007 maintenant et lors du lancement du template, au moment où celui ci fait appel à la macro, j'ai le message d'erreur suivant:
"Erreur d'exécution 5887.
Commande non disponible car le document est protégé par un mot de passe."
Or il n'y aucun mot de passe ni sur le site.dot ni sur les templates.

Peut être ai-je une conversion à faire ou une référence à ajouter mais je ne vois pas laquelle.
J'ai bien modifé les options word pour abaisser le niveau de sécurité et approuvé l'accès au modèle d'objet VBA mais sans succès.

Merci d'avance de votre aide.

[carden752]

Bonjour,

Sans avoir la macro ou le document, c'est délicat de répondre. Cependant, une liaison des références (passages en 12.0) au lieu de 11.0 pour Office peut-être ou un objet qui n'existe plus sous la ersion 2007.

[ZoRm33]

Bonjour,

Merci pour ta réponse.
Effectivement, la référence précédente concernait Office 11.0 et maintenant c'est Office 12.0

Cependant, je travail freéquemment sur des modeles qui sont utilisés d'abord en 2003 puis en 2007 sans problèmes particuliers.

La macro est la suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Sub Age()
'
' Age Macro
' Macro enregistrée le 24/08/2001 par si
'Modèles de gériatrie et de cs de pre anesthesie
 
Dim Age, i, j As Integer
Dim dtns, dtj As Date
Dim signet As Bookmark
Dim entry As AutoTextEntry
Dim dtn As String
 
ActiveDocument.Sections(2).ProtectedForForms = False
 
For Each entry In ActiveDocument.AttachedTemplate.AutoTextEntries
    If entry.Name = "Patient.Naissance" Then dtn = entry.value
Next entry
    If Month(dtn) < Month(Date) Then
        Age = DateDiff("yyyy", dtn, Date)
    Else
        If Month(dtn) = Month(Date) Then
            If Day(dtn) < Day(Date) Then
                Age = DateDiff("yyyy", dtn, Date)
            Else
                Age = DateDiff("yyyy", dtn, Date) - 1
            End If
        Else
            Age = DateDiff("yyyy", dtn, Date) - 1
        End If
    End If
j = 1
While j <= ActiveDocument.Content.Bookmarks.Count
  Set signet = ActiveDocument.Content.Bookmarks(j)
  If signet.Name = "age" Then
    signet.Range.Fields(1).Result.Text = Age
    'On sort de la boucle
    j = ActiveDocument.Content.Bookmarks.Count + 1
  Else
    j = j + 1
  End If
Wend
 
ActiveDocument.Sections(2).ProtectedForForms = True
 
End Sub

Le problème se situe peut être sur la fonction ProtecetedForms mais je n'ai rien trouvé de pertinent sur ce sujet.

A noter que je ne suis pas l'auteur de la macro, je mets à jour une suite logicielle qui utilise ce modèle et les nouvelles stations de travail sont sour Office 2007.

[Heureux-oli]

Salut,

C'est une propriété qui est toujours disponible pour Word 2007.

Mais il faut que tu aies au moins deux sections à ton document puique tu enlèves la protection de la seconde section.

Si tu as plusieurs sections.
Es-tu certain que la protection de cette section n'est pas faite avec un mot de passe ?

[ZoRm33]

Bonjour,

Effectivement, j'ai vu que la fonction est toujours disponible sous Word 2007.
J'ai bien une deuxième section dans mon document (même beaucoup plus )

Cependant, ce que j'ai vu en utilisant les menus Word directement sur le document pour protéger une section, c'est qu'il demande tout le temps un mot de passe, même vide, peut être dois je envoyer un paramètre en plus du genre password="".
Je vais tester ça mettrai le résultat sur dans la suite de cette discussion.

[ZoRm33]

Bonjour,

Je n'ai pas trouvé de méthode pour envoyer un mot de passe en paramètre, cependant, si je commente les séquences de dé-protection et reprotection:

Code :

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

1
2
3
4
5
 
ActiveDocument.Sections(2).ProtectedForForms = False
....
 
ActiveDocument.Sections(2).ProtectedForForms = True

Je n'ai plus de message d'erreur, la macro s'exécute et met à jour le champs concerné.

Je passe donc la discussion à Résolu.