Feuille datée

M

michael

Guest

• 15 Avril 2003

• #2

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

 

Vote positif 0 Vote négatif

E

eric

Guest

• 15 Avril 2003

• #3

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

 

Vote positif 0 Vote négatif

T

thomas

Guest

• 15 Avril 2003

• #4

Re à tous,

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

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

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 15 Avril 2003

• #5

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")

 

Vote positif 0 Vote négatif

C

C@thy

Guest

• 15 Avril 2003

• #6

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

 

Vote positif 0 Vote négatif

T

thomas

Guest

• 15 Avril 2003

• #7

Bonjour C@thy,

encore + simple effectivement.

Merci à toi.

 

Vote positif 0 Vote négatif