date de création

[Vincent]

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]

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]

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

 

[vincent]

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