Date dans onglet
Bonjour,
Je souhaite avoir un code qui permettra de créer des onglets (365) pour tous les jours d'une année.
Un onglet pour pour chaque jour.
Nommée les onglet au format date "dd mmmm yyyyy" (Lundi 26 juin 2017)
Cela va me permettre de pas créer les 365 onglets puis de le nommée manuellement
Merci d'avance.
A
Bonjour
Sujet traité ici
Cordialement
Bonjour Ronibo, bonjour le forum,
Essaie comme ça :
Sub Macro1()
Dim D As Long 'déclare la variable D (Date en entier long)
Application.ScreenUpdating = False 'masque les rafraichissements à l'écran
D = DateSerial(2017, 1, 1) 'définit la première date D
Do Until Year(D) > 2017 'exécute jusqu'à ce que l'année de D soit supérieure à 2017
Worksheets.Add After:=Sheets(Sheets.Count) 'ajoute un onglet en dernière position
ActiveSheet.Name = Format(D, "dddd dd mmmm yyyy") 'renomme l'onglet avec la date D
D = D + 1 'incrémente D
Loop 'boucle
Application.ScreenUpdating = True 'affiche les rafraichissements à l'écran
MsgBox "Les onglets ont été créés !" 'message de fin
End SubBonjour,
Merci à vous deux, j'ai pu réussir grâce à vous
une autre petite question, A l'ouverture du fichier comment affiché l’onglet portant la date du jour ?
A
Bonjour
Code à mettre dans ThisWorkBook
Private Sub Workbook_Open()
Dim Val As Variant, xdate
xdate = Now()
Val = Application.WorksheetFunction.Proper(Format(xdate, "dddd dd mmmm yyyy"))
Worksheets(Val).Activate
End SubCordialement