XL 2016 Excel VBA : moi courant et suivant

[Phillip]

Bonjour,

Problème tout bête qui m'arrache les cheveux. Je veux trouver le mois en cours en lettres, et le mois suivant (février) en lettres. J'ai pondu le code suivant. Que je passe par une variable intermédiaire Moisprochain (qui d'alleurs me sort bien "2") ou directement avec now+1 dans le format, je sors systématiquement janvier !!

sub mois()

Vmoislettres = Format(Now, "mmmm")

'trouve le mois suivant le mois en cours
Moisprochain = Month(Now) + 1

'ces 2 lignes me donnent Janvier ! Pourquoi ?
VmoisprochainLettres=format(Moisprochain,"mmmm")
VmoisprochainLettres = Format(month(Now) + 1, "mmmm")

end sub

Merci du coup de pouce !

Cordialement

Phillip

 

[fanch55]

Bonjour,
Le bon code pour obtenir le mois prochain :

VmoisprochainLettres = Format(DateAdd("m", 1, Date), "mmmm")

 

[vgendron]

bonjour

à la question posée:
c'est pas parce que ta variable s'appelle "MoisProchain" que VBA voit ca comme un mois.
lui.. il voit juste un nombre qu'il prend par défaut pour un jour..
pour t'en convaincre
format(1,"mmmm") ==> Janvier
format (32,"mmmm") ==>Février

il faut donc que tu reconstruises une date complète
VmoisprochainLettres=format(dateserial(year(now),MoisProchain,1),"mmm")

sinon. à partir de la date du jour: il te suffit d'utiliser la fonction mois(fin.mois(now)+1)
now = aujourd'hui
fin.mois==> t'emmène au dernier jour du mois en cours
+1 ==> décale d'un jour ==> 1er jour du mois suivant
mois(....) te donne le mois suivant

 

[Phillip]

Ah merci fanch55, je n'aurais jamais trouvé le dateadd !

Merci vgendron pour l'explication !

Cordialement

Phillip