Feuille datée

[thomas]

Bonjour à tous !

Y'a t'il un petit code vba qui crée un feuille dans un classeur avec comme nom de la feuille la date du jour svp?

Merci d'avance.
T<>m.

 

[michael]

Bonjour,

Tu peux essayer :

'insère une nouvelle feuille avec la date comme nom
MaDate = Date
NbrSheet = ThisWorkbook.Worksheets.Count + 1

For Each Ws In ThisWorkbook.Worksheets
If Ws.Name = MaDate Then Exit Sub 'vérifie si une feuille existe déjà
Next Ws

ThisWorkbook.Worksheets.Add(, ThisWorkbook.Worksheets(NbrSheet - 1)).Name = MaDate


Fait attention au format de date dans Windows, si tu utilise "/" comme sépareteur tu aura une erreur.


Michael

 

[eric]

Bonjour thomas,

J'ai fait un peu près le même code que michael, mais avec une petite variante pour éviter de modifier le format de date :

For i = 1 To Worksheets.Count
Worksheets(i).Activate
nomfeuille = Day(Now) & "-" & Month(Now) & "-" & Year(Now)
If nomfeuille = ActiveSheet.Name Then MsgBox ("existe déjà"): Exit Sub
Next i

Worksheets.Add.Name = nomfeuille

Bonne journée

 

[thomas]

Re à tous,

Merci à michael et eric. Je fusionne vos deux solutions et je teste.

Merci d'y avoir consacrer du temps
T<>M.

 

[C@thy]

Bonjour thomas, michael, eric

et pourquoi pas :

For i = 1 To Worksheets.Count
if Worksheets(i).Name = Format(Date, "DD-MM-YY") Then msgBox ("existe..
next i
Worksheets.Add.Name = Format(Date, "DD-MM-YY")

 

[C@thy]

ou bien :

FeuilleJour = Format(Date, "DD-MM-YY")
For Each Ws In Sheets
If Ws.Name = FeuilleJour Then msgBox ("existe déjà"): Exit Sub
Next Ws
Worksheets.Add.Name = FeuilleJour

 

[thomas]

Bonjour C@thy,

encore + simple effectivement.

Merci à toi.