dupliquer un Onglet a une Date Précise

[MuscatMimi]

Bonjour a toutes et Tous

Meilleurs voeux tous,
Je me casse la tête a essayer, de pourvoir dupliquer un Onglet
Automatiquement a une Date ce trouvant dans une Cellule

EX Aujourd'hui nous somme le 07/01/2011

et la Date dans la Cellule est 01/02/2011, a cette Date
a l'ouverture du Classeur, la duplication ce réalise

Est ce possible???,

Cordialement

 

[James007]

Re : dupliquer un Onglet a une Date Précise

Bonjour,

As-tu essayé :

Private Sub Workbook_Open()     
Application.OnTime TaDate, "TaMacro"
End Sub

A +

 

[Pierrot93]

Re : dupliquer un Onglet a une Date Précise

Bonjour,

regarde ce code, à placer dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
If Feuil1.Range("A1").Value = Date Then Feuil1.Copy
End Sub

bon après midi
@+

 

[MuscatMimi]

Re : dupliquer un Onglet a une Date Précise

Bonjour Pierrot,James, et le Forum
Merci, pour votre contribution, a touts les deux

Bon week-end

Cordialement

 

[James007]

Re : dupliquer un Onglet a une Date Précise

Bonjour,

C'est la formule de Pierrot93 qu'il faut utiliser pour ton problème ...

Pour les futurs lecteurs, la proposition que j'ai faite correspond davantage à un besoin exprimé sous la forme : date + heure ...

A +

 

[MuscatMimi]

Re : dupliquer un Onglet a une Date Précise

Re a tous

Voici entre le temp de la création de mon Fil, et vos réponse
Voila ce que j'ai fais dans un "Module"

'--Copy Feuil active dans ce classeur au début des onglets
'-- Nom de la feuil créé nommé dans cellule A2 de la feuil active
Sub copysheet()
 ActiveSheet.Copy before:=Worksheets(ActiveSheet.Name)
ActiveSheet.Name = Format(ActiveSheet.Range("A2"), "yyyy")
End Sub

'--Sauvegarde Feuil Active, dans Dossier Archives Echéancier
Sub Sauv_Feuil()
'--Définition des variables
Dim Chemin As String, Nom As String

Chemin = ThisWorkbook.Path & "\Archives Echéancier\"
Nom = Format(ActiveSheet.Range("A2"), "YYYY")
ActiveSheet.Copy '<<<< ou Sheets("LaFeuille").Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Cells.Validation.Delete
With ActiveWorkbook
.SaveAs Chemin & Nom '"CopieFeuille.xls"
.Close ' supprimer si on veut garder le classeur ouvert
End With
Application.DisplayAlerts = False

ActiveSheet.Delete
Application.DisplayAlerts = True

End Sub

Dans ThisWorkBook

Private Sub Workbook_Open()
'--Message Acceuil a l'ouverture
mess
'--Protection de la Feuille
Feuil1.Protect Password:="0000"

'--Initialize le Calcul des Echéances Saisies
Call Du

'--Créé Onglet a la Date du 31/12/2011
'If Feuil3.Range("C1").Value = Date Then Feuil1.Copy
Tadate = ActiveSheet.Range("B2")
Application.OnTime Tadate, "copysheet"
Application.OnTime Tadate, "RecoverValueOnly"

'--MesgBox au 31/12/ de chaque année
'If Dir(ThisWorkbook.Path & "\Echéancier.xls") <> "" Then Application.OnTime CDate("31/12/" & Year(Date) & ""), "message"

End Sub

Ca fonctione bien

Bon Week-end