date feuille

[djamel]

Bonjour tous le monde



Je voudrais copier et nommer une feuille dans le meme classeur
d'apres une cellule contenant une date

Private Sub CommandButton5_Click()
Sheets('Livre').Select
Sheets('Livre').Copy After:=Sheets(1)
Sheets('Livre (2)').Select
Sheets('Livre (2)').Name = Format(UserForm2.Calendar1.Value, 'dddd/mmmm/yyyy')

End Sub

merci d'avance

 

[2passage]

Bonjour,

Le code que tu mets devrait fonctionner sauf que les noms de feuille ne supportent pas les '/' donc essaye:

Sheets('Livre (2)').Name = Format(UserForm2.Calendar1.Value, 'dddd-mmmm-yyyy')

A+

 

[djamel]

salut




Merci, je viens juste me rendre compte