Bonjour tout le monde,
Je voudrais insérer la date de création du fichier dans une cellule.
Les solutions que j’ai trouvé dans les multiples posts ne m’ont pas convenu et la solution que j’ai mis en place ne me convient aussi qu’á moitié.
Le problème: l’utilisateur ouvre un fichier-modèle et l’enregistre sous un autre nom. Une date doit s’insérer, celle de la création de ce fichier.
J’ai essayé de passer par BuiltinDocumentProperty, mais la date renvoyée est celle du fichier original, soit la date de création du fichier modèle.
Finalement ma solution est une macro appelée par un bouton :
Je ne trouve pas cette solution satisfaisante car en cas de fausse manip, une mauvaise date sera sauvegardée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Sub Recup_Date_Creation() Dim date_crea As Date Dim date_sauv As Date Crea_Date est le nom de la cellule ou sinscrit la date date_crea = [Crea_Date] date_sauv = FileDateTime(chemin) sur le fichier-modele, la date est vide, il faut donc en inscrire une a la creation du fichier If date_crea = 0 Then date_crea = date_sauv End If la date ne doit pas changer ni en sauvegardant le fichier, ni en le reouvrant If date_sauv < date_crea Then date_sauv = date_crea End If Range("e5").Select ActiveCell.FormulaR1C1 = date_sauv End Sub
Je suis donc preneur de toutes les suggestions.
Merci
Partager