Bonjour à tous,
Petite problématique pour pouvoir rappatrier les dates de création de mes fichiers xls situé dans le répertoire blabla, vers mon fichier ouvert soit toto.xls colone 7, 8, 9 pour respectivement avoir, date de création, date de la dernière modification, date du dernier accès.

J'ai une erreur de synthaxe sur la déclaration de "fichier" je ne comprends pas vraiment pourquoi.
Pouvez vous m'aider?



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
19
20
21
22
23
24
25
26
27
 
Sub Chgt_donnees()
 
Dim Compteur As Integer
Dim Chemin_Rep As String
Dim Objet_Fichier, Fichier
 
Chemin_Rep = "moncheminwindows\blabla" 
Application.FileSearch.LookIn = Chemin_Rep
Application.FileSearch.Filename = "*.xls"
 
If Application.FileSearch.Execute > 0 Then
    For Compteur = 1 To Application.FileSearch.FoundFiles.Count
 
    Set Objet_Fichier = CreateObject("Scripting.FileSystemObject")
    Set Fichier = Objet_Fichier.GetFile(Application.FileSearch.Found Files(Compteur))
 
    Worksheets("Feuil2").Select
    [A1].Offset(Compteur - 1, 7).Value = Fichier.DateCreated
    [A1].Offset(Compteur - 1, 8).Value = Fichier.DateLastModified
    [A1].Offset(Compteur - 1, 9).Value = Fichier.DateLastAccessed
    Next Compteur
 
Else
MsgBox "Pas de fichier disponible"
End If
End Sub
EDIT: Existe t-il la même fonction en formule excel classique? car il existe bien AUJOURDHUI() mais ça renvois la date du jour il faudrait un truc du genre:
DATECREATION(ANNEE();MOIS();JOUR())