insérer la date de création d'un fichier excel dans une cellule
6 réponses
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.
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
JPMonnier
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" a écrit dans le 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
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" <JeanCharles@discussions.microsoft.com> a écrit dans le
message de news:819B6C12-511E-4CFA-AE11-C27C1F0289AD@microsoft.com...
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.
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" a écrit dans le 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
Bonsour® Jean-Charles avec ferveur ;o))) vous nous disiez :
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" a écrit dans le 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
Merci à vous pour cette information.
J'ai trouvé de mon côté quelque chose d'assez simple :
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" <JeanCharles@discussions.microsoft.com> a écrit dans le
message de news:819B6C12-511E-4CFA-AE11-C27C1F0289AD@microsoft.com...
> 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
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" a écrit dans le 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
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
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 <JeanChar...@discussions.microsoft.com>
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.
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
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")
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")
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
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
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 <JeanChar...@discussions.microsoft.com>
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
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