Format date sur une feuille copiée (Résolu)

[JBARBE]

Bonsoir à tous,
Je voudrais en copiant PRONO mettre une date après PRONO sur la feuille copiée !
Il semble que le format date suivant est bon : NumberFormat = "dd-mm-yy"

Sub test()
Worksheets("PRONO").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = ("PRONO") & Date ' Bug
End Sub

Merci à l'avance et bonne nuit !

 

[Jacky67]

Bonjour,
Cela pourrait ressembler à ceci

Sub test()
On Error Resume Next
Sheets("PRONO_" & Format(Date, "dd-mm-yy")).Activate
If Err <> 0 Then
  Worksheets("PRONO").Copy After:=Sheets(Worksheets.Count)
  ActiveSheet.Name = ("PRONO_") & Format(Date, "dd-mm-yy")
Else
'L'instruction ci-dessous est facultative
  MsgBox "Feuille ''" & ActiveSheet.Name & "'' déjà existante"
End If
On Error GoTo 0
End Sub

 

[JBARBE]

Bonjour jacky, tous,
ça marche !
Merci et bonne journée !