ActiveSheet.Name

T

Temjeh

Guest
Bonjour à tous
Je solicite votre aide pour ce petit bout de code:

Crée une feuil et la nomme de la valeur de i3

Sheets('Model').Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Range('I3')

Jaimerais si possible qu'il la nomme du nom de la cell i3 mais i3 de la dernière feuil + 14 !!

Donc en i3 dernière feuil il y a 2-nov-05 ...il crée une feuil lui met le nom 16-nov-05


Merci beaucoup

Temjeh
 

Bebere

XLDnaute Barbatruc
bonjour Temjeh

ce qui suit pour te dépanner
changer 'Feuil3' par nom de la feuille ou tu vas chercher la date
Sub Macro2()
Dim MaDate As Date, Nom As String
'changer 'Feuil3' par nom de la feuille
MaDate = Sheets('Feuil3').Range('I3').Value + 12
Nom = Day(MaDate) & '-' & Month(MaDate) & '-' & Year(MaDate)
Sheets('Model').Cells.Copy
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Paste
ActiveSheet.Name = Nom
End Sub
à bientôt
 

Statistiques des forums

Discussions
300 891
Messages
1 988 181
Membres
210 097
dernier inscrit
Leboucanier