Insérer la date de création d'un fichier excel dans une cellelue

[yannick.saluden]

Salut à tous,

Je cherche à renseigner dans une cellule la date de création du fichier excel.

Pouvez vous m'aider

Merci

 

[michel_m]

Re : Insérer la date de création d'un fichier excel dans une cellelue

Bonjour, à insérer dans une macro: Range("A1") = CDate(Format(ActiveWorkbook.BuiltinDocumentProperties("creation date"), "dd/mm/yy"))

 

[excalibur]

Re : Insérer la date de création d'un fichier excel dans une cellelue

bonjour yannick.saluden michel_m le forum une autre methode
Option Explicit
Sub Macro1()
Range("A1") = DateCreation
End Sub
Function DateCreation()
Application.Volatile
DateCreation = CDate(ActiveWorkbook.BuiltinDocumentProperties(11).Value)
End Function'salutations

 

[yannick.saluden]

Re : Insérer la date de création d'un fichier excel dans une cellelue

Merci à vous deux pour ce coups de pouce

A+

Yannick

 

[Claude5]

Re : Insérer la date de création d'un fichier excel dans une cellelue

Bonjour,

j'ai appliqué vos formules pour mettre en A1 la date de création d'un fichier Excel, mais j'ai une erreur de compilation et de syntaxe. Voici ce que j'ai écrit:

Sub Macro1()
'
' Macro1 Macro
'

'Sub Macro1()
Range("A1") = DateCreation
End Sub
= CDate(Format(ActiveWorkbook.BuiltinDocumentPropert ies("creation date"), "dd/mm/yy"))
End Function

Merci de votre aide. Claude