Date et VBA

Ce que j'aimerais faire c'est que vba puisse ajouter une copie de la dernière feuille tout en ajoutant un jour supplémentaire. Exemple : 1ère feuille 1/01/2017...2ème feuille 2/01/2017...
Je mets ce que je fais qui est le même que sur le dernier lien :

Private Sub Auto_Open()
Dim Datejour As String
Dim jourdate As Date
Dim nouvelled
'Sélectionner la case
Range("N1:S1").Select
' Ajouter la date
Datejour = InputBox("Date début souhaitée", "Date")
If IsDate(Datejour) Then
jourdate = Datejour
Else
jourdate = 0
End If
Range("N1:S1") = jourdate
Sheets("Vierge").Select
Sheets("Vierge").Copy After:=Sheets(1)
Sheets("Vierge (2)").Select
Sheets("Vierge (2)").Name = "1"
'Additionner la date
Range("N1:S1").Clear
Range("N1:S1").Select
Datejour = DateAdd("d", 1, jourdate)
'Mise en page de la cellule avec la date
Range("N1:S1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
With Selection.Font
.Name = "Papyrus"
.Size = 40
.StrikeThrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = -16764007
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection.Font
.Color = -16764007
.TintAndShade = 0
Selection.Font.Bold = True
End With

End Sub

----------------------
Merci & bon après-midi

M

ça marche, je te remercie :)
j'ai une dernière question. J'essaie de dupliquer le nombre de colonnes pour qu'ils correspondent aux jours d'un mois. j'ai réussi à trouver la formule qui permet de dupliquer mais elle duplique juste sans ajouter de jours en plus (je suppose qu'il existe une formule exprès dont j'ignore le code...) et existe-il une formule qui permet de mettre un nom à la suite (j'ai bien réussi à renommer la 2ème page mais le reste s'appelle Position 1, Position 2)...pour que ce soit 2,3,4....

Je te mets le code :

Private Sub Auto_Open()
Dim Datejour As String
Dim jourdate As Date
Dim i, z
'Sélectionner la case
Range("N1:S1").Select
' Ajouter la date
Datejour = InputBox("Date début souhaitée", "Date")
If IsDate(Datejour) Then
jourdate = Datejour
Else
jourdate = 0
End If
Range("N1:S1") = jourdate
Sheets("Vierge").Select
Sheets("Vierge").Copy after:=Sheets(1)
Sheets("Vierge (2)").Select
Sheets("Vierge (2)").Name = "2"
'Additionner la date
Range("N1:S1") = jourdate + 1
'Combien de jours
z = InputBox("Nombre de jours souhaités ", "Jours")
For i = 1 To z
Sheets("Vierge").Copy after:=Sheets(2)
ActiveSheet.Name = "Position " & i
Next i

End Sub

-----------
Merci pour ton aide

Bon après-midi

Macij

si j'ai bien compris, ceci devrais faire ce que tu souhaites:

Option Explicit
Private Sub Auto_Open()
Dim Datejour As String
Dim jourdate As Date
Dim i As Long, z As Long
'Sélectionner la case
Range("N1:S1").Select
' Ajouter la date
Datejour = InputBox("Date début souhaitée", "Date")
If IsDate(Datejour) Then
jourdate = Datejour
Else
jourdate = 0
End If
Range("N1:S1") = jourdate

'Combien de jours
z = InputBox("Nombre de jours souhaités ", "Jours")
For i = 1 To z
     Sheets("Vierge").Copy after:=Sheets(Sheets.Count)
     ActiveSheet.Name = i
     Range("N1:S1") = jourdate + i
Next i

End Sub

SI tu veux simplement faire une feuille par mois, ceci devrait fonctionner:

Option Explicit
Private Sub Auto_Open()
Dim Datejour As String
Dim jourdate As Date
Dim nmois As Integer
' Demander la date
Datejour = InputBox("Un jour du mois souhaité", "Date")
If IsDate(Datejour) Then
    jourdate = Datejour
Else
    jourdate = 0
End If
nmois = Month(jourdate)
jourdate = DateSerial(Year(jourdate), nmois, 1)
Sheets("Vierge").Range("N1:S1") = jourdate
Do While Month(jourdate) = nmois
     Sheets("Vierge").Copy after:=Sheets(Sheets.Count)
     ActiveSheet.Name = Day(jourdate)
     Range("N1:S1") = jourdate
     jourdate = jourdate + 1
Loop
End Sub