Création d'onglets journalier automatique

Bonjour,

Dans le fichier joint, sur la feuille modèle, un bouton macro permet de crée sélectionner un mois pour l'année en cours, puis de créer automatiquement le nombre de feuille pour le mois en cours.

Sauriez vous adapter le code actuel ou trouver une autre méthode pour pouvoir sélectionner l'année de son choix.

Je vous remercie par avance.

Bon weekend

209onglet-date1.xlsm (127.78 Ko)

Bonjour,

J'ai modifié ou créé les parties surlignées en créant une variable "Annee" au lieu de prendre l'année en cours dans le code existant. Essaye avec.

Sub Creation()
Dim NbJ As Long
Dim i As Byte
Dim Mois, LaDate, Annee
Mois = InputBox("Saisir numéro du mois (1 à 12)")
Annee = InputBox("Saisir l'année")
LaDate = DateValue("1/" & Mois & "/" & Annee)
NbJ = Day(DateAdd("d", -1, DateAdd("m", 1, DateSerial(Annee, Mois, 1))))
Application.ScreenUpdating = 0
For i = 1 To NbJ
Sheets("Modèle").Copy After:=Sheets(i)
    ActiveSheet.Name = i & "" 'Format(DateValue(i & "/" & Format(LaDate, "mm/yy")), "dd_mm_yyyy")
    ActiveSheet.Range("B3") = Format(DateValue(i & "/" & Format(LaDate, "mm/yy")), " dddd dd mmmm yyyy")
    ActiveSheet.Shapes.Range(Array("Image 1")).Delete
    Selection.Cut
Next i
Call effacer
'Sheets("Modèle").Activate
End Sub

Merci Raja, tu es fantastique. Cela marche parfaitement.

J'ai juste modifié "annee" en "année".

Merci 1000 fois.

Rechercher des sujets similaires à "creation onglets journalier automatique"