dernière date de modification d'un fichier

[OFFSET]

Bonjour,

J'aimerais savoir comment il est possible de récupérer via un code VBA la date de dernière modification d'un fichier excel?

Merci d'avance pour votre aide.

Je reste à votre dispo pour plus de renseignement.

OFFSET

 

[Dull]

Re : dernière date de modification d'un fichier

Salut Offset, le Forum

As tu regardé au bas de cette page: " Discussions Similaires" . il y a certainement une réponse à ton interrogation

Bonne Journée

 

[Gorfael]

Re : dernière date de modification d'un fichier

Salut OFFSET et le forum
Cherche du côté de ThisWorkbook.BuiltinDocumentProperties(12)
Mais ça ne donnera que date/heure du dernier enregistrement du fichier, avec ou sans modif.
Il y a aussi la possibilité d'activer le suivi des modifications (menu Outils>>suivi).
A+

 

[OFFSET]

Re : dernière date de modification d'un fichier

Merci pour vos conseils néanmoins je reste bloqué pour le moment.

 

[Paritec]

Re : dernière date de modification d'un fichier

Bonsoir Gorfael Offset(1,0)
je vais rechercher mais j'ai suivi un post de tototiti ces derniers jours ou il répondait clairement là dessus mais de tête je ne le sais plus
je regarde et je reviens
a+
papou 🙂

 

[MJ13]

Re : dernière date de modification d'un fichier

Bonjour à tous

Sinon, voir mon utilitaire V4 qui peux le faire (dans la troisième page) 🙂.

 

[Paritec]

Re : dernière date de modification d'un fichier

Re Gorfael Offset (-1,2) le forum
voilà la réponse que Tototiti avait donné
ou fic était la variable du fichier
Cells(Ligne, 3).Value = CDate(Fic.DateLastModified)
en espérant que cela répondra a ta question
a+
papou 🙂

EDIT bonjour Michel

 

[OFFSET]

Re : dernière date de modification d'un fichier

Bonjour Paritec,

Merci pour les infos, mais je n'arrive pas à le faire fonctionner, je te mets ci-dessous mon code, peut-être auras-tu une idée?

Sub QTMag()

Dim fsindic As FileSearch
Dim X As Range

Worksheets("ref").Select
Range("B3").Select

Set X = Selection


Set fsindic = Application.FileSearch

With fsindic
.LookIn = "I:\blabla"
.Filename = "BLABLA*"
.FileType = msoFileTypeExcelWorkbooks


If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderDescending) > 0 Then

For i = 1 To .FoundFiles.Count

wB1 = .FoundFiles(i)
X.Value = CDate(wB1.DateLastModified)

End if
End with
End sub

 

[OFFSET]

Re : dernière date de modification d'un fichier

Bon finalement j'ai trouvé une solution alternative, permettant d'arriver au résultat avec FileDateTime(variable).

Bonne Soirée

 

[Paritec]

Re : dernière date de modification d'un fichier

Bonsoir Offset(1,0) le forum,
bon j'arrive quand tu as trouvé alors bonne soirée et
a+
papou 🙂

 

[tototiti2008]

Re : dernière date de modification d'un fichier

Bonjour à tous,

ou bien

Sub QTMag()

Dim fsindic As FileSearch
Dim X As Range[COLOR=red], FSO, Fic
[/COLOR]
Worksheets("ref").Select
Range("B3").Select

Set X = Selection


Set fsindic = Application.FileSearch

With fsindic
.LookIn = "I:\blabla"
.Filename = "BLABLA*"
.FileType = msoFileTypeExcelWorkbooks


If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderDescending) > 0 Then
[COLOR=red]Set FSO = CreateObject("Scripting.FileSystemObject")
[/COLOR]For i = 1 To .FoundFiles.Count

wB1 = .FoundFiles(i)
[COLOR=red]set Fic = FSO.getfile(wB1)
[/COLOR]X.Value = CDate(Fic.DateLastModified)
[COLOR=red]Set X = X.offset(1,0) '????[/COLOR]
[COLOR=red]Next i[/COLOR]
[COLOR=red]Set Fic= Nothing[/COLOR]
[COLOR=red]Set FSO = Nothing[/COLOR]
End if
End with
End sub

 

[OFFSET]

Re : dernière date de modification d'un fichier

Ok, effectivement il manquait bien un morceau, merci TOTOTITI pour cette précision.

A bientôt offset

 

[MJ13]

Re : dernière date de modification d'un fichier

Bonjour à tous

Attention, il me semble que Application.FileSearch n'est plus supporté sur XL2007.

 

[tototiti2008]

Re : dernière date de modification d'un fichier

Re,
Bonjour MJ13,

tout à fait, ça avait d'ailleurs fait partie des sujets de ce fil (entre autres)

https://www.excel-downloads.com/threads/recherche-fichiers-sur-disque.142158/

 

[phil87]

Re : dernière date de modification d'un fichier

Bonjour tous le monde

1 exemple avec VBA en piece jointe

A bientôt