Créer un classeur avec les jour et les mois dans chaque feuilles et onglet

je cherche a créer un classeur de 365 feuilles avec date jour et mois de l'année reporté sur chaque feuille et dans chaque l'onglet.

Pouvez vous m'aider a crée le code... ou existe t-il une méthode plus simple.

un grand merci pour votre aide.

Salut crisogun et

crisogun a écrit :

je cherche a créer un classeur de 365 feuilles avec date jour et mois de l'année reporté sur chaque feuille et dans chaque l'onglet.

si on pourrait voir aumoins une seule feuille pour connaitre le résultat souhaité!

Une solution VBA souhaité?

Bonsoir, je viens de trouver ceci :

https://forum.excel-pratique.com/viewtopic.php?t=29297

ça correspondrai a ce que cherchait, mais ça n'a pas l'air de passer avec ma version 2016 d'excel.

"erreur exécution 9"

Sub CopieEtude()

Dim i, z

année = Val(InputBox("Quelle année ?"))

If année = 0 Then Exit Sub

x = DateSerial(année, 1, 0)

y = DateValue("31 décembre " & année)

z = y - x

For i = 1 To z

Sheets("Modèle").Copy After:=Sheets(i)

ActiveSheet .Name = Format(x + i, "dd-mmm-yyyy")

ActiveSheet.Range("C3") = Format(x + i, "dd-mmm-yyyy")

Next i

End Sub

Est ce que ta feuille porte le nom Modèle ?

je suis sur Feuil1.

A tester

 Sub CopieEtude()
Dim i, z, x
année = Val(InputBox("Quelle année ?"))
If année = 0 Then Exit Sub
x = DateSerial(année, 1, 0)
y = DateValue("31 décembre " & année)
z = y - x
For i = 1 To z
Sheets("Feuil1").Copy After:=Sheets(i)
ActiveSheet .Name = Format(x + i, "dd-mmm-yyyy")
ActiveSheet.Range("C3") = Format(x + i, "dd-mmm-yyyy")
Next i
End Sub

Super c’était bien ça , mille merci.

Mais avec plausir !