Bonsoir à tous,
Petite question au sujet des dates :
J'ai écrit le code suivant :
Le problème dans ce code est que l'an prochain, je serais obligé d'aller modifier l'année.
Je cherche donc comment remplacer l'année par la valeur de la cellule B3 d'une feuille donnée.
Ci-joint mon fichier exemple.
Merci pour votre aide. [file name=date_20060118193452.zip size=6402]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/date_20060118193452.zip[/file]
Petite question au sujet des dates :
J'ai écrit le code suivant :
Code:
Sub Alerte()
Dim Acompte_IS_15mars As Date
Acompte_IS_15mars = #3/15/2006#
If DateTime.Now Acompte_IS_15mars - 15
Then MsgBox ('Acompte IS au 15 mars ' & Format(Now, 'yyyy'))
End If
Le problème dans ce code est que l'an prochain, je serais obligé d'aller modifier l'année.
Je cherche donc comment remplacer l'année par la valeur de la cellule B3 d'une feuille donnée.
Ci-joint mon fichier exemple.
Merci pour votre aide. [file name=date_20060118193452.zip size=6402]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/date_20060118193452.zip[/file]