INCREMENTER LA DATE DU JOUR

[MICHEL]

Je voudrais savoir si il est possible d'incrémenter la date du jour avec une macro dans une case d'une feuille exel et si oui quel en est le code

Merci beaucoup à l'avance

 

[Vériland]

Charte XLD​

 

[@Christophe@]

Bonsoir Forum, et un grand Bonsoir Vériland,

Pour le suivi, j'avais répondu a Michel hier je crois et voici le suivi de mon mail concernant ce message



Bonjour, je dois dire que je n'aime pas trop qu'on passe directement par ma boite, mais bon, et aussi quand tu pause une question sur le forum n'oublie pas de respecté la Charte (Bonjour, merci,...)

Sache que ta question n'es pas très clair, que veux tu, si tu veux que la date se mette a jour automatique, cela ce fait avec une formule dans une cellule: =Aujourdhui() si tu as excel en anglais =Today()

Ce que moi je crois que tu ai besion c'est les ligne suivant, cela te renverra la date du jour suisi d'une incrementation style 20030228/1, ensuite 20030228/2,....

Alors voila vite fais un code pour faire cela, il ya surement mieux, mais cela le fait

Private Sub Workbook_Open()
Dim Compteur As Integer
Compteur = Range("A2").Value
Range("A2").Value = Compteur + 1
Range("A1").Value = Format(Date, "yyyymmdd/") & Compteur
End Sub

Bonne soiré

Christophe

>From: BrigitteElsa57@aol.com
>To: christophe_home@hotmail.com
>Subject: Re: INCREMENTER UN N° DE FACTURE AVEC UNE MACRO [1:20915:20918]
>Date: Fri, 28 Feb 2003 14:39:29 EST
>
>Je ne voudrais pas abuser mais je viens de poser une autre question sur le
>forum mais comme tu as l'air de bien connaitre le sujet je te là pose
>également en direct
>je voudrais savoir si on peut incrémenter la date du jour dans une case exel
>lors de l'ouverture du classeur.
>Merci de ta réponse Michel