Discussion :

[basto]

Bonjour

Dans un document Word, j'ai un propriété avec la date de mise à jour du document.

Je voudrais ajouter dans mon document Word, un champ calculé automatiquement prenant en compte cette date et en y ajoutant 6 mois.

D'avance merci pour votre aide

A+

[Heureux-oli]

Salut,

La gestion des dates calculées au départ de champ en Word est très compliquée.

il faut mettre des conditions sur tous les éléments de la date, jour, mois et année.

Le plus simple est de passer par du VBA avec une fonction comme DateAdd()

[basto]

Bonjour

Merci pour ce retour. J'ai essayé mais je ne comprend pas comment faire en sorte que le champ soit mis à jour.

J'ai créé 2 propriétés :
Madate : Date de référence
NewDate : Date que je souhaite voir calculer.

Puis j'ai créé cette procédure :

Code :

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

1
2
3
4
5
6
7
8
9
 
 
Sub MiseAJourDate()
    Ldate = ActiveDocument.CustomDocumentProperties("MaDate").Value
 
    Lnew_date = DateAdd("m", 6, Ldate)
 
    ActiveDocument.CustomDocumentProperties("NewDate").Value = Lnew_date
End Sub

Malheureusement, la mise à jour de ma propriété NewDate n'est pas effectuée.

Quelle manip me manque t'il ?

Merci pour votre retour

[Heureux-oli]

Salut,

tu travailles avec les propriétés du document ?

[basto]

Oui c'est la seule chose que je sache faire mais s'il y a mieux, plus simple, je suis preneur.

Mais j'ai besoin des bons pointeurs pour comprendre comment mettre concrètement en oeuvre.

Je suis en train de regarder comment faire pour mettre à jour les infos juste avant la sauvegarde mais j'avoue ne rien comprendre dans les classes d'objet et leur instanciation.

A+

[basto]

Bonjour

J'ai un zest avancé dans la compréhension des événements sous word et j'en suis arrivé au code suivant :

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
 
 
Public WithEvents MonApp As Word.Application
 
Private Sub Document_Open()
    Set MonApp = Word.Application
End Sub
 
Private Sub MonApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
    'MsgBox "BeforeSave"
    Ldate = ActiveDocument.CustomDocumentProperties("MaDate").Value ' C'est une propriété qui contient la date de validation du doc
 
    Lnew_date = DateAdd("m", 6, Ldate) ' On ajoute 6 mois
 
    ActiveDocument.CustomDocumentProperties("NewDate").Value = Lnew_date 'C'est la date de fin de validitée calculée
End Sub

Que j'ai positionné dans "This Document"

Cela fonctionne correctement pour la mise à jour de la propriété avant la sauvegarde, par contre, si j'inclus cette propriété dans mon document, elle est pas mise à jour.

A l'inverse, si je fais CTRL + A puis F9, les propriétés sont mise à jour dans le doc mais la valeur n'est pas recalculée.

Donc, ma question résiduelle est : Est il possible de "capturer" l'événement de mise à jour du document pour lancer ma macro?
(PS: Si vous voyez une solution plus simple, plus dans l'esprit de word, je suis preneur)

D'avance merci

[Heureux-oli]

Salut,


On peut faire la mise à jour via le code.

Code :

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

ActiveDocument.Fields.Update

[basto]

Bonjour

Ceci répond que partiellement à ma problématique.

Car pour mettre à jour, il faut avoir un événement qui lance cette mise à jour.

Ne connaissant pas toutes les arcanes de Word, y'a t'il y événement qui me permet de savoir que mon doc est en cours de mise à jour (F9) ?

D'avance merci

[Heureux-oli]

Salut,
Il n'y a pas beaucoup d'évènements document qui seraient utilisables.
Là tout de suite, je ne vois rien.