date de création

V

Vincent

Guest
Bonjours,

J'aimerais insérer dans une cellule la date de création de mon fichier. j'ai su le faire à l'aide de ActiveWorkbook.BuiltinDocumentProperties(11)
dans un modèle que j'ai créé. le problème est que lorsque j'ouvre se modèle pour créer un nouveau classeur Excell, il me laisse la date de création de mon modèle au lieu de celui de mon nouveau classeur. je suis débutant et je n'ai pas su aller plus loin que ça.

merci d'avance
vincent
 

Charly2

Nous a quittés en 2006
Repose en paix
Bonsoir Vincent, bonsoir le forum,

Tu dois certainement pouvoir t'en sortir avec une procédure événementielle de ThisWorkbook :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(NomDeTaFeuille).Range(TaCellule).Value = Now
End Sub

J'espère que cette solution te conviendra...

Amicalement
Charly
 

Charly2

Nous a quittés en 2006
Repose en paix
Re-bonsoir,

Oups !!! Quel bévue :S

Si tu fais comme je viens de te dire, tu auras un nouvelle date à chaque sauvegarde :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(NomDeTaFeuille).Select
Range(TaCellule).Select
If IsEmpty (Selection) Then Selection.Value = Now
End Sub

Désolé :unsure:

Amicalement
Charly
 
V

vincent

Guest
bonsoir tout le monde

merci Charly2 mais je ne parvient pas à avoir de résultat, je dois bien mettre celà dans un module? et juste replacer le nom de la feuille par le mien et le nom de la cellule par le nom de la cellule dans le-quel je veux que mon information soit placé?

merci

Vincent
 

Discussions similaires

Statistiques des forums

Discussions
312 928
Messages
2 093 695
Membres
105 786
dernier inscrit
Yarf