Lorsque Alastair imprime un document, il souhaite définir automatiquement la date de ce document sur la date du mercredi suivant. Par exemple, si aujourd’hui est le jeudi 13, Alastair voudrait afficher le mercredi 19 si le document est imprimé maintenant ou n’importe quel jour jusqu’au 19 lui-même. A partir de jeudi prochain (20), Alastair voudrait que la date imprimée soit le 26, et ainsi de suite.

Il n’existe aucun moyen raisonnable ou pratique de le faire en utilisant des champs dans un document. (J’ai semblé avoir des combinaisons de champs « choisir une date future », mais elles sont vraiment gigantesques et ne sont pas destinées à un usage occasionnel.) Une meilleure solution consiste à utiliser une macro pour insérer, au point d’insertion, la date de tout ce qui se passe le mercredi prochain être. Voici un exemple qui montre à quel point une telle macro peut être simple:

Sub ForceWednesday()

Dim dMyDate As Date     dMyDate = Date     While WeekDay(dMyDate) <> 4         dMyDate = dMyDate + 1     Wend     Selection.TypeText Text:=Format(dMyDate, "mmmm d, yyyy")

End Sub

Lorsque vous exécutez la macro, elle affecte la date actuelle à la variable dMyDate. Cette variable est continuellement incrémentée jusqu’à ce que le jour de la semaine soit 4 (un mercredi). La date est ensuite formatée et saisie à l’emplacement du point d’insertion.

La macro pourrait être facilement modifiée pour toujours mettre la date du mercredi suivant à un endroit spécifique du document. Tout ce que vous avez à faire est de le modifier pour qu’il recherche, par exemple, un signet et remplace le signet par la date formatée. Vous pouvez même configurer Word pour que la macro soit exécutée pendant l’événement BeforePrint, ce qui signifie qu’elle sera exécutée juste avant l’impression.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (3849) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

lien: / wordribbon-Forcing_the_Date_to_the_Next_Wednesday [Forcer la date au mercredi prochain].