Champs dans Excel ?

ChrisV

20/01/2004 à 11:46

Bonjour JL,

Dans la feuille de code de ThisWorkbook

Private Sub Workbook_Open()
With Sheets(1)
.[A1] = "Date de création : le " _
& Format(ActiveWorkbook.BuiltinDocumentProperties(11), _
"dd/mm/yyyy")
' si tu voulais également la date du dernier enregistrement
' .[A2] = "Dernier enregistrement : le " _
' & Format(ActiveWorkbook.BuiltinDocumentProperties(12), _
' "dd/mm/yyyy hh:mm")
End With
End Sub

Ou par une fonction perso...

Function DateCrea()
DateCrea = "Date de création : le " _
& Format(ActiveWorkbook.BuiltinDocumentProperties(11), _
"dd/mm/yyyy")
End Function

et dans une cellule quelconque: ÚteCrea()

ChrisV

"JL" a écrit dans le message de news:
10dc01c3df40$857404e0$
Bonjour à tous !
Question à deux euros : comment insérer dans Excel un
champ ou une cellule avec la date de création d'un
document ?

Quelle formule, si elle existe ?

Merci de vos lumières

JL

Asterix

20/01/2004 à 11:55

Bonjour JL, bonjour à tous

Dans un module du classeur, tu copies la fonction suivante :

Function DateCreation()
DateCreation = Format(ActiveWorkbook.BuiltinDocumentProperties("Creation
date"), "dd/mm/yyyy")
End Function

et ensuite dans la cellule où tu veux faire afficher l'information, tu tapes
ÚteCreation()
ou tu vas chercher la fonction dans l'assistant

Asterix

JL

20/01/2004 à 11:57

Merci beaucoup !
C'est là que l'on touchh du doigt l'abîme qui sépare
l'amateur simplement compétent du professionnel hautement
qualifié.
JL

-----Message d'origine-----
Bonjour JL,

Dans la feuille de code de ThisWorkbook

Private Sub Workbook_Open()
With Sheets(1)
.[A1] = "Date de création : le " _
& Format(ActiveWorkbook.BuiltinDocumentProperties
(11), _

"dd/mm/yyyy")
' si tu voulais également la date du dernier
enregistrement

' .[A2] = "Dernier enregistrement : le " _
' & Format
(ActiveWorkbook.BuiltinDocumentProperties(12), _

' "dd/mm/yyyy hh:mm")
End With
End Sub

Ou par une fonction perso...

Function DateCrea()
DateCrea = "Date de création : le " _
& Format(ActiveWorkbook.BuiltinDocumentProperties
(11), _

"dd/mm/yyyy")
End Function

et dans une cellule quelconque: �teCrea()

ChrisV

"JL" a écrit dans
le message de news:

10dc01c3df40$857404e0$
Bonjour à tous !
Question à deux euros : comment insérer dans Excel un
champ ou une cellule avec la date de création d'un
document ?

Quelle formule, si elle existe ?

Merci de vos lumières

JL

.

sabatier

20/01/2004 à 12:01

bonjour
1) on ne peut pas dire que c'était une question à 2 euros, ne serait-ce
que par respect pour le répondeur
2) pour la date du dernier enregistrement, on peut éviter le complexe
BuiltinDoc....etc... en mettant, toujours dans le ThisWorkBook mais
rayon Private Sub Workbook BeforeClose :

[A2] = "Dernier enregistrement : le " _
& Format(Date,"dd/mm/yyyy hh:mm")

mais bon, ce n'est que l'avis d'un petit, d'un obscur, d'un sans-grade...
jps

ChrisV a écrit:

Bonjour JL,

Dans la feuille de code de ThisWorkbook

Private Sub Workbook_Open()
With Sheets(1)
.[A1] = "Date de création : le " _
& Format(ActiveWorkbook.BuiltinDocumentProperties(11), _
"dd/mm/yyyy")
' si tu voulais également la date du dernier enregistrement
' .[A2] = "Dernier enregistrement : le " _
' & Format(ActiveWorkbook.BuiltinDocumentProperties(12), _
' "dd/mm/yyyy hh:mm")
End With
End Sub

Ou par une fonction perso...

Function DateCrea()
DateCrea = "Date de création : le " _
& Format(ActiveWorkbook.BuiltinDocumentProperties(11), _
"dd/mm/yyyy")
End Function

et dans une cellule quelconque: ÚteCrea()

ChrisV

"JL" a écrit dans le message de news:
10dc01c3df40$857404e0$
Bonjour à tous !
Question à deux euros : comment insérer dans Excel un
champ ou une cellule avec la date de création d'un
document ?

Quelle formule, si elle existe ?

Merci de vos lumières

JL

sabatier

20/01/2004 à 12:07

ouais, JL, et comme avait dit ce président africain en s'adressant, son
putsch réussi, à son peuple toute ouïe :
le gouvelnement plécédent vous a amenés au bold de l'abîme ; le
gouvelnement actuel va vous fail fail un gland pas en avant...
jps

JL a écrit:

Merci beaucoup !
C'est là que l'on touchh du doigt l'abîme qui sépare
l'amateur simplement compétent du professionnel hautement
qualifié.
JL

ChrisV

20/01/2004 à 12:22

Salut JP,

2) pour la date du dernier enregistrement...

Beaucoup plus simple et rapide en effet !
Je m'incline cher Maître...
;-)

ps: > on ne peut pas dire que c'était une question à 2 euros

Qu'a cela ne tienne...
Pour tout vos dons:
MatrixClub
MPFE !!!

ChrisV

"sabatier" a écrit dans le message de news:

bonjour
1) on ne peut pas dire que c'était une question à 2 euros, ne serait-ce
que par respect pour le répondeur
2) pour la date du dernier enregistrement, on peut éviter le complexe
BuiltinDoc....etc... en mettant, toujours dans le ThisWorkBook mais
rayon Private Sub Workbook BeforeClose :

[A2] = "Dernier enregistrement : le " _
& Format(Date,"dd/mm/yyyy hh:mm")

mais bon, ce n'est que l'avis d'un petit, d'un obscur, d'un sans-grade...
jps

ChrisV a écrit:
Bonjour JL,

Dans la feuille de code de ThisWorkbook

Private Sub Workbook_Open()
With Sheets(1)
.[A1] = "Date de création : le " _
& Format(ActiveWorkbook.BuiltinDocumentProperties(11), _
"dd/mm/yyyy")
' si tu voulais également la date du dernier enregistrement
' .[A2] = "Dernier enregistrement : le " _
' & Format(ActiveWorkbook.BuiltinDocumentProperties(12), _
' "dd/mm/yyyy hh:mm")
End With
End Sub

Ou par une fonction perso...

Function DateCrea()
DateCrea = "Date de création : le " _
& Format(ActiveWorkbook.BuiltinDocumentProperties(11), _
"dd/mm/yyyy")
End Function

et dans une cellule quelconque: ÚteCrea()

ChrisV

"JL" a écrit dans le message de
news:

10dc01c3df40$857404e0$
Bonjour à tous !
Question à deux euros : comment insérer dans Excel un
champ ou une cellule avec la date de création d'un
document ?

Quelle formule, si elle existe ?

Merci de vos lumières

JL

Champs dans Excel ?

6 réponses

Veuillez sélectionner un problème