VBA-Excel-récupérer l'heure de création d un fichier

**captaine93** · 20/10/2006, 19h48

Boujour !
J ai x fichiers d'origine dos à ouvir dans excel...
Je voudrais créer une feuille excel qui répertorie ces fichiers (colonne a) et qui associe dans la colonne b la date de création de ces fichier.
Merci a celui qui pourra m aider

**SfJ5Rpw8** · 20/10/2006, 20h05

tiens tu peu t'inspirer de ce code qui liste les fichiers du répertoire c:\tmp :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub ListeFichiers()
'
' Activer la référence à Microsoft Scripting Runtime
'
Dim FSO As New FileSystemObject
Dim MonRep As Folder
Dim f As File
Set MonRep = FSO.GetFolder("c:\tmp") 'Liste les fichiers de C:\tmp
Dim i As Integer 'index ligne feuille excel
i = 1
For Each f In MonRep.Files
  Cells(i, 1) = f.Name
  Cells(i, 2) = f.DateCreated
  i = i + 1
Next
 
End Sub

**ThierryAIM** · 20/10/2006, 20h25

Envoyé par bidou sur VB6

y a des moments où vous me faites un peu peur les gars

normalement FileDateTime devrait le faire.

et ça existe aussi en VBA

**SfJ5Rpw8** · 20/10/2006, 20h34

Envoyé par ThierryAIM

et ça existe aussi en VBA

FileDateTime c'est pas plutôt la date de la derniére modification .. ( bon c'est vrai que lors de la création du fichier les deux dates sont les mêmes..)