Macro ajout feuille

Bonjour à tous,

J'ai créé un fichier avec des macros dont une qui me permet de dupliquer ma feuille (voir fichier joint).

Petites questions...

1. Ma feuille de base est la feuille "tableau vierge" : comment faire en sorte que, quand je clique sur le bouton "cliquer ici pour créer une nouvelle feuille", ma feuille se place à gauche de "feuille vierge" de façon à avoir toujours à droite la feuille vierge ?

2. Comment faire pour que la date qui s'affiche sur le nom de ma feuille s'affiche également en cellule "B1". Attention, je n'ai pas mis la fonction (AUJOURDHUI) parce que je veux, qu'une fois affichée, la date reste fixe (je ne veux pas par exemple qu'elle se modifie demain quand j'ouvre mon fichier...).

J'espère avoir été claire dans mes demandes, merci à tous par avance pour vos réponses

Bonjour,

A tester si j'ai bien tout compris :

Sub Nouvelle_feuille()
Sheets(Sheets.Count).Copy Before:=Sheets("Tableau vierge")
ActiveSheet.Name = Format(Date, "dd mmm yy")
["B2"] = Date
End Sub

Ergotamine,

Merci pour ce retour, mais j'ai un message d'erreur quand je l'utilise.

J'ai trouvé une fonction statique =aujourdhui_static() est-ce que tu penses que demain, quand je vais dupliquer ma feuille la date se mettra à jour et que la feuille dupliquée restera à cette date ? merci par avance

Bonjour

Remplace cette ligne

Range("B2") = Date

Re,

J'aurais d'ailleurs ajouté une fonction au cas d'appui sur la création d'une nouvelle feuille si elle existe déjà

Sub Nouvelle_feuille()
  Dim NomFeuille As String
  NomFeuille = Format(Date, "dd mmm yy")
  If Not FeuilleExiste(NomFeuille) Then
      Sheets(Sheets.Count).Copy Before:=Sheets("Tableau vierge")
      ActiveSheet.Name = Format(Date, "dd mmm yy")
      Range("B2") = Date
  End If
End Sub

Public Function FeuilleExiste(FeuilleAVerifier As String) As Boolean
On Error GoTo SiErreur
Dim Feuille As Worksheet

    FeuilleExiste = False
    For Each Feuille In Worksheets
        If Feuille.Name = FeuilleAVerifier Then
            FeuilleExiste = True
            Exit Function
        End If
    Next Feuille
Exit Function
SiErreur:
MsgBox "Une erreur s'est produite..."
FeuilleExiste = CVErr(xlErrNA)
End Function

Merci M12, problème résolu !!