Addition jours à date dans formulaire Word 2010

Résolu/Fermé

Word

romanza Messages postés 250 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 - 22 déc. 2015 à 17:25
m@rina Messages postés 20077 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 - 26 déc. 2015 à 14:16

Bonjour,

J'ai créé un champ date "A" dans un formulaire Word 2010.

Dans ce champ je dois inscrire une date.

J'ai crée un autre champ DATE "B" qui doit calculer la date du champ "A" + 37 jours.

Que dois-je écrire comme expression dans le champ "B"?

Je vous remercie pour votre aide

A voir également:

Ajouter des jours à une date word
Supprimer une page word - Guide
Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
Table des matières word - Guide
Espace insécable word - Guide
Ajouter signature word - Guide

7 réponses

Réponse 1 / 7

m@rina Messages postés 20077 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 11 272
Modifié par m@rina le 23/12/2015 à 23:56

Bonsoir,

Tu crées tes deux champs date.
Supposant qu'ils se nomment "Texte1" "Texte2", tu entres la macro suivante :

Sub ladate()
Dim date1 As Date, date2 As Date
date1 = ActiveDocument.FormFields("Texte1").Result
date2 = date1 + 37
ActiveDocument.FormFields("Texte2").Result = date2
End Sub

Tu ouvres le premier champ date, puis sous la rubrique "A la sortie", tu sélectionnes la macro ladate que tu as précédemment entrée.
Tu coches également l'option "Calculer à la sortie".

Tu ouvres ensuite le second champ date et tu décoches l'option "Remplissage activé".

A présent, tu peux protéger le document. Tu entres une date quelconque dans le premier champ et en appuyant sur la touche Tab, le deuxième champ sera automatiquement calculé avec 37 jours de plus.

m@rina

Nous ne sommes pas devins : n'oubliez pas d'indiquer la version du logiciel utilisé, et comment vous avez procédé.

Réponse 3 / 7

romanza Messages postés 250 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 2
22 déc. 2015 à 18:07

Euh!...je crois que c'est un champ hérité. J'ai cliqué sur le symbole "a" et j'ai mis format date

m@rina Messages postés 20077 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 11 272
22 déc. 2015 à 18:19

Euh... tu peux préciser ?? Parce que "a"... je vois pas ce que c'est... Il y a Aa, et il y a AB.
Il y a aussi A tout court mais c'est un contrôle ActiveX pour un label...

Réponse 6 / 7

romanza Messages postés 250 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 2
25 déc. 2015 à 11:14

Bonjour Marina,

Merci pour la clareté de ton retour. Cela fonctionne.
Par contre, je me souviens qu'il y avait une bibliothèque de code de champs lié aux dates faite par Macropod et je n'ai plus ce lien qui me semble -t'il était sur ton site.

Dernière question, quand je fait Alt F9 J'ai l'expression "FORMTEXT" et non pas l'expression réelle du champ (word 2007). peux-tu m'expliquer comment l'on remédie à ça.

Joyeux Noêl

Romanza

m@rina Messages postés 20077 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 11 272
25 déc. 2015 à 18:41

Bonjour,

Effectivement, il faut que je remette ce document parmi d'autres.

Si tu tiens à utiliser un champ plutôt qu'une macro (plus simple), voici le champ, supposant que ton signet du premier champ DATE se nomme Texte1. Tu cocheras aussi "Calculer à la sortie".

{SET Ajout 37}
{SET a{=INT((14-{Texte1 \@ M})/12)}}
{SET b{={Texte1 \@ yyyy}+4800-a}}
{SET c{={Texte1 \@ M}+12*a-3}}
{SET d{Texte1 \@ d}}
{SET jd{=d+INT((153*c+2)/5)+365*b+INT(b/4)-INT(b/100)+INT(b/400)-32045+Ajout}}
{SET e{=INT((4*(jd+32044)+3)/146097)}}
{SET f{=jd+32044-INT(146097*e/4)}}
{SET g{=INT((4*f+3)/1461)}}
{SET h{=f-INT(1461*g/4)}}
{SET i{=INT((5*h+2)/153)}}
{SET dd{=h-INT((153*i+2)/5)+1}}
{SET mm{=i+3-12*INT(i/10)}}
{SET yy{=100*e+g-4800+INT(i/10)}}
"{dd}-{mm}-{yy}" \@ "d/MM/yyyy"}

TOUS les {} se font avec Ctrl+F9.

Pour ne pas voir le "FORMTEXT", c'est Alt+F9 qui permet de basculer entre l'affichage du code de champ et l'affichage du résultat.

m@rina

Réponse 7 / 7

romanza Messages postés 250 Date d'inscription samedi 27 janvier 2007 Statut Membre Dernière intervention 10 avril 2023 2
26 déc. 2015 à 06:52

Bonjour m@rina,

Effectivement c'est une vraie usine à gaz. Comment on peut arriver à sortir un truc pareil !

Pour ForMtext, cela ne fonctionne pas : Alt + F9 : j'ai ça : {FORMTEXT}
Je refais Alt +F9 j'ai le code de champ grisé

m@rina Messages postés 20077 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 25 avril 2024 11 272
26 déc. 2015 à 14:16

Oui, c'est normal. C'est à la fusion que tu as le résultat, ou bien en cliquant sur le bouton Aperçu des résultats.
Dans le doc de fusion, c'est un champ... Après la fusion, tu as les données.

Oui pour le champ c'est une vraie usine à gaz, c'est pourquoi je déconseille... C'est quand même plus pratique de mettre une macro ! :)

m@rina

Discussions similaires

Trier Prenom Nom dans même cellule

Problème publipostage date de naissance

formule pour insérer 2 dates - du jour et date ultérieure

Publipostage : format champ de fusion (date, heure, prix...)

Alignement du texte à gauche et à droite

Insertion automatique de la date sous WORD

Discussions similaires

Newsletters