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.
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
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)
Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.