D
djamel
Guest
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
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