Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Date de création

Date de création

11 réponses
Avatar
peterpan
Bonjour,

Je voudrais savoir si je peux connaitre la date de création de mon document
dans ma page excel pour faire des calculs exemple : "afficher cela fait 15
jours que ce document a été créé".
Pour cela il me faudrait une fonction du type =Datecreation() mais je n'ai
rien trouvé.

Merci

Peterpan
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
isabelle
bonjour Peterpan,


voilà,

Function DateCréation()
DateCréation = _
Format(Application.ThisWorkbook.BuiltinDocumentProperties(11),
"yyyy-mm-dd hh:mm")
End Function

Sub Macro1()
'pour voir tout les items de la propriété BuiltinDocumentProperties
x = 1
On Error Resume Next
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(x, 1).Value = p.Name
Cells(x, 2).Value = p.Value
x = x + 1
Next
End Sub

isabelle


Bonjour,

Je voudrais savoir si je peux connaitre la date de création de mon document
dans ma page excel pour faire des calculs exemple : "afficher cela fait 15
jours que ce document a été créé".
Pour cela il me faudrait une fonction du type Útecreation() mais je n'ai
rien trouvé.

Merci

Peterpan


Avatar
ChrisV
Bonjour peterpan,

Function DatedeCreation()
DatedeCreation = "cela fait : " & _
Format(Int(Date - ActiveWorkbook.BuiltinDocumentProperties(11)), _
"[dd]") & " jours"
End Function


ChrisV


"peterpan" a écrit dans le message de news:
bup0hc$ip6$
Bonjour,

Je voudrais savoir si je peux connaitre la date de création de mon
document

dans ma page excel pour faire des calculs exemple : "afficher cela fait 15
jours que ce document a été créé".
Pour cela il me faudrait une fonction du type Útecreation() mais je n'ai
rien trouvé.

Merci

Peterpan




Avatar
Daniel.j
Avec cette macro tu as la date de creation du classeur actif:

MsgBox ActiveWorkbook.BuiltinDocumentProperties.Item(11)
http://dj.joss.free.fr/fichier.htm#propriete


Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm

"peterpan" a écrit dans le message de news:
bup0hc$ip6$
| Bonjour,
|
| Je voudrais savoir si je peux connaitre la date de création de mon document
| dans ma page excel pour faire des calculs exemple : "afficher cela fait 15
| jours que ce document a été créé".
| Pour cela il me faudrait une fonction du type Útecreation() mais je n'ai
| rien trouvé.
|
| Merci
|
| Peterpan
|
|
Avatar
Daniel.j
Je vois qu'on est tous d'accord !
:O))))
Daniel
"peterpan" a écrit dans le message de news:
bup0hc$ip6$
| Bonjour,
|
| Je voudrais savoir si je peux connaitre la date de création de mon document
| dans ma page excel pour faire des calculs exemple : "afficher cela fait 15
| jours que ce document a été créé".
| Pour cela il me faudrait une fonction du type Útecreation() mais je n'ai
| rien trouvé.
|
| Merci
|
| Peterpan
|
|
Avatar
isabelle
:-)
en sera t'il de même pour Quizz MasterMind, ;-)

isabelle


Je vois qu'on est tous d'accord !
:O))))
Daniel
"peterpan" a écrit dans le message de news:
bup0hc$ip6$
| Bonjour,
|
| Je voudrais savoir si je peux connaitre la date de création de mon document
| dans ma page excel pour faire des calculs exemple : "afficher cela fait 15
| jours que ce document a été créé".
| Pour cela il me faudrait une fonction du type Útecreation() mais je n'ai
| rien trouvé.
|
| Merci
|
| Peterpan
|
|


Avatar
ChrisV
;-)

Tu as bosser un peu dessus Isabelle ?


ChrisV


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

:-)
en sera t'il de même pour Quizz MasterMind, ;-)

isabelle


Je vois qu'on est tous d'accord !
:O))))
Daniel
"peterpan" a écrit dans le message de news:
bup0hc$ip6$
| Bonjour,
|
| Je voudrais savoir si je peux connaitre la date de création de mon
document


