Ajouter feuille avec nom et mois et annee (jean1 - 2020)

Bonjour

j'aimerais savoir si je peux créer un ajouter ma feuille avec un nom

il y a plusieurs choses dans mon code parce que je voudrais que ça prenne aussi le mois et l'année

Merci de bien vouloir m'aider

Private Sub CommandButton2_Click()
Dim myMonth As Integer, myYear As Integer, myDate As Date, sc As Long, ee As String, cc As String, a As Long, b As Long

myDate = Date ' enregistre la date d'aujourd'hui dans la variable myDate

myMonth = (Month(myDate) - 1) ' No du mois précédent
myYear = Year(Date) 'No année
ee = ""

If (myMonth) = 0 Then 'si calcul du mois précédent = 0
    myMonth = 12 'mois précédent = 12
    myYear = myYear - 1 'année précédente
End If

cc = "PRODUIT" & "" & (myMonth) & " - " & myYear 'élabore le nom de l'onglet

sc = Sheets.Count 'calcule le nombre de feuilles dans le classeur

a = 1
For a = 1 To sc
    If Sheets(a).Name = cc Then 'vérifie que l'onglet n'existe pas
    End 'sinon fin de programme
    End If
Next a

Sheets("SAVON CHAT").Copy After:=Sheets(1) 'effectue la copie de la feuille Tableau

ActiveSheet.Name = cc 'nomme la nouvelle feuille
Sheets("SAVON CHAT").Select

End Sub

Bonjour,

Ai je compris ?

Cdlt.

Private Sub CommandButton2_Click()
Dim ws As Worksheet, strDate As sring, sheetName As String
    strDate = Format(DateSerial(Year(VBA.Date, Month(VBA.Date) - 1, 1), "mm-yyyy"))
    sheetName = "PRODUIT" & "" & strDate
    On Error Resume Next
    Set ws = Worksheets(sheetName)
    On Error GoTo 0
    If ws Is Nothing Then
        Set ws = Worksheets("SAVON CHAT").Copy(After:=Worksheets(1))
        ws.Name = sheetName
    End If
    Worksheets("SAVON CHAT").Activate
End Sub

Bonjour

je ne pense pas que vous ayiez compris, je n'ai pas pu lancer le debogage parce qu'on me met un message d'erreur : Type defini par l'utilisateur non defini au niveau de strDate As sring

J'ai un classeur Client, dans le classeur client, les feuilles sont representé par les noms de client afin de pouvoir envoyer les information dans la feuille reservé au client qu'on va selectionné dans le combobox.

ce que je veux faire c'est pouvoir en premier ajouter une feuille dont je choisirai le nom ou cas ou je veux ajouter un nouveau client

et ensuite trouver un code qui va me permettre de me mettre a jour les feuilles de chaque client. Par exemple

JEAN1-2020 ; MOUSSA1 - 2020 et quand le mois change des feuilles s'ajoutent soit JEAN2 - 2020 ; MOUSSA2 - 2020

J'espere que j'ai été un peu claire

Si oui, merci de me venir en aide