Creer une nouvelle feuille de calcule au 01/01/2008

[zimou]

Bonjour,
j'ai besoin de votre précieuse aide pour réaliser ma macro qui va
rajouter automatiquement une nouvelle feuile nommée "2008" - pour
2008- et y insérer les données, mais avec 2 conditions:
1 il fau que la date entrée en Z_Fab_date.Value soit en C soit de
l'année exp. 2008, et que la dte système now() soit 2008.
la procédure en bas crée une feuille et la nomme 2008 mais
malheuresement à chaque clic sur Ok.
si l'année entrée en Z_Fab_date.Value est 2007 et Now() = 2008 il faut
que les données soient entrée dans la feuille de calcule actuelle ou
2007.

Merci d'avance.
amicalement
Zimou


Sub Ajouter_Click()
Dim Ligne As Long


Ligne = Range("A65536").End(xlUp).Row + 1


Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
If Z_Fab_date < ("01/01/2008") And Now() = "2008" Then


ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(Now(), "yyyy")


End If


With Saisir_nouveau_lot
.Z_N_Lot.Text = ""
.Z_Fab_date.Text = Format(Now(), "dd/mm/yy")
.Z_Date_Lib.Text = ""
.Z_Quantite.Text = ""
.Z_delitement.Text = ""
.Z_Dissolution.Text = ""
.Z_Humidite.Text = ""
.Z_PM75.Text = ""
.Z_PM_n7.Text = ""
.Z_dos.Text = ""
.Nlot_Mp.Text = ""


End With
End Sub

 

[Cousinhub]

Re : Creer une nouvelle feuille de calcule au 01/01/2008

Bonsoir,
D'après le peu que j'ai pu comprendre (je ne dois pas être le seul, le mieux est de joindre un fichier exemple, enlevé de toutes données confidentielles)

essaie avec :

If CDate(Z_Fab_date) < CDate("01/01/2008") And Year(Now()) = "2008" Then
...... le reste

(Vu dans ma boule de cristal )