| dans ma page excel pour faire des calculs exemple : "afficher cela
fait 15


| jours que ce document a été créé".
| Pour cela il me faudrait une fonction du type Útecreation() mais je
n'ai


| rien trouvé.
|
| Merci
|
| Peterpan
|
|




Avatar
ChrisV
Oups...
manque un p'tit bout à la dernière ligne

"[dd]") & " jours que ce document a été créé."

D'ailleurs, pour être un peu plus précis...

Function DatedeCreation()
Dim caL As Integer
caL = Date - Int(ActiveWorkbook _
.BuiltinDocumentProperties(11))
Select Case True
Case caL = 0: DatedeCreation = "Document créé ce jour."
Case caL < 2: DatedeCreation = "cela fait : " & _
Format(caL, "[dd]") & " jour que ce document a été créé"
Case Else: DatedeCreation = "cela fait : " & _
Format(caL, "[dd]") & " jours que ce document a été créé"
End Select
End Function


ChrisV


"ChrisV" a écrit dans le message de news:
#
Bonjour peterpan,

Function DatedeCreation()
DatedeCreation = "cela fait : " & _
Format(Int(Date - ActiveWorkbook.BuiltinDocumentProperties(11)), _
"[dd]") & " jours"
End Function


ChrisV


"peterpan" a écrit dans le message de news:
bup0hc$ip6$
Bonjour,

Je voudrais savoir si je peux connaitre la date de création de mon
document

dans ma page excel pour faire des calculs exemple : "afficher cela fait
15


jours que ce document a été créé".
Pour cela il me faudrait une fonction du type Útecreation() mais je
n'ai


rien trouvé.

Merci

Peterpan








Avatar
isabelle
si si un peu beaucoup hier soir, avec sommeprod, elle est pas facile
cette formule %-)

isabelle


;-)

Tu as bosser un peu dessus Isabelle ?

ChrisV

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

:-)
en sera t'il de même pour Quizz MasterMind, ;-)

isabelle


Je vois qu'on est tous d'accord !
:O))))
Daniel
"peterpan" a écrit dans le message de news:
bup0hc$ip6$
| Bonjour,
|
| Je voudrais savoir si je peux connaitre la date de création de mon
document


| dans ma page excel pour faire des calculs exemple : "afficher cela
fait 15


| jours que ce document a été créé".
| Pour cela il me faudrait une fonction du type Útecreation() mais je
n'ai


| rien trouvé.
|
| Merci
|
| Peterpan
|
|






Avatar
ChrisV
%-)


C'est tout à fait ça...! ;-)

De mon côté, OK pour les résultats attendus...
Longueur formules (4): 108 caractères au total
J'essaie d'améliorer le truc...

La suite dans le fil initial...


ChrisV


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

si si un peu beaucoup hier soir, avec sommeprod, elle est pas facile
cette formule %-)

isabelle


Avatar
isabelle
moi je suis bloqué, j'essai de mettre cette formule
="{"&SOMMEPROD(1*(A1:E1¡))&";"&SOMMEPROD(1*(A1:E1±))&";"&SOMMEPROD(1*(A1:E1Á))&";"&SOMMEPROD(1*(A1:E1Ñ))&";"&SOMMEPROD(1*(A1:E1á))&"}"

qui retourne la valeur {1;2;1;1;1}
en remplacement de la plage N8:R8 dans la formule
=SOMMEPROD((N8:R8<>1)*1)
mais niet elle me retourne toujours 0 alors que séparément elle retourne
1
que se passe t'il, sommeprod n'accepte pas une matrice comme arguments ?

isabelle


%-)


C'est tout à fait ça...! ;-)

De mon côté, OK pour les résultats attendus...
Longueur formules (4): 108 caractères au total
J'essaie d'améliorer le truc...

La suite dans le fil initial...

ChrisV

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

si si un peu beaucoup hier soir, avec sommeprod, elle est pas facile
cette formule %-)

isabelle




1 2