Incrementer dates alphanumériques sur onglets


#1

Bonjour à toute la communauté du Forum.
Je vous remercie d’être indulgent si je commet une erreur en créant un sujet déjà abordé sous d’autres formes mais c’est ma “première” sur ce forum.
Voici ce que je cherche à faire:
Je souhaite créer un classeur excel de 31 onglets (feuilles)
Les onglets doivent s’incrémenter des jours à partir de la date mentionnée sur le premier. cette date est souhaitée en alphanumérique (exemple: Mardi 1 Janvier 2019)
Ensuite le nom de l’onglet doit se reporter dans l’entête de la feuille concernée. (ça c’est bon j’ai trouvé)
Je vous remercie beaucoup pour votre aide car je n’ai pas trouvé de solution dans les différents sujets traités ici et là.
Bonne journée à toutes et tous.


#2

Bonjour!

Je ne suis pas sur d’avoir bien compris ta question.
Pourrais tu nous donner plus de détails stp et si possible inclure un fichier d’exemple?

Merci et à bientôt


#3

Bonjour,
Si j’ai compris

La macro:

Sub Feuille()
  Dim i%, Dte As Date 'Déclaration des variables
  Dte = Feuil1.Range("C2") 'Attribution de la variable Dte à la date de la page Accueil
  Application.ScreenUpdating = False
    For i = 1 To 31 'boucle de 1 à 31
      'Ajoute une feuille après la derniére, et là nomme avec la variablez Dte
      Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = Format(Dte, "dddd d mmm yyyy")
      'Renseigne sur la cellule A1 de la feuille la variable Dte
      ActiveSheet.Range("A1").Value = Format(Dte, "dddd d mmm yyyy")
      'Augmente d'un jour la variable Dte
      Dte = Dte + 1
    Next i
  Feuil1.Activate
End Sub

ZPAT75.xlsm (19,5 Ko)


#4

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.