Ajouter un mois à une variable date

Bonjour à tous,

Je bloque sur un petit souci que je ne parviens pas à solutionner.

Je souhaite ajouter un mois à une variable date (j'extrais le mois de la date du jour et je voudrais faire +1)

J'ai fait ceci mais ça n'est pas fonctionnel et je ne parviens pas à l'écrire autrement, pouvez vous me dire quelle est la bonne syntaxe ?

Merci beaucoup

Dim x As String
Dim y As String
y = Format(Date, "mmmm")
x = DateAdd("m", 1, y)

        Sheets.Add Before:=Worksheets("TP Bxl")
    ActiveSheet.Name = "Remise " & x

Bonjour,

DateAdd me semble un bon choix, il vient de la bibliothèque DateTime de VBA qui sert spécifiquement pour les dates, et elle me semble parfaite pour la situation.

si on fait par exemple:

madate = "15/7/22"
madate = DateAdd("m", 1, madate)

On a bien madate qui est égale à 15/08/2022

Est-ce que tu souhaites garder uniquement le mois?

Dans ce cas:

madate = "15/7/22"
monMois = Month(madate) + 1
If monMois > 12 Then monMois = monMois Mod 12

Mod 12 sert à revenir à 1 si on dépasse le 12ème mois, ça divise par 12 et retourne ce qui reste.

bonjour,

Sub NouvelleFeuille()

     Sheets.Add Before:=Worksheets("TP Bxl")
     ActiveSheet.Name = "Remise " & Format(WorksheetFunction.EDate(Date, 1), "mmmm")

End Sub