Problème de mois

Bonjour, j'ai un soucis de conversion pour la date. J'ai une date au format aaaa-mm et j'aimerais bien avoir aaaa-mm mais en retranchant 1 mois par rapport au mois actuel. Par exemple si j'ai 2016-08 j'aimerais bien donner à ma variable la valeur 2016-07. Je sais que le soucis vient de ma dernière ligne mais je ne sais pas comment le résoudre.

mois= ActiveCell.Value 'au format aaaa-mm
MonMois = ActiveCell.Value
MonMois = ActiveCell.Value - 1

Merci.

Bonjour,

MonMois = dateadd("m",-1,ActiveCell.Value)

oyobrans a écrit :

Bonjour,

MonMois = dateadd("m",-1,ActiveCell.Value)

Merci beaucoup mais avec cette formule, ça me retourne la date au format jj/mm/aaaa or mois j'aurais besoin d'avoir la date au format aaaa-mm mais sinon cela fonctionne très bien merci.

monmois = Format(DateAdd("m", -1, ActiveCell.Value), "yyyy-mm")

C'est bon j'ai réussi à résoudre mon problème grâce à la fonction format

Edit : Merci je n'avais pas vu ton message, j'ai fais pareil sauf que moi je l'ai fais en rajoutant une étape

mois= Format(mois, "yyyy-mm")