Classeur généré automatiquement à l'aide de la date, du mois et de l'année en cours

Question

Je suis nouveau avec MS EXCEL VBA mais je lis encore un peu de blog sur VBA et comment cela fonctionne. J'ai eu l'idée de renommer la feuille Excel, de désactiver les lignes et d'ajouter de nouvelles feuilles. Mais je veux savoir
comment insérer automatiquement la ligne tous les jours, ajouter une nouvelle feuille tous les mois, et créer un nouveau même cahier (structure par défaut) chaque année ajouter dans MS EXCEL 2013? Comment je fais ça?

Date aujourd'hui est 1 alors demain excel ajouter automatiquement 1 ligne pour la date. Si le mois de janvier se termine alors excelle automatiquement ajouter une nouvelle feuille pour février. Et les changements d'année excel génèrent le même classeur par défaut ou vide avec l'année en cours.

La structure par défaut du Excel, le fichier Excel sont situés à https://github.com/Ailyn09/project102/blob/master/2017.xlsx

CODE COURANT

Sub Sample() 
     'Disable adding row 

     Dim I As Integer 
     Dim cbStr As String 
     Dim cbCtrl As CommandBarControl 
     Application.ScreenUpdating = False 
     For I = 1 To 2 
      If I = 1 Then 
       cbStr = "row" 
      Else 
       cbStr = "column" 
      End If 
      For Each cbCtrl In Application.CommandBars(cbStr).Controls 
       If cbCtrl.ID = 3183 Then 
        cbCtrl.Enabled = False 
       End If 
      Next 
     Next 
     Application.ScreenUpdating = True 

     'Copy Existing Sheet And Month As Name 
     ActiveSheet.Copy , Sheets(Sheets.Count) 
     ActiveSheet.Name = Month() 
    End Sub 

une idée pour FICHE CHAQUE MOIS ICI: https://excel.tips.net/T002017_Sheets_for_Months.html

Answer 1

voici un début ... juste essayer du code ... crée mois workshe et si elle n'existe pas ... ajoute ensuite les données à la feuille

je dois aller pour quelques jours ... viendra avec quelque chose de plus quand je reviens

Sub testDate() 

    Debug.Print Format(Now(), "d") 
    Debug.Print Format(Now(), "dd") 
    Debug.Print Format(Now(), "ddd") 
    Debug.Print Format(Now(), "m") 
    Debug.Print Format(Now(), "mm") 
    Debug.Print Format(Now(), "mmm") 
    Debug.Print Format(Now(), "mmmm") 
    Debug.Print Format(Now(), "yy") 
    Debug.Print Format(Now(), "yyyy") 

    Debug.Print Month(Now) 
    Debug.Print MonthName(Month(Now)) 

    Dim ws As Sheets 
    Set ws = ActiveWorkbook.Worksheets 

    Dim nam As String 
    nam = Format(Now(), "mmmm")      ' month name in local language 

    Dim sh As Worksheet 
    If Evaluate("ISREF('" & nam & "'!A1)") Then  ' sheet name exists ? 
     Set sh = ws(nam) 
    Else 
     Set sh = ws.Add(after:=ws(ws.Count)) 
     sh.Name = nam 
    End If 

' !!!!! use one of the sections below, but NOT both !!!!! 
' -------------------------------------------------------------------------------------- 
    Dim lastCell As Range 
    Set lastCell = sh.Range("A" & sh.Rows.Count).End(xlUp)     ' last used cell in column A 
    lastCell.Offset(1).Value = Format(Now(), "to\da\y i\s t\he dd of mmmm") ' some of the characters must be escaped 
' -------------------------------------------------------------------------------------- 
' this section corrupts the lastCell value that is used above 

' if fixed number of rows per day, then put daily data in particular rows 

' Dim day As Integer 
' day = Format(Now(), "d") 
' sh.Range("A1").Offset(day).Value = Format(Now(), "to\da\y i\s t\he dd of mmmm") 
' -------------------------------------------------------------------------------------- 

End Sub