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

M

michel_m

XLDnaute Accro

• 14 Décembre 2006

• #2

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"))

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 14 Décembre 2006

• #3

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

 

Vote positif 0 Vote négatif

Y

yannick.saluden

Guest

• 14 Décembre 2006

• #4

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

 

Vote positif 0 Vote négatif

Claude5

XLDnaute Occasionnel

• 11 Juin 2013

• #5

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

 

Vote positif 0 Vote négatif