Rapport de message :*
 

Re: Renommer une feuille

Titre du sujet : Re: Renommer une feuille
par JCGL le 28/12/2008 18:42:48

Bonjour à tous,
Bonjour Skoobi,

Un essai qui rajoute une feuille par copie d'une feuille 'Modèle' masquée :

Option Explicit

Private Sub CommandButton1_Click()
Sheets("Modèle").Visible = True
Sheets("Modèle").Copy After:=Sheets(2)
ActiveSheet.Name = Lot
Cells(2, 6) = Refproduit
Cells(2, 10) = Lot
Cells(2, 14) = Calendar1.Value
Cells(1, 1).Select
Sheets("Modèle").Visible = False
Unload Me
End Sub
A++
A+ à tous