XL 2016 formule pour afficher date de modification d'un autre fichier

[kimagure]

Bonjour à tous,
je me permet de vous contacter car je suis à la recherche d'une formule pour faire apparaitre dans mon fichier excel les dates d'enregistrement de fichiers pour vérifier que tout soit à jour. je m'explique:
lors de l'ouverture de mon fichier Excel, une macro (light) ouvre 4 feuilles excel pour des mises à jour de data.
je souhaites que la date du dernier enregistrement de ces 4 fichiers soit affichées sur ma page principale pour vérification.
et tout ça, avec une formule... :-/
je ne sais pas si je dois vous joindre un fichier excel au vu de ma demande... :-/
Merci pour votre aide.
Cordialement
Kimagure

 

[patricktoulon]

Bonjour
il te faudra une fonction perso VBA pour ça, utilisable en formule bien sur
si vba bon pour toi je te fais ça

 

[job75]

Bonjour kimagure, bienvenue sur XLD, salut patricktoulon,

Une MsgBox devrait suffire.

Après le code d'ouverture de chaque fichier ajoutez :

MsgBox "Dernier enregistrement " & FileDateTime(ActiveWorkbook.Path), , "Fichier '" & ActiveWorkbook.Name & "'"

A+

 

[patricktoulon]

re
bonjour @job75
@kimagure ou au moins la macro qui ouvre les fichiers si fichiers avec données trop confidentielles

 

[kimagure]

re
bonjour @job75
@kimagure ou au moins la macro qui ouvre les fichiers si fichiers avec données trop confidentielles

Hello Patricktoulon et job 75.
voilà ce que j'ai actuellement dans ma Macro pour ouvrir mes fichiers:

Sub Macro1()
'
' Macro1 Macro
'

'
Workbooks.Open Filename:="G:\Fic\pdp mois ajusté.xlsx"
Workbooks.Open Filename:="G:\Fic\ZGAMN.csv"
Workbooks.Open Filename:="G:\Fic\Chauto M-1.xlsx"
Workbooks.Open Filename:="G:\Fic\PWB.XLS"

End Sub

@job75, je n'arrive pas à faire fonctionner ce que tu m'as dit. je dois le mettre entre chaque ligne ci-dessus?
Merci pour votre aide.

 

[patricktoulon]

re

Sub Macro1()


    Dim WbK(1 To 4) As Workbook

    Set WbK(1) = Workbooks.Open(Filename:="G:\Fic\pdp mois ajusté.xlsx")

    Set WbK(2) = Workbooks.Open(Filename:="G:\Fic\ZGAMN.csv")

    Set WbK(3) = Workbooks.Open(Filename:="G:\Fic\Chauto M-1.xlsx")

    Set WbK(4) = Workbooks.Open(Filename:="G:\Fic\PWB.XLS")
   
    MsgBox WbK(1).Name & "modifié le : " & FileDateTime(WbK(1).Fullname) & vbCrLf & _
           WbK(2).Name & "modifié le : " & FileDateTime(WbK(2).Fullname) & vbCrLf & _
           WbK(3).Name & "modifié le : " & FileDateTime(WbK(3).Fullname) & vbCrLf & _
           WbK(4).Name & "modifié le : " & FileDateTime(WbK(4).Fullname)
Erase WbK
End Sub

 

[kimagure]

re

Sub Macro1()


    Dim WbK(1 To 4) As Workbook

    Set WbK(1) = Workbooks.Open(Filename:="G:\Fic\pdp mois ajusté.xlsx")

    Set WbK(2) = Workbooks.Open(Filename:="G:\Fic\ZGAMN.csv")

    Set WbK(3) = Workbooks.Open(Filename:="G:\Fic\Chauto M-1.xlsx")

    Set WbK(4) = Workbooks.Open(Filename:="G:\Fic\PWB.XLS")
  
    MsgBox WbK(1).Name & "modifié le : " & FileDateTime(WbK(1).Fullname) & vbCrLf & _
           WbK(2).Name & "modifié le : " & FileDateTime(WbK(2).Fullname) & vbCrLf & _
           WbK(3).Name & "modifié le : " & FileDateTime(WbK(3).Fullname) & vbCrLf & _
           WbK(4).Name & "modifié le : " & FileDateTime(WbK(4).Fullname)
Erase WbK
End Sub

Bonjour Patricktoulon,
désolé de ne pas avoir répondu avant.
ta réponse est nickel, je ne souhaitais pas avoir une fenêtre qui s'affiche avec la date, mais que la date s'affiche dans une case (je n'ai pas été très précis surma demande...) mais en y réfléchissant bien, c'est mieux comme ça.
merci pour ton aide.