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

JBARBE

XLDnaute Barbatruc
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"

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

Merci à l'avance et bonne nuit !
 

Pièces jointes

  • Essai_Date_A.xls
    53.5 KB · Affichages: 29

Jacky67

XLDnaute Barbatruc
Bonjour,
Cela pourrait ressembler à ceci
VB:
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
 
Dernière édition:

Discussions similaires

Réponses
5
Affichages
1 K
Réponses
2
Affichages
871
Réponses
1
Affichages
578

Statistiques des forums

Discussions
311 733
Messages
2 082 011
Membres
101 866
dernier inscrit
XFPRO