Nommer une feuille automatiquement avec sa date de creation

Bonjour,

Des que j' insere une nouvelle feuille j' aimerai que celle si se nomme automatiquement avec la date de sa creation. (Sachant que je ne crée jamais deux feuilles le meme jour).

Est ce possible?

Merci d'avance de votre aide

Biz Lisa

Bonjour,

Voici le code à mettre dans Thisworkbook :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim ws As Worksheet
    Dim boWSExiste As String

    boWSExiste = False

    ' Boucle sur toutes les feuilles du classeur pour vérifier qu'il n'existe pas déjà cette feuille
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = Format(Now, "dd-mm-yyyy") Then
            boWSExiste = True
            Exit For
        End If
    Next ws

    ' La feuille n'existe pas, la renommer
    If boWSExiste = False Then Sh.Name = Format(Now, "dd-mm-yyyy")
End Sub

bonjour, voici un code pour nommer les nouvelles feuilles selon la date. Si tu ajoute plusieurs feuilles le même jour, j'incrémente le nom des feuilles comme fait excel "nomdelafeuille (x)" voici le code à placer dans ThisWorkbook

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim NouveauNom As String
    Dim Extension As Integer

    NouveauNom = Format(Date, "YYYY-MM-DD")
    Extension = 1
    Do While TestSiNomExiste(NouveauNom) = True
        NouveauNom = Format(Date, "YYYY-MM-DD") & " (" & Extension & ")"
    Loop
    Sh.Name = NouveauNom
End Sub

Public Function TestSiNomExiste(TestNom As String) As Boolean
    Dim MaFeuille As Worksheet

    For Each MaFeuille In Worksheets
        If MaFeuille.Name = TestNom Then
            TestSiNomExiste = True
            Exit Function
        End If
    Next MaFeuille
    TestSiNomExiste = False
End Function

Merci à vous cela fonctionne comme je le voulais. 8)

Biz lisa