VBA - création d'une nouvelle fiche et de le renommer

Je suis en train d'insérer une nouvelle feuille, puis de le renommer pour le mois en cours et l'année juste avec un seul bouton. Pour des informations supplémentaires: je suis de la planification sur la suppression de ce bouton un peu plus tard, de sorte qu'il sera automatique.

Private Sub CommandButton1_Click()

  nowMonth = Month(Now)
  nowYear = Year(Now)

ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)Name = "nowMonth & , & nowYear)

End Sub
  • Essayez de remplacer "nowMonth & , & nowYear) avec nowMonth & "," & nowYear
  • Je l'ai juste essayé et avez encore des erreur de Syntaxe
  • pourquoi n'avez-vous pas parler d'erreur de syntaxe dans votre question?
  • il vous manque un point . avant Name .... Le nom est une propriété de l'objet Feuille de calcul .... donc la syntaxe est worksheets(2).Name
  • vous avez également un support supplémentaire après nowYear ... et l'un des leaders de devis " , mais pas de guillemet de fermeture ..... si vous n'avez pas besoin d'une virgule dans le nom de la feuille, alors vous pouvez utiliser nowMonth & nowYear .... ou month(now) & year(now)
InformationsquelleAutor Youiee | 2017-10-27
  1. 3

    Cela fera:

    nowMonth = Month(Now)
nowYear = Year(Now)

ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveWorkbook.Sheets(Worksheets.Count).Name = nowMonth & "," & nowYear
    • Merci beaucoup! Il a travaillé
    InformationsquelleAutor jivko
  2. 3

    Envisager d'avoir une sorte d'erreur de manipulation pour vérifier si la feuille que vous ajoutez existe déjà sinon, si vous exécutez de nouveau le même code, il vous donnera une erreur et une nouvelle feuille par défaut seront également ajoutés en même temps je ne pense pas que ce que vous voulez.

    Aussi c'est une bonne pratique de déclarer toutes les variables utilisées dans le code.

    Vous devriez essayer comme ça...

    Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim ws As Worksheet
Dim nowMonth As Integer, nowYear As Integer
nowMonth = Month(Now)
nowYear = Year(Now)
Set wb = ActiveWorkbook
On Error Resume Next
Set ws = wb.Sheets(nowMonth & ", " & nowYear)
On Error GoTo 0
If Not ws Is Nothing Then
    MsgBox "The Sheet called " & nowMonth & ", " & nowYear & " already exists in the workbook.", vbExclamation, "Sheet Already Exists!"
    Exit Sub
Else
    Set ws = wb.Sheets.Add(after:=wb.Sheets(wb.Sheets.Count))
    ws.Name = nowMonth & ", " & nowYear
End If
End Sub
    InformationsquelleAutor Subodh Tiwari sktneer
  3. 1

    Cela devrait fonctionner pour vous:

    Private Sub sheet()   
    nowMonth = Month(Now)
    nowYear = Year(Now)
    ActiveWorkbook.Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = nowMonth & "," & nowYear
End Sub
    InformationsquelleAutor Karl Kristjansson