ActiveSheet.Name

[Temjeh]

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

 

[Temjeh]

Merci j'ai trouvé

Sheets('Model').Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = (Sheets((Sheets.Count) - 1).Range('i3')) + 14

A+

Temjeh

 

[Bebere]

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