mois +1

[Alex]

bonjour tout le monde

Comment faire pour obtenir le mois actuel plus 1 en Vba??
on est au mois de mai je voudrais avoir une formule qui me donne mois de juin??
quelqu'un peut-il m'aider??

Merci d'avance

 

[Pascal76]

SAlut Alex et le forum

MonMois=month(Date) + 1
if MonMois=13 then MonMois =1 'pour janvier

Bonne journée

Pascal

 

[Alex]

Merci mais comment je peux faire pour recuperer le mois en lettre ??
C'est surement avec :
monmois = Format(Date, "mmmm") mais je vois pas merci

 

[Alex]

c 'est encore mois j'aurais voulu savoir aussi comment faire pour qu'une certaine date augmente d'un mois
Le 12/03/04 =>12/04/04

Merci bcp

 

[Pascal76]

re

Il y peut-être plus joli mais bon

MonMois=month(Date) + 1
if MonMois=13 then MonMois =1 'pour janvier
MonMois= Format("01/" & MonMois, "mmmm")

Bon courage

Pascal

 

[chris]

Bonjour
manewdate=format(Date(year(madate);month(madate)+1;day(madate));"d mmmm yyyy")

(format à adapter selon que tu veux tout ou seulement le mois.)

Avantage de la fonction date : elle décale automatiquement l'année ou le mois quand on est en limite.

Chris

 

[myDearFriend]

Bonsoir tout le monde,

Chris, en VBA, ne s'agit-il pas de "DateSerial(Year, Month, Day)" au lieu de "Date(Year; Month; Day)" ?

Cordialement.
Didier

 

[chris]

Bonsoir
Exact.
Sorry j'ai confondu avec la fonction.
Heureusement que mydearfriend veille !!
CHris