Crée nouvelle feuille et renommer avec date d'aujourd'hui

Bonjour le forum !

J'ai un petit problème, je voudrais que quand j'appuie sur le bouton et bien qu'il me duplique la feuille actuelle mais change le nom de cette dernière en mettant la date d'aujourd'hui sous cette forme : 03_nov

Voici le fichier, je vous ai laisser le code que j'ai fait dedans:

Merci d'avance pour votre aide

Bonjour,

essayez ceci

Sub InsereNouvellefEUILLE()
ActiveSheet.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(Format(Date, "dd") + 1, "00") & "_" & Format(Date, "mmm")
End Sub

Cela suppose que vous ne faites cela qu'une fois par jour. Sans quoi le code va buguer puisqu'il verra que la feuille du jour suivant à déjà été créée. A voir ce que vous voulez

Si ok, n'oubliez pas

Cordialement

Bonjour à tous,

une version pour éviter erreur si appui malencontreux :

Sub feuilleJ()
    Dim nom As String
    nom = Format(Date, "dd_mmm")
    On Error Resume Next
    If IsEmpty(Sheets(nom).Index) Then
        ActiveSheet.Copy after:=Sheets(Sheets.Count)
        ActiveSheet.Name = nom
    End If
End Sub

eric

Bonjour Dan,

Cela fonctionne très bien merci beaucoup.

Cordialement

Bonjour eric,

Merci pour ton aide, serait-il possible d'ajouter un msgbox en cas d'erreur disant ( la feuille du jours existe déjà)?

MsgBox "La feuille du jours existe déja", vbExclamation + vbOKOnly, "Création nouvelle feuille"

Merci d'avance.

C'est bon j'ai trouvé comment faire:

Sub InsereNouvellefEUILLE()
    Dim nom As String
    nom = Format(Date, "dd_mmm")
    On Error Resume Next
    If IsEmpty(Sheets(nom).Index) Then
        ActiveSheet.Copy after:=Sheets(Sheets.Count)
        ActiveSheet.Name = nom
        Else
        MsgBox "La feuille du jours existe déja", vbExclamation + vbOKOnly, "Création nouvelle feuille"
    End If
End Sub

Bonne journée