Calcul automatique sur un champ date

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+

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()

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:

---

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

Salut,

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

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+

Bonjour

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

Code:

---

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

Salut,


On peut faire la mise à jour via le code.

Code:

---

ActiveDocument.Fields.Update

---

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

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