Insèrer feuil et nommer + 1

[Temjeh]

Bonjour à tous

Je suis dans la simplification. J'avais un input box qui me demandais le no de la nouvelle facture à insérer mais je veux qu'il devine ce nom.

J'ai ce code:

Sheets('Model').Copy After:=Sheets(1)
'Ma dernière feuil se nomme rapport donc j'insère les nouvelles factures en avant dernière
ActiveSheet.Move After:=Sheets((Sheets.Count) - 1)
'ensuite j'ai essayé ceci pour lui dire qu'il la nomme 1 no de plus que l'avat dernière mais ca bug
ActiveSheet.Name = ((Sheets.Name) - 1) + 1


Merci beaucoup si je suis assez clair!!!!


Temjeh

 

[Hervé]

Bonjour

Essaye comme ceci :

ActiveSheet.Name = (Sheets((Sheets.Count) - 2).Name) + 1


PS: pourquoi est-tu en visiteur, temjeh ?

Salut

 

[Temjeh]

Merci infiniment j'avais essayé au moins une dizaine de facon et là j'essayais left name + 1

Merci encore c'est parfait

Temjeh

A++