insérer la date de création d'un fichier excel dans une cellule

Le
Jean-Charles
Bonjour,

Je cherche à insérer la date de création de mon fichier excel dans une
cellule ou en pied de page.
N'existe t-il pas, comme dans word, une formule toute prête ou des champs
spéciaux pouvant retourner cette information.

Merci de votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JPMonnier
Le #20208011
Bonjour,
Sub ShowFileInfo()
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("nonmfichier avec chemin")
s = "Créé le : " & f.DateCreated
MsgBox s
End Sub

"Jean-Charles" message de news:
Bonjour,

Je cherche à insérer la date de création de mon fichier excel dans une
cellule ou en pied de page.
N'existe t-il pas, comme dans word, une formule toute prête ou des champs
spéciaux pouvant retourner cette information.

Merci de votre aide


Modeste
Le #20208421
Bonsour® Jean-Charles avec ferveur ;o))) vous nous disiez :

Je cherche à insérer la date de création de mon fichier excel dans une
cellule ou en pied de page.
N'existe t-il pas, comme dans word, une formule toute prête ou des
champs spéciaux pouvant retourner cette information.



[A1] = ThisWorkbook.BuiltinDocumentProperties(11)
[A2] = ThisWorkbook.BuiltinDocumentProperties(3)
MsgBox "créé par : " & [A2] & Chr(10) & "le : " & Format([A1], "dddd d mmmm yyyy hh:mm:ss.00")
Jean-Charles
Le #20208411
Merci à vous pour cette information.
J'ai trouvé de mon côté quelque chose d'assez simple :

Range("A1") =
CDate(Format(ActiveWorkbook.BuiltinDocumentProperties("creation date"),
"dd/mm/yy"))

encore merci

"JPMonnier" a écrit :

Bonjour,
Sub ShowFileInfo()
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("nonmfichier avec chemin")
s = "Créé le : " & f.DateCreated
MsgBox s
End Sub

"Jean-Charles" message de news:
> Bonjour,
>
> Je cherche à insérer la date de création de mon fichier excel dans une
> cellule ou en pied de page.
> N'existe t-il pas, comme dans word, une formule toute prête ou des champs
> spéciaux pouvant retourner cette information.
>
> Merci de votre aide




LSteph
Le #20208651
Bonjour,

Sub piedDateCreation()
Dim MyD
MyD = ActiveWorkbook.BuiltinDocumentProperties(11)
With ActiveSheet.PageSetup
.LeftFooter = "Créé le " & Format(MyD, "dd/mm/yyyy")
End With

End Sub


'lSteph

On 23 sep, 10:30, Jean-Charles wrote:
Bonjour,

Je cherche à insérer la date de création de mon fichier excel dans une
cellule ou en pied de page.
N'existe t-il pas, comme dans word, une formule toute prête ou des cham ps
spéciaux pouvant retourner cette information.

Merci de votre aide


Jean-Charles
Le #20209161
Merci à vous.

"Modeste" a écrit :

Bonsour® Jean-Charles avec ferveur ;o))) vous nous disiez :

> Je cherche à insérer la date de création de mon fichier excel dans une
> cellule ou en pied de page.
> N'existe t-il pas, comme dans word, une formule toute prête ou des
> champs spéciaux pouvant retourner cette information.

[A1] = ThisWorkbook.BuiltinDocumentProperties(11)
[A2] = ThisWorkbook.BuiltinDocumentProperties(3)
MsgBox "créé par : " & [A2] & Chr(10) & "le : " & Format([A1], "dddd d mmmm yyyy hh:mm:ss.00")




Jean-Charles
Le #20209151
Merci à vous.

"LSteph" a écrit :

Bonjour,

Sub piedDateCreation()
Dim MyD
MyD = ActiveWorkbook.BuiltinDocumentProperties(11)
With ActiveSheet.PageSetup
..LeftFooter = "Créé le " & Format(MyD, "dd/mm/yyyy")
End With

End Sub


'lSteph

On 23 sep, 10:30, Jean-Charles wrote:
> Bonjour,
>
> Je cherche à insérer la date de création de mon fichier excel dans une
> cellule ou en pied de page.
> N'existe t-il pas, comme dans word, une formule toute prête ou des champs
> spéciaux pouvant retourner cette information.
>
> Merci de votre aide




Publicité
Poster une réponse
Anonyme