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

kimagure

XLDnaute Nouveau
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
 
Solution
re
VB:
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

job75

XLDnaute Barbatruc
Bonjour kimagure, bienvenue sur XLD, salut patricktoulon,

Une MsgBox devrait suffire.

Après le code d'ouverture de chaque fichier ajoutez :
VB:
MsgBox "Dernier enregistrement " & FileDateTime(ActiveWorkbook.Path), , "Fichier '" & ActiveWorkbook.Name & "'"
A+
 

kimagure

XLDnaute Nouveau
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

XLDnaute Barbatruc
re
VB:
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

XLDnaute Nouveau
re
VB:
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.
:)
 

Discussions similaires

Statistiques des forums

Discussions
313 313
Messages
2 097 046
Membres
106 817
dernier inscrit
christian24