Bonjour,

Je suis formateur et dans mes exercices, j'ai des dates.
Au lieu de modifier les dates manuellement tous les ans, j'ai automatisé en :
1 - Créant une propriété avancée "Annee" que je change tous les ans (Fichier/Informations/Propriétés/Propriétés avancées/Personnalisation)
2 - Dans le corps de texte, à chaque date :
- Insertion/QuickPart/Champ/ok
- Il m'indique "!Fin de formule inattendue"
- Clic droit pour "Basculer les codes de champs" : {.=..\* MERGEFORMAT }
- Je me mets après = puis Insertion/QuickPart/Champ/PropriétéDoc/Annee : {.=.2021.\* MERGEFORMAT }
- Je me mets après 2021 et j'ajoute +1, +2 ou -1
- Clic droit et "mettre à jour les champs" recalcule la date.
Ce qui me donne { { DOCPROPERTY Annee \* MERGEFORMAT } + 1 \* MERGEFORMAT }
3 - Chaque année je change la date dans propriétés, je recalcule => c'est ok

Plutôt que de faire chaque fois la manip à la main, j'ai essayé une macro VBA :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="= ", PreserveFormatting:=True
Ce qui insère bien le champ de calcul
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="DOCPROPERTY  Annee ", PreserveFormatting:=True
Ce qui insère bien la propriété Annee

Mais comment je combine les deux ??

Il y a bien un type de champ wdFieldDocProperty mais je ne sais comment l'utiliser.

Merci pour vos pistes de solution...