Discussion :

[crouchnette21]

Bonsoir à tous,

Je viens vers vous dépitée car je n'y arrive pas toute seule...
Je suis en charge de la mise en place de courrier dans mon entreprise. Les courriers se font sous forme de publipostage via une base de donnée à laquelle je n'ai pas accès...

Une des phrases de mes courriers est la suivante : Le règlement devra nous parvenir avant le "DATE DERNIER JOUR DU MOIS EN COURS"

Bien que j'ai quelques bonnes connaissances sur Word, je suis dans l'incapacité de trouver la solution pour intégrer automatiquement cette p***** de DATE DERNIER JOUR DU MOIS EN COURS... J'ai tout de même une solution de rempli qui serait de devoir saisir en "dure" la date mais je souhaiterais qu'elle se fasse automatiquement, cela eviterait quelques erreurs...

Je n'ai que très peu de connaissance en VBA mais j'apprends très vite...

Aidez moi s'il vous plait, je n'aime pas être bloquée et me rabattre sur des solutions de facilité...

Merci!!

[Heureux-oli]

Salut,

On peut le faire en champ, mais le plus simple est de le faire via VBA.


Tout est fonction de la façon dont tu travaille.
Si c'est avec un modèle de document, c'est le plus simple, il suffit de remplir un signet avec la date souhaitée.

VBA possède quelques fonctions Date/Time intéressantes.

En fonction du mois, on détermine quel sera le dernier jour.

Month renvoie le mois
Year l'année

Il suffit en fonction du résultat renvoyé par month de déterminer le jour.

Plus d'info là : http://mhubiche.developpez.com/vba/f...ions/datetime/

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
Sub RenvoyerDernierJourMois()
Dim myD As Integer
 
'Test sur le mois
Select Case Month(Date)
Case 1
    myD = 31
Case 2
    myD = 28
 
 
End Select
'Reconstruction de la date
ActiveDocument.Bookmarks(1).Range.Text = DateSerial(Year(Date), Month(Date), myD)
 
End Sub

Ne pas oublier que le mois de février n'est pas constant, on peut alors faire un test sur l'année, on la divise par 4 et quand il n'y a pas de reste, c'est 29 et dans ce cas, la prochaine erreur aura lieu dans 85 ans.

Ce code envoie la date dans le premier signet du document